Excel VBA質問箱 IV

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

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


47550 / 76736 ←次へ | 前へ→

【34140】Re:データの抽出
発言  Statis  - 06/1/27(金) 10:47 -

引用なし
パスワード
   こんにちは
もう一度確認します。

データについて
A列から順にデータがあり1行目は項目行で2行目からデータとなる
F列のデータをオートフィルタし抽出する。


コード説明
Private Sub CommandButton1_Click()
Dim Da As Date, Da1 As Date
With Worksheets("Sheet1") 'データシート
 'TextBoxの値が日付か如何かを確認
  If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
   'Format関数でtextBoxの値の書式をセルの書式に変更
   Da = Format(Me.TextBox1.Value, .Range("F2").NumberFormat)
   Da1 = Format(Me.TextBox2.Value, .Range("F2").NumberFormat)
   'コピー先のセルの値をクリア
   Worksheets("Sheet2").Cells.Clear
   'Sheet1にオートフィルタが設定しているか確認
   If .AutoFilterMode = False Then
     'ない場合設定
     .Rows(1).AutoFilter
   End If
   'F列の値をオートフィルタで変数DAからDA1までを抽出
   .Columns(6).AutoFilter Field:=6, Criteria1:=">=" & Da, Operator:=xlAnd, _
              Criteria2:="<=" & Da1
   'オートフィルタでデータが抽出されたかを確認
   If .Range("F65536").End(xlUp).Row > 1 Then
     '抽出されたデータをコピーしSheet2へ貼り付け
     .AutoFilter.Range.Copy Worksheets("Sheet2").Range("A1")
   Else
     '抽出されたデータがない場合MSGBOXを表示
     MsgBox "抽出データがありません。", vbInformation
   End If
   'オートフィルタを解除
   .AutoFilterMode = False
  Else
   'TextBoxの値が日付と判断出来なかった場合MSGBOXを表示
   MsgBox "抽出日を確認", vbCritical
  End If
End With
End Sub

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

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