ユーザーフォームの中に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も見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excel vbaで複数のテキストボックスの足し算
Visual Basic(VBA)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
Excel VBA ユーザーフォーム内のラベルにテキストボックスの計算結果を出す方法
Visual Basic(VBA)
-
-
4
ユーザーフォームで数字にカンマを付けたい
Excel(エクセル)
-
5
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
6
VBA テキストボックスで計算
Access(アクセス)
-
7
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
8
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
9
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
10
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
エクセル VBA テキストボックス 掛け算 例)5 × -5 ができない
Excel(エクセル)
-
13
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
14
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
15
エクセル ユーザーフォームで数値の合計を表示するには
Excel(エクセル)
-
16
Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法
Visual Basic(VBA)
-
17
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
18
VBAでユーザーフォームにセル値を表示させるには
Visual Basic(VBA)
-
19
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
20
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでアルファベットか数...
-
文字列からタブコードを取り除...
-
vbsからバッチファイル実行時の...
-
Excelで3E8を3.00E+8にしない方...
-
bashスクリプトでの文字列から...
-
EXCELで=より左の文字を一括で...
-
リストボックスの文字列の取得
-
同一セル内に関数と文字列を同...
-
delphiにて 文字列の最後の改...
-
UWSCに詳しい方簡単なテキスト...
-
アクセスでのインポート時の改...
-
16進数を10進数に簡単に変換す...
-
【Excel VBA】複数ある特定の文...
-
VBAの質問です 数値を文字列に
-
Excelで指数表現しないようにす...
-
文字列からカンマを取り除きたい
-
VBの「As String * 128」とは?
-
ステータスバー
-
php言語の脆弱性について
-
最も多い文字列を検索するには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでアルファベットか数...
-
EXCELで=より左の文字を一括で...
-
文字列からタブコードを取り除...
-
VBAでの Replace関数で、ワイル...
-
Excelで指数表現しないようにす...
-
Excelで3E8を3.00E+8にしない方...
-
エクセルで文字列をtxtファイル...
-
【Excel VBA】複数ある特定の文...
-
Left関数とRight関数を合わせた...
-
同一セル内に関数と文字列を同...
-
アクセスで特定の数字以外(複...
-
MS SQLServer のSQLで文字列の...
-
エクセルで文字列の最大値を抽...
-
VBA2005 16進を2桁で表示したい。
-
ORCLEでの小数の表示方法の変更...
-
エクセル 数値データを桁をそ...
-
VBの「As String * 128」とは?
-
CStringの文字列検索&抜き出し...
-
エクセルでセル内の文字列の最...
-
Msgboxの×が押されたとき
おすすめ情報
回答ありがとうございます。
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
このコードを入れています。
教えていただいたコードで試してみます!