
ユーザーフォームの中にval関数を入力したTextBoxを3つ貼り、TextBox合計にその合計を表示させています。(Enterを押すたび表示がかわります)
この合計値というのは文字列なんでしょうか?数値なんでしょうか?
というのも、
TextBox7に
(TextBox合計 - TextBox5*600)\700
TextBox8に
TextBox5*600 + TextBox6*700 - TextBox合計
というのを表示させたいんですが、非表示のままで、動作しません。
検索方法を変えていろいろ調べているんですが、わからず質問させていただきました。
すみませんが、わかる方よろしくお願いします。
No.3ベストアンサー
- 回答日時:
もしかしたら、単にイベントに式を組み込んでいないだけだったりはしませんよね?
----------------------------------------------------------------------------------------
Private Sub TextBox5_Change()
TextBox7 = (Val(TextBox合計) - Val(TextBox5) * 600) \ 700
TextBox8 = Val(TextBox5) * 600 + Val(TextBox6) * 700 - Val(TextBox合計)
End Sub
----------------------------------------------------------------------------------------
Private Sub TextBox6_Change()
TextBox8 = Val(TextBox5) * 600 + Val(TextBox6) * 700 - Val(TextBox合計)
End Sub
----------------------------------------------------------------------------------------
Private Sub TextBox合計_Change()
TextBox7 = (Val(TextBox合計) - Val(TextBox5) * 600) \ 700
TextBox8 = Val(TextBox5) * 600 + Val(TextBox6) * 700 - Val(TextBox合計)
End Sub
----------------------------------------------------------------------------------------
※ リアル表示させるなら式の右辺に記述があるテキストボックスの「Change」イベントに記述しないと反応しません。
※ 通常テキストボックスは文字を返すのでそのままでは四則計算できないので「Val()」で変換しています。← これを「val関数を入力したTextBox」といっているのでしょうか?

No.2
- 回答日時:
>この合計値というのは文字列なんでしょうか?数値なんでしょうか?
文字列です。但し、数字が格納されていれば、数値として扱ってくれます。
>TextBox7に
>・・・というのを表示させたいんですが、非表示のままで、動作しません。
TextBox7,TextBox8に表示する為の
(TextBox合計 - TextBox5*600)\700
TextBox5*600 + TextBox6*700 - TextBox合計
上記の式を実行するトリガが与えられていないのではないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excel vbaで複数のテキストボックスの足し算
Visual Basic(VBA)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
Excel VBA ユーザーフォーム内のラベルにテキストボックスの計算結果を出す方法
Visual Basic(VBA)
-
-
4
VBA テキストボックスで計算
Access(アクセス)
-
5
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい
Excel(エクセル)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
10
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
11
エクセル VBA テキストボックス 掛け算 例)5 × -5 ができない
Excel(エクセル)
-
12
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
13
ユーザーフォームのラベルに日付を表示させる方法があればお願いします。出来ればコード書いていただけると
Visual Basic(VBA)
-
14
Excel VBAでのMultipageの選択
Visual Basic(VBA)
-
15
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
16
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
17
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
18
UserForm1.Showでエラーになります。
工学
-
19
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでアルファベットか数...
-
文字列からタブコードを取り除...
-
VBAでの Replace関数で、ワイル...
-
エクセルで文字列をtxtファイル...
-
Excelで3E8を3.00E+8にしない方...
-
EXCELで=より左の文字を一括で...
-
最も多い文字列を検索するには
-
Excelで指数表現しないようにす...
-
Msgboxの×が押されたとき
-
【Excel VBA】複数ある特定の文...
-
VBScriptでEUC文字列をSJIS文字...
-
Left関数とRight関数を合わせた...
-
エクセルで文字列の最大値を抽...
-
VBAを使って選択した範囲の数字...
-
VBAで、セルの一部の文字色を変...
-
PDFのファイル名をリネームをし...
-
エクセル 数値データを桁をそ...
-
“丸(〇/○/◯)”に似た文字…
-
CStringの文字列検索&抜き出し...
-
ACCESSのSQLでのカンマ’認識に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでアルファベットか数...
-
EXCELで=より左の文字を一括で...
-
VBAでの Replace関数で、ワイル...
-
文字列からタブコードを取り除...
-
VBA2005 16進を2桁で表示したい。
-
エクセルで文字列をtxtファイル...
-
エクセルで文字列の最大値を抽...
-
Excelで3E8を3.00E+8にしない方...
-
Left関数とRight関数を合わせた...
-
アクセスで特定の数字以外(複...
-
Msgboxの×が押されたとき
-
MS SQLServer のSQLで文字列の...
-
Excelで指数表現しないようにす...
-
ORCLEでの小数の表示方法の変更...
-
【Excel VBA】複数ある特定の文...
-
エクセル 数値データを桁をそ...
-
SQL の Update文(?) と ...
-
VBの「As String * 128」とは?
-
aaa.bbb.ccc という、「ドット...
-
同一セル内に関数と文字列を同...
おすすめ情報
回答ありがとうございます。
TextBox1.2.3には
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)
End Sub
このコードを入れています。
教えていただいたコードで試してみます!