|
▼Statis さん:
横からごめんなさい。
興味を持って見させていただいていたのですが…一寸分からなくって
教えてください。
現在下のような配列になっています。
Statisさんのコードを利用させていただいたのですが、エラーが出ます。
エラーの個所とそのメッセージをコードの中に書いています。
問題点は何なのでしょうか?ご指導の程お願いします。
F
6 年月日
7 2005/3/1
8 2005/3/2
9 2005/3/3
10 2005/3/4
11 2005/4/5
12 2005/4/6
13 2005/4/7
14 2005/4/8
15 2005/7/10
16 2005/7/11
17 2005/7/12
18 2005/7/13
19 2005/12/11
20 2005/12/12
21 2005/12/13
22 2005/12/14
23 2005/12/15
24 2005/12/16
Private Sub CommandButton1_Click()
Dim Da As Date, Da1 As Date
With Worksheets("Sheet1")
If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
Da = Format(Me.TextBox1.Value, .Range("F6").NumberFormat)
Da1 = Format(Me.TextBox2.Value, .Range("F6").NumberFormat)
If .AutoFilterMode = False Then
.Rows(5).AutoFilter
End If
.Range("F5", .Range("F65536").End(xlUp)).AutoFilter Field:=6, _
Criteria1:=">=" & Da, Operator:=xlAnd, Criteria2:="<=" & Da1
’↑の列で「Range クラスのオートフィルターに失敗しました」と
'メッセージが出ます。何が問題なのでしょうか?
If .Range("F65536").End(xlUp).Row = 5 Then
MsgBox "抽出データがありません。", vbInformation
.AutoFilterMode = False
Else
Unload UserForm1
End If
Else
MsgBox "抽出日を確認", vbCritical
End If
End With
End Sub
|
|