|
▼Statis さん:
>こんにちは
>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
Statis さん、お返事がだいぶ遅くなってしまってすみませんでした。
。・゜゜・(>_<;)・゜゜・。
頂いたマクロをこれから試してみたいと思います。
また、質問があったらよろしくお願い致します。
|
|