|
Excel2000 でXPです
一つのシートにテキストボックスとコマンドボタンを2つずつ配置し、
ボタン1を押すとテキストボックスに入力された文字を入れ替えるという
マクロを組もうとしています。
ボタン2を押すとテキストが消去されるようにしています。
複数のプロシージャに分けてのマクロ作成を練習しています。
イベントプロシージャとして
Option Explicit
Private Sub CommandButton1_Click()
Dim box1 As String
Dim box2 As String
inputTxt TextBox1.Text, TextBox2.Text
Call inputTxt(box1, box2)
End Sub
Private Sub CommandButton2_Click()
Dim box1 As String
Dim box2 As String
inputTxt "", ""
Call inputTxt(box1, box2)
End Sub
標準モジュールに
Option Explicit
Sub inputTxt(box1 As String, box2 As String)
TextBox1.Text = box2
TextBox2.Text = box1
End Sub
と書きました。実行するとエラーがでて、
Sub inputTxt(box1 As String, box2 As String)
TextBox1←変数が定義されてません
となってしまうんです。
ささいな間違いか、根本的な間違いか検討もつきませんが、
どなたか解決策をご教授いただけないでしょうか
|
|