- 締切済み
ユーザーフォーム 一致するTEXTBOX同士の計算
VBA初心者で始めてユーザーフォームを作成します。 TEXTBOX1がAの時、TEXTBOX4にTEXTBOX1+TEXTBOX2を計算させ、TEXTBOX5にカーソルを移動させる。 TEXTBOX1がA以外の時、TEXTBOX4にTEXTBOX1の値のみ表示させ、コマンドボタン1に移動させたいのです。 どうしたらいいかアドバイスお願いします。
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- watabe007
- ベストアンサー率62% (476/760)
回答No.1
'TEXTBOX1がAの時、 If Me.TextBox1.Value = A Then 'TEXTBOX4にTEXTBOX1+ TEXTBOX2を計算させ、 Me.TextBox4.Value = Val(Me.TextBox1.Value) + Val(Me.TextBox2.Value) 'TEXTBOX5にカーソルを移動させる。 Me.TextBox5.SetFocus Else 'TEXTBOX1がA以外の時、T 'EXTBOX4にTEXTBOX1の値のみ表示させ、 Me.TextBox4.Value = Me.TextBox1.Value 'コマンドボタン1に移動させたいのです。 Me.CommandButton1.SetFocus End If