- ベストアンサー
エクセルVBAのTextbox同士の計算
エクセルVBAのTextbox同士の計算 フォームの中で、TextBox1とTextBox2の合計を常にTextBox3に表示する方法を教えて下さい。 TextBox1やTextBox2には、数字が入らないこともあります。 両方ともに数字が入っていない時は、0を表示させたいです。 宜しくお願いします。
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- aloha88600
- ベストアンサー率17% (10/58)
- aloha88600
- ベストアンサー率17% (10/58)
- aloha88600
- ベストアンサー率17% (10/58)
関連するQ&A
- エクセルVBAのテキストボックス
VBA初心者で調べても分からなかったので質問をします。 TextBox1とTextBox2の合計をTextBox3に表示する方法を教えてください。 TextBox1と2は、直接入力するのではなく、同じフォーム内の別のTextBoxに数字を入力するとそれに関連した値がTextBox1と2に入力されるようにしてあります。 分かりにくい説明ですが宜しくお願いします。
- ベストアンサー
- Visual Basic
- EXCEL TextBox farmat
excel VBA フォームの TextBox入力時 1,200.5 のように 桁区切りと少数点以下を表示したいのですが Formatの指定で可能でしょうか Format(TextBox1, "#,###.#") ではダメなようです
- ベストアンサー
- Excel(エクセル)
- VBA テキストボックスで計算
VBAの勉強を始めたばかりで、見よう見まねで色々作っています。 ユーザーフォームのテキストボックスに、計算結果を表示したいのですが、行き詰まってしまいました。 textbox1 textbox2 . . textbox5 があり、textbox6に、1~5に入力された数字を足して、消費税額が出るようにしたいです。 例えば textbox1・・・100,000 textbox2・・・200,000 と入っていたら textbox6に 【消費税額 15,000円】 と表示させたいです。 textbox1~5は、1から順番に数字を入れていきますが、全てに入るとは限りません。 不足情報等がありましたら、ご指摘下さい。 ご教授の程、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ユーザーフォーム 一致するTEXTBOX同士の計算
VBA初心者で始めてユーザーフォームを作成します。 TEXTBOX1がAの時、TEXTBOX4にTEXTBOX1+TEXTBOX2を計算させ、TEXTBOX5にカーソルを移動させる。 TEXTBOX1がA以外の時、TEXTBOX4にTEXTBOX1の値のみ表示させ、コマンドボタン1に移動させたいのです。 どうしたらいいかアドバイスお願いします。
- 締切済み
- Visual Basic
- エクセルVBAについて質問です。
エクセルVBAについて質問です。 TextBox1に例えば「2」と数字を入力すると、Cells(1,1)に「1/2」と分数表示させ、且つその分数を数値として扱いたいのですが、何か良い方法はありませんか?
- ベストアンサー
- Visual Basic
- Excel VBA(Win2000、Office2000)
現在、VBAでExcelのシートに書き込むフォームを作っており、日付に関することで困っています。 フォーム上には複数のComboBox、TextBoxが並んでおり、OKボタンをクリックすることで、フォーム上に並んだ、ComboBox、TextBoxの値をセルに書き込むようにしています。 問題の日付に関する質問についてですが・・・ ユーザーフォーム上に 年を入力するComboBox1 → 2004 月を入力するComboBox2 → 5 日を入力するComboBox3 → 7 *いづれも、プルダウンから数字を選択して入力するようにしています。 この3つの入力値を合わせて、2004/05/07と認識させて、TextBox1に"金"と表示させたいのですが、どのようにしたら良いでしょうか? TextBox1表示されるタイミングは、日を入力するComboBox3が入力された時としたいです。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- LabelとTextboxの自動計算を希望
ComboBox2のリスト選択で連動でlabel2とlabel12の数字変更 TextBox2には数字入力 Label12(数字) x TextBox2(数字) = Lavel22(乗算合計)で Label12変えないで、TextBox2の数字変えた時はLabel22の合計変動 Label12の数字変えて、TextBox2の数字変ない時はLabel22の合計変わらない現状です。 Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case True 'TextBox2かLabel12が空白の時Label22空白 Case TextBox2.Value = "" Or Label12.Caption = "" Label22.Caption = "" Case Else 'TextBox2とLabel12が数字の時Label22はTextBox2の数字とLabel12数字を乗算する If IsNumeric(TextBox2.Value) And IsNumeric(Label12.Caption) Then _ Label22.Caption = TextBox2 * Label12 'Label22に数字がある時Label29に合計表示 Label29.Caption = Label22 End Select End Sub ComboBox2_change()作って、TextBox2_KeyUp書いてる内容を書けば動くでしょうが・・・ 同じ内容2つ書かないで動く方法があれば非常に助かります。 いい方法無さそうならComboBox2_change()作って書こうかな・・・と思ってます
- ベストアンサー
- Visual Basic
- エクセルVBAで計算機を作成について
エクセルVBAのユーザーフォームで計算機を作成しております。 以下の点で参考書で調べたのですが壁にぶつかっております。 1、クリアボタンを作成して押下する事によって表示さ れている数字を「0」にしたいのですが出来ません。 2、テキストBOXに表示される数字を12桁まで表示にし たいのですがMAXLENGTHを12にしても制限をかける事 が出来ません。 3、テキストBOXに数字や計算結果を表示してるのです が、手動入力を出来ない様にしたいのですが出来 ません。 非常にせっぱ詰まっていて言葉足らずかもしれませんがどなたか教えてください。
- ベストアンサー
- その他(プログラミング・開発)
- エクセルVBA ユーザーフォームのtextboxの書式設定って?
エクセルでユーザーフォームを作成しています。 金額を入力するTextBoxを作ったのですが、 その表示方法を「,」(カンマ)で桁区切り で表示さいたいのですが、方法ってありますか? TextBoxプロパティーを色々見ているのですが、 セルの書式設定みたいなものは無さそうなのですが、 方法があれば、教えていただきたく思います。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel計算の表示
Excelの表示方法について セル A1、A2、A3があります。A4のセルにA1,A2,A3の合計の計算式を入れます。その時に、各セルに数字が入らないと計算しない方法はありませんか。(例:3+4+ブランク=表示なし ブランクに数字を入れると合計が出る)まとまっていませんが、よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- 会社に入社する前の段階で、企業側が労働者に対して、入社した際に共に働く人が障害者だと開示する義務ってあるのでしょうか?
- 転職した際に、人間関係でトラブルになり上司に相談したところ、一緒に働く相手が障害を持った方だと知り困っている状況です。
- その障害をもった方と一緒に仕事をすることになり、自身に経験がないため、入社前に気をつけることはあるでしょうか?
補足
ご指摘頂いた通りに、テキストボックスのイベントで行うようにしました。 そうしたらうまく行きました。が...もう1点問題が発生してしまいました。 テキストボックス内の数字に区切りを入れたくて、下記のように入れました。 そしたら合計の計算が、Textbox1に入れた数字のの1/1000として認識されて計算してしまいます。 対策としてはどうすればよいのでしょうか? Private Sub TextBox1_Change() TextBox1.Text = Format(TextBox1.Text, "#,##0") TextBox1.SelStart = Len(TextBox1.Text) + 1 With UserForm TextBox3 = Val(TextBox1.Value) + Val(TextBox2.Value) TextBox3.Text = Format(TextBox3.Text, "#,##0") TextBox3.SelStart = Len(TextBox3.Text) + 1 End With End Sub