大量の情報があり、開始日列と終了日列の形式でいくつかの入力がありました。私がやりたいことは、選択した日付範囲外の場合、セルの内容を削除する場合、それぞれの右側に 3、左側に -4 ということです。つまり、開始日の左に -4、終了日の右に 3 です。
開始しましたが、セルの日付範囲にない場合、削除に問題がありました
Private Sub cmdFilter_Click()
' Function to filter dates between text boxes, deletes all not in the range
Dim stStart As String, stEnd As String
Dim dbStart As Double, dbEnd As Double
Application.ScreenUpdating = 0
'Turn off screen updating until process done so it doesnt flicker
stStart = txtStart.Value
stEnd = txtEnd.Value
If Not IsDate(stStart) Or Not IsDate(stEnd) Then
MsgBox "Invalid Dates", vbExclamation, "Input Error"
GoTo ExitSub
End If
dbStart = CDbl(CDate(stStart))
dbEnd = CDbl(CDate(stEnd))
' change to highlight cell for time being
INSERT DELETE IF OUT OF RANGE HERE?
ExitSub:
Application.ScreenUpdating = 1
End Sub
前もって感謝します