|
Statis さん
うまくいきました。ありがとうございました。
もう一つ質問してもいいでしょうか?
コンボボックスの値でオートフィルターをかけると、シート上に数値が
一切表示されなくなってしまいます。
そこで、マクロの最終行にわざとエラーが出るように適当なコマンドを
入れて、エラー直後にオートフィルターを確認したところ、
ちゃんと選択した日時が選ばれていました。
にもかかわらず、データが何も表示されない状態になってしまいます。
その状態で日時を選択すると、オートフィルターの役目は果たしています。
下のマクロでおかしいところ等あれば教えていただけないでしょうか?
よろしくお願いいたします。
Private Sub CommandButton1_Click()
Dim r As Long, l As Long
If Worksheets("データ").AutoFilterMode Then
Worksheets("データ").AutoFilterMode = False
End If
r = Worksheets("データ").Range("A65536").End(xlUp).Row
Sheets("データ").Range("A4:D" & r).Select
CE = ComboBox1.Value
Selection.AutoFilter Field:=1, Criteria1:=EC
l = Worksheets("データ").Range("A65536").End(xlUp).Row
Sheets("データ").Range("D" & l) = "○"
sheets("データ").AutoFilterMode = False
End Sub
|
|