Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
テキストボックスの数値を合計しテキストボックスに表示させたい
投稿日時: 20/04/30 11:17:14
投稿者: periodayo

下記のようにテキストボックスが1〜3まであり
テキストボックス1と2に数値を入力したら、
テキストボックス3に1と2を加算した数値を表示させたいのです
 
テキスト   テキスト   テキスト
ボックス1  ボックス2  ボックス3
 15      20    35
 
どなたかご教授願います。

回答
投稿日時: 20/04/30 11:33:42
投稿者: mattuwan44

「テキストボックス」と言われても、
エクセルには様々なテキストボックスがあります。
 
どのテキストボックスでしょうか?
1)ユーザーフォーム
2)シート上のActiveXコントロール
3)図形

投稿日時: 20/04/30 11:59:04
投稿者: periodayo

すみません
 
挿入→テキストボックス→横書きテキストボックスの描画(H)で
作成したテキストボックスです。

回答
投稿日時: 20/04/30 12:36:13
投稿者: mattuwan44

https://officedic.com/excel-vba-autoshape-font/#toc1
 
↑この辺を見たら書けますかね?
 

Sub test()
    With ActiveSheet.Shapes
        .Item("TextBox 3").TextFrame.Characters.Text = _
     Val(.Item("TextBox 1").TextFrame.Characters.Text) _
        + Val(.Item("TextBox 2").TextFrame.Characters.Text)
    End With
End Sub

 
こんな感じです。
が、図形だと、入力時に図形が選択状態になってなんか気持ち悪くないですか?
普通にセルに入れたらいいと思いますが。。。
あるいはActiveXコントロールのテキストボックスを使うか。

投稿日時: 20/04/30 13:02:51
投稿者: periodayo

ありがとうございました。
mattuwan44さん
理解できました。