Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


47538 / 76732 ←次へ | 前へ→

【34149】Re:データの抽出
発言  Statis  - 06/1/27(金) 13:24 -

引用なし
パスワード
   こんにちは

>多分]さんが仰っていた、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.元表には他にもいろんな情報があるのですが、抽出するデータは指定したデータだけを抽出する。

具体的に書かないと判りません。

0 hits

【33383】データの抽出 福神漬 06/1/10(火) 12:49 質問
【33385】Re:データの抽出 Jaka 06/1/10(火) 13:39 発言
【33387】Re:データの抽出 福神漬 06/1/10(火) 14:08 発言
【33386】Re:データの抽出 Statis 06/1/10(火) 13:45 発言
【33389】Re:データの抽出 福神漬 06/1/10(火) 14:13 発言
【33392】Re:データの抽出 Statis 06/1/10(火) 15:00 回答
【34111】Re:データの抽出 福神漬 06/1/26(木) 16:14 お礼
【34114】Re:データの抽出 福神漬 06/1/26(木) 16:43 質問
【34115】Re:データの抽出 Statis 06/1/26(木) 16:46 発言
【34134】Re:データの抽出 福神漬 06/1/27(金) 10:13 発言
【34136】Re:データの抽出 多分 06/1/27(金) 10:25 発言
【34140】Re:データの抽出 Statis 06/1/27(金) 10:47 発言
【34145】Re:データの抽出 福神漬 06/1/27(金) 12:18 質問
【34149】Re:データの抽出 Statis 06/1/27(金) 13:24 発言
【34162】Re:データの抽出 福神漬 06/1/27(金) 15:20 発言
【34164】Re:データの抽出 Statis 06/1/27(金) 15:33 発言
【34165】Re:データの抽出 福神漬 06/1/27(金) 15:58 発言
【34167】Re:データの抽出 Statis 06/1/27(金) 16:11 発言
【34211】Re:データの抽出 Hiro 06/1/28(土) 21:18 質問
【34265】Re:データの抽出 Statis 06/1/30(月) 9:56 回答
【34279】Re:データの抽出 福神漬 06/1/30(月) 16:04 発言
【34282】Re:データの抽出 Statis 06/1/30(月) 16:31 回答
【34284】Re:データの抽出 福神漬 06/1/30(月) 16:49 発言
【34286】Re:データの抽出 Statis 06/1/30(月) 17:12 回答
【34293】Re:データの抽出 Hiro 06/1/30(月) 21:12 質問
【34310】Re:データの抽出 Statis 06/1/31(火) 9:08 発言
【34333】Re:データの抽出 Hiro 06/1/31(火) 20:42 発言
【34313】Re:データの抽出 福神漬 06/1/31(火) 9:53 お礼
【34314】Re:データの抽出 Statis 06/1/31(火) 10:02 回答
【34315】Re:データの抽出 福神漬 06/1/31(火) 10:49 お礼

47538 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free