|
VBAをはじめて間もない初心者です。
いきなりつまずいてしまったのでご教示お願いします。
ユーザーフォームを作成してコマンドボタンを押したら動き出すようにしたいのですが、「コンパイルエラー subまたはFunctionが定義されていません。」というエラーメッセージが出てしまい対処方法が分かりません。
ソースは以下のようなものです。
基本的なことが分かっていないので恐縮ですが、どなたか教えてください。
お願いいたします。
Private Sub CommandButton1_Click()
'変数の宣言
Dim 割引日 As Variant
Dim i As Integer
Dim ws As Worksheets
Dim 手形台帳 As Workbooks
'テキストボックスに入力された割引日を格納
割引日 = TextBox1.Value
'エクセル画面を表示する
Application.Visible = True
'受取手形台帳のオープン
Workbooks.Open "c:\受取手形台帳.xls"
Set 手形台帳 = Workbooks("c:\受取手形台帳.xls")
For i = 1 To 12
Set ws = Worksheets(手形台帳(i))
ws.Select
Range("h1").AutoFilter field:=8, Criteria1:=割引日
Nexti
End Sub
|
|