|
こんにちは
>多分]さんが仰っていた、AutoFilter. field:=6を1に変える事によって
>何が違ってくるのでしょうか?
F列からデータ始まる場合です。
ABCDE F G
項目 項目 →ここにオートフィルタを設定
データ データ
>1.エクセル上にコマンドボタンを設定し、コマンドボタンを押下するとuserfoamが
>出てきて、開始日・終了日を入力後、userfoam上のコマンドボタンを押下、
>データが抽出される。
UserForm1.Show
>1.エクセル上にコマンドボタンを設定し、コマンドボタンを押下するとuserfoamが
>出てきて、開始日・終了日を入力後、userfoam上のコマンドボタンを押下、
>データが抽出される。
Private Sub CommandButton1_Click()
Dim Da As Date, Da1 As Date
With Worksheets("元表")
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)
If .AutoFilterMode = False Then
.Rows(5).AutoFilter
End If
.Range("F5", .Range("F65536").End(xlUp)).AutoFilter Field:=6, _
Criteria1:=">=" & Da, Operator:=xlAnd, Criteria2:="<=" & Da1
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
>2.データ抽出後、×で閉じる
抽出データが有った時だけ自動に閉じるようにしています。
>3.元表には他にもいろんな情報があるのですが、抽出するデータは指定したデータだけを抽出する。
具体的に書かないと判りません。
|
|