如何插入一个要求输入日期的输入框，然后在该日期之后添加到行？

Question

Sub date
    Dim DTE as Date
    MBox = InputBox(“Enter Friday date”)
    If IsDate(MBox) Then
        DTE = CDate(MBox)
        Range(“F” & Rows.Count).End(xlUp).Offset(1).Select
        Selection.Insert Shift:=xlDown
        Selection.Insert Shift:=xlDown
     Else 
         MsgBox(“This isn’t a date. Try again.”)
    End if
End sub

我需要代码在找到用户在输入框中输入的日期后添加两行，然后将 D 列中的值相加。我意识到范围行不正确，但我不确定如何插入行在我输入的日期之后。

Answer 1

几件事

1. 你不能命名你的子date，因为这是一个保留字
2. 不需要.Selection
3. 如果你使用Application.Inputbox，你可以控制输入类型（一定程度上）

---

假设您正在处理Sheet1，并且您的日期要与用户输入范围匹配Column F

Sub Date_Finder()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update
Dim xInput As Date, Found As Range

xInput = Application.InputBox("Enter Date [mm/dd/yyyy]", Type:=1)

    If IsDate(xInput) Then
        Set Found = ws.Range("F:F").Find(xInput)

        If Found Is Nothing Then
            MsgBox "Input not found in range"
        Else
            Found.Offset(1).EntireRow.Insert (xlShiftDown)
            Found.Offset(1).EntireRow.Insert (xlShiftDown)                
        End If
    Else
        MsgBox "Invalid Entry. Ending sub" & vbNewLine & "Entry: " & xInput, vbCritical
    End If

End Sub