|
こんにちは
UserFormにTextBox1,TextBox2,CommandButton1を用意
データシートをSheet1とコピー先をSheet2としています
ではお試しを。
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("F2").NumberFormat)
Da1 = Format(Me.TextBox2.Value, .Range("F2").NumberFormat)
Worksheets("Sheet2").Cells.Clear
If .AutoFilterMode = False Then
.Rows(1).AutoFilter
End If
.Columns(6).AutoFilter Field:=6, Criteria1:=">=" & Da, Operator:=xlAnd, _
Criteria2:="<=" & Da1
If .Range("F65536").End(xlUp).Row > 1 Then
.AutoFilter.Range.Copy Worksheets("Sheet2").Range("A1")
Else
MsgBox "抽出データがありません。", vbInformation
End If
.AutoFilterMode = False
Else
MsgBox "抽出日を確認", vbCritical
End If
End With
End Sub
|
|