Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11558 / 13645 ツリー ←次へ | 前へ→

【15437】テキストボックスの計算 kitano 04/6/24(木) 19:28 質問[未読]
【15442】Re:テキストボックスの計算 IROC 04/6/24(木) 20:16 回答[未読]
【15450】Re:テキストボックスの計算 kitano 04/6/25(金) 12:16 質問[未読]
【15451】Re:テキストボックスの計算 IROC 04/6/25(金) 12:29 回答[未読]
【15454】Re:テキストボックスの計算 kitano 04/6/25(金) 14:25 お礼[未読]
【15457】Re:テキストボックスの計算 kitano 04/6/25(金) 16:11 発言[未読]
【15458】Re:テキストボックスの計算 IROC 04/6/25(金) 16:22 回答[未読]
【15461】Re:テキストボックスの計算 kitano 04/6/25(金) 16:48 質問[未読]
【15463】Re:テキストボックスの計算 つん 04/6/25(金) 17:48 回答[未読]
【15464】Re:テキストボックスの計算 kitano 04/6/25(金) 18:22 お礼[未読]
【15465】Re:テキストボックスの計算 IROC 04/6/25(金) 19:04 回答[未読]
【15466】Re:テキストボックスの計算 kitano 04/6/25(金) 19:28 お礼[未読]
【15468】Re:テキストボックスの計算 IROC 04/6/25(金) 19:35 回答[未読]
【15469】Re:テキストボックスの計算 ウシロメタさ 04/6/25(金) 19:46 発言[未読]

【15437】テキストボックスの計算
質問  kitano E-MAILWEB  - 04/6/24(木) 19:28 -

引用なし
パスワード
   テキストボックス1に入力した数値とテキストボックス2に入力した数値の計算をフォームの中で出来ますか?例えばテキストボックス1に入力した数値-テキストボックス2に入力した数値=テキストボックス3に答えを出せませんか、どなたかよろしくお願いします

【15442】Re:テキストボックスの計算
回答  IROC  - 04/6/24(木) 20:16 -

引用なし
パスワード
   ユーザーフォーム上のテキストボックスですよね?

textbox3.text = textbox2.text - textbox1.text

で出来ますよ。

但し、数値以外のものが入力されると
エラーになりますので、
そのあたりは入力制限の処置が必要でしょう。

【15450】Re:テキストボックスの計算
質問  kitano E-MAILWEB  - 04/6/25(金) 12:16 -

引用なし
パスワード
   よかったら例として教えてもらえませんか。お願いします

【15451】Re:テキストボックスの計算
回答  IROC  - 04/6/25(金) 12:29 -

引用なし
パスワード
   >textbox3.text = textbox2.text - textbox1.text

と書きましたけど・・?

ご自分ではどのくらい出来るのですか?
VBAの使い方を一から教えて欲しいということでしょうか?
だとすれば掲示板では難しいので、
VBA入門のホームページなどを参考にしては如何でしょうか?

【15454】Re:テキストボックスの計算
お礼  kitano E-MAILWEB  - 04/6/25(金) 14:25 -

引用なし
パスワード
   IROC さん、ありがとうございました。
出来ました。どうもおせわになりました。

【15457】Re:テキストボックスの計算
発言  kitano E-MAILWEB  - 04/6/25(金) 16:11 -

引用なし
パスワード
   IROC さん、何回もすいません。後1つ質問させて下さい。
Textの中に常時0を表示したい場合は、どのようにすれば、言いですか

【15458】Re:テキストボックスの計算
回答  IROC  - 04/6/25(金) 16:22 -

引用なし
パスワード
   >Textの中に常時0を表示したい場合は、どのようにすれば、言いですか

常時0 というのは表現がおかしくないですか?

常時0 ならラベルで良いと思います。

【15461】Re:テキストボックスの計算
質問  kitano E-MAILWEB  - 04/6/25(金) 16:48 -

引用なし
パスワード
   すいません質問内容がおかしくて
先ほど教えていただいた
textbox3.text = textbox2.text - textbox1.text
でtextbox2かtextbox3が空白の時エラーがでます

フォームを立ち上げたときtextboxの中に0を表示できませんか

【15463】Re:テキストボックスの計算
回答  つん E-MAIL  - 04/6/25(金) 17:48 -

引用なし
パスワード
   kitano さん、こんにちは

横から失礼します。

>textbox3.text = textbox2.text - textbox1.text
>でtextbox2かtextbox3が空白の時エラーがでます
>フォームを立ち上げたときtextboxの中に0を表示できませんか

フォームの、Initializeイベント内で、

TextBox3.text = 0

のように書けば、それは出来ますけど、
そういうエラー処理は、上記の計算をするタイミングでされる方がいいと思います。
フォームの表示時に、「0」を入れておいても、ユーザーに消されてしまえばそれまでですものね。
あるいは、TextBoxのChangeイベントで、空白になった場合は「0」を入れる処理を追加するとか……こっちのが簡単かな

【15464】Re:テキストボックスの計算
お礼  kitano E-MAILWEB  - 04/6/25(金) 18:22 -

引用なし
パスワード
   始めまして、つん さん、どうもありがとうございます。
TextBox5.Text = 0のほうでの0表示ができましたが
TextBoxのChangeイベントで、空白になった場合は「0」を入れる処理を追加する方法をがんばってみます。どうもお世話になりました。

【15465】Re:テキストボックスの計算
回答  IROC  - 04/6/25(金) 19:04 -

引用なし
パスワード
   計算をコマンドボタンで実行するようにすれば、
簡単なのですが、
入力に応じて随時処理したいのであれば、
BeforeUpdateイベントは如何でしょうか?

【15466】Re:テキストボックスの計算
お礼  kitano E-MAILWEB  - 04/6/25(金) 19:28 -

引用なし
パスワード
   IROC さん、たびたびアドバイスありがとうございます。

【15468】Re:テキストボックスの計算
回答  IROC  - 04/6/25(金) 19:35 -

引用なし
パスワード
   以下のようにすれば、 0 は気にしないで大丈夫です。

Private Sub TextBox1_Change()
  TextBox3.Value = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub

Private Sub TextBox2_Change()
  TextBox3.Value = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub

【15469】Re:テキストボックスの計算
発言  ウシロメタさ  - 04/6/25(金) 19:46 -

引用なし
パスワード
   テキストボックスのプロパティで
valueを0に設定すれば
フォーム出現時に毎度「0」になります

11558 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free