3

大量の情報があり、開始日列と終了日列の形式でいくつかの入力がありました。私がやりたいことは、選択した日付範囲外の場合、セルの内容を削除する場合、それぞれの右側に 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

前もって感謝します

4

1 に答える 1

0

行全体を削除したい場合は、エラーをスローする追加の列に数式を含むSpecialCellsを使用して削除できます...

Excel MVP Ron De Bruin: SpecialCellsのWebサイトでそれを見たと思います

それはあなたが探しているものですか?

于 2013-02-26T16:52:13.980 に答える