Excel VBA質問箱 IV

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

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


47573 / 76732 ←次へ | 前へ→

【34111】Re:データの抽出
お礼  福神漬  - 06/1/26(木) 16:14 -

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

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 お礼

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