|
超初心者・・・さん、おはようございます
>ユーザーフォームを作成してコマンドボタンを押したら動き出すようにしたいのですが、「コンパイルエラー subまたはFunctionが定義されていません。」というエラーメッセージが出てしまい対処方法が分かりません。
> Nexti
直接の原因はこれです。
書くなら Next i です。
Nextとiがくっついていたので、関数(プロシージャ)と判断されてしまったものです。
でもそれ以外もちょっと無理がありそうです。
超初心者・・・さんが意図されたであろう形に手をいれてみたので、違いを確認しながら試してみてね。
Private Sub CommandButton_Click()
'変数の宣言
Dim 割引日 As Variant
Dim i As Integer
Dim ws As Worksheet
Dim 手形台帳 As Workbook
'テキストボックスに入力された割引日を格納
'割引日 = TextBox1.Value
'エクセル画面を表示する
Application.Visible = True
'受取手形台帳のオープン
Set 手形台帳 = Workbooks.Open("c:\受取手形台帳.xls")
For i = 1 To 12
Set ws = 手形台帳.Sheets(i)
ws.Select
Range("h1").AutoFilter field:=8, Criteria1:=割引日
Next i
End Sub
|
|