エクセルVBAのAutoFilterについて

質問

はじめまして。今回初めてエクセルVBAに挑戦していますが、行き詰まってしまいました。

エクセルで顧客管理データベースを作っています。シートの一番上の行に、ID、顧客名、依頼内容、依頼日、処理終了日・・・・などデータベースでいう「フィールド名」を入力し、２行目以下に顧客データを打ち込む形です。
当社では週一回会議で、前の週の新規顧客名の一覧と前の週に処理終了した顧客名の一覧をリストにして配りますが、エクセルVBAを使ってそのリストを作るプログラムを作ろうと試みました。
　まず、UserFormを用いて、抽出したい期間（何年何月何日から何年何月何日）をそれぞれTextBox1、TextBox2の値で所得します。そして、開始年月日をDateFromという変数に代入、終了年月日をDateToという変数に代入し、AutoFilterで検索して別シートにコピーするという流れです。
　前置きが長くなりましたが、質問です。
１　この変数の定義、つまり　DateFrom = UserForm1.TextBox1.value　という文で所得しようと思いますが、うまくいきません。書式がおかしいのでしょうか？
２　AutoFilterの使い方を「新しいマクロの記録」を使って見てみると
Selection.AutoFilter Field:=10 _
, Criteria1:=">=2004/4/27", Operator:=xlAnd _
, Criteria2:="<=2004/5/10"
というかたちになるようですが、>=2004/4/27の部分を変数を使って指定するには、書式はどのようにしたらいいのでしょうか。このまま>=DateFromの形ではうまくいかないようです。

回答No.1

imogasi · ベストアンサー

１．ＶＢＥ画面で、挿入－ユーザーフォーム
２．ユーザーフォーム上にテキストボックスを２個貼りつける。コマンドボタンを１個貼りつける（フィルタ実行起動用）。
３．コマンドボタンをダブルクリック。
Private Sub CommandButton1_Click()
End Sub
が出る。
４．コードを下記のようにする。
Private Sub CommandButton1_Click()
datefrom = UserForm1.TextBox1.Text
dateto = UserForm1.TextBox2.Text
' MsgBox datefrom
' MsgBox dateto
'----
Range("a1:c12").Select
Selection.AutoFilter Field:=1 _
, Criteria1:=">" & datefrom, Operator:=xlAnd _
, Criteria2:="<" & dateto
End Sub
５．実行－ＳＵＢ／ユーザーフォームの実行をクリック。
６．始期年月を入力。2004/5/14のように。ＴＡＢキーで
次のテキストボックスへ移動
７．終期年月を入力。2004/5/20のように。
８．コマンドボタンをクリック。
９．フィルタが実行されて、ワークシートに
日時 氏名 コード
2004/5/14 山村 k
2004/5/16 植山 d
2004/5/17 下山 r
2004/5/18 中山 f
2004/5/19 山中 g
2004/5/20 山内 h
--------
テスト用元データはＡ１：Ｃ１２に
日時 氏名 コード
2004/4/23 山田 a
2004/4/30 山下 b
2004/5/13 山上 c
2004/5/14 山村 k
2004/5/16 植山 d
2004/5/17 下山 r
2004/5/18 中山 f
2004/5/19 山中 g
2004/5/20 山内 h
2004/5/21 外山 I
2004/5/22 大山 j
でした。

お礼

初歩的な質問に、丁寧な回答をありがとうございました。TextBoxからの所得は"Value"ではなく、"Text"で行えばいいんですね。ありがとうございました。