• 締切済み

ユーザーフォーム 一致するTEXTBOX同士の計算

VBA初心者で始めてユーザーフォームを作成します。 TEXTBOX1がAの時、TEXTBOX4にTEXTBOX1+TEXTBOX2を計算させ、TEXTBOX5にカーソルを移動させる。 TEXTBOX1がA以外の時、TEXTBOX4にTEXTBOX1の値のみ表示させ、コマンドボタン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

関連するQ&A

専門家に質問してみよう