Excelにて、ユーザーフォームで、日付けの範囲を指定して、検索しデーターを抽出し
別シートへ転記したいのですが、VBAコードが分からず困っております。
お分かりになる方がおりましたら ご教授願います。
<やりたいこと>
・ユーザーフォームで、日付けの範囲を指定して、検索しデーターを抽出して、
別シートへ転記したい。
ユーザーフォーム(UserForm6)内の
TextBox1の入力日付~TextBox2入力日付の範囲のデーターを
検索ボタン(CommandButton1)をクリックすると検索しデータを
抽出して、別シート(日付)へ転記したい。
◇入力データーは、A列からK列まであり、データーは、増減します。
・検索元シート名:日付検索
・検索:日付検索シートB列
・転記先シート名:抽出
・ユーザーフォーム(UserForm6)
・範囲指定⇒「TextBox1」の入力日付~「TextBox2」入力日付
・「検索」ボタンは、オブジェクト名:CommandButton2
添付写真参照願います。
ユーザーフォームを表示した状態です。
御教授よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんにちは!
一例です。
Private Sub CommandButton2_Click()
Dim i As Long
Dim wS As Worksheet
Set wS = Worksheets("抽出")
With Worksheets("日付検索")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(i, "B") >= DateValue(TextBox1) And .Cells(i, "B") <= DateValue(TextBox2) Then
wS.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 11).Value =.Cells(i, "A").Resize(, 11).Value
End If
Next i
End With
End Sub
こんな感じではどうでしょうか?
※ 質問分では
>検索ボタン(CommandButton1)をクリックすると
と
>・「検索」ボタンは、オブジェクト名:CommandButton2
のようにどちらのコマンドボタンかが不明なので、コードの最初の1行は無視してもらっていいかも・・・
※ シート名などは再確認してください。m(_ _)m
早々に、対応して頂きありがとうございます。
思い通りの結果となりました。
参考に、少しずつ勉強していきます。
誠にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) エクセルVLOOK関数について 3 2022/07/05 08:45
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) Excel 行の"〇" を検索して見出し(日付)を表示させたい 1 2022/04/04 18:35
- Excel(エクセル) Excelについて質問です。 シート1の検索値例えば *ABC* をシート2.3.4から検索して、シ 5 2023/02/17 23:30
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
VBA フォームを使って、期間でレコードを抽出するには?(Excel2003)
Excel(エクセル)
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
-
4
ユーザーフォーム内のテキストボックスからオートフィルター抽出を行う方法
Visual Basic(VBA)
-
5
excel vbaで日付指定で入力
Visual Basic(VBA)
-
6
VBAで指定期間の範囲を抽出し、リストボックスに表示したいです。
Visual Basic(VBA)
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
(VBAにて)日付でデータを抽出するやり方
Excel(エクセル)
-
11
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
12
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
13
UserForm1.Showでエラーになります。
工学
-
14
ユーザーフォームのラベルに日付を表示させる方法があればお願いします。出来ればコード書いていただけると
Visual Basic(VBA)
-
15
指定した日付の範囲内でデータを転記したい。
Excel(エクセル)
-
16
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
17
Excelマクロ 期間を指定してデータを別シートにするには?
Excel(エクセル)
-
18
EXCEL VBAのコンボボックスで日だけを表示する方法
Excel(エクセル)
-
19
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
20
エクセルVBAのフォームで日時を入力しやすくしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【再質問】【マクロ】複数シー...
-
Excelにて、ユーザーフォームで...
-
indirect 関数を使った複数シー...
-
vba SUMIF関数で合計を出す
-
Excel、複数シート同セルを別シ...
-
エクセル 不特定数シートのく...
-
エクセルの主軸と第2軸の0を合...
-
エクセルで円グラフに引き出し...
-
アクセスで#エラーを表示させ...
-
同一セルに日時があるものを日...
-
エクセルで文字が白くなる
-
別のシートから値を取得するとき
-
excelグラフでデータテーブルを...
-
Excelで、空白を表示したい
-
EXCELの散布図で日付が1900年に...
-
Excelで小数点以下1桁の年数を...
-
Excel2017 フィルタ昇順並びがA...
-
【エクセル】区切り文字が含ま...
-
エクセルで文字を含む式に、カ...
-
DATEDIFでマイナス表示をさせたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelにて、ユーザーフォームで...
-
indirect 関数を使った複数シー...
-
Openoffice calc で複雑な入力...
-
【再質問】【マクロ】複数シー...
-
vba SUMIF関数で合計を出す
-
Excel、複数シート同セルを別シ...
-
エクセルで三つの条件での参照...
-
エクセルの関数について : CHOO...
-
Excelの操作方法
-
Excelで複数シートの特定カラム...
-
エクセルで各シートの該当項目...
-
エクセルで条件に一致した別の...
-
エクセル VBA ユーザフォーム ...
-
9枚のシート上の同形式の表を...
-
エクセル 不特定数シートのく...
-
excel マクロで数字を入れると...
-
VBA データ抽出 出力 検索模索!
-
別シートに毎回異なるデータを...
-
ABC DEF GHI の3個の会社を[...
-
エクセルで円グラフに引き出し...
おすすめ情報