Excel VBA質問箱 IV

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

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


45497 / 76732 ←次へ | 前へ→

【36228】Re:ある文字を選んだらユーザーフォームを表示するには?
発言  ぱっせんじゃー  - 06/3/25(土) 14:39 -

引用なし
パスワード
   よく分からないのですが、
A列で選択するのは"みかん"のみ
なのですか?

>>E列の値はどこから出てくるのでしょう?
>あらかじめ設定してあります。

これから推測すると、予めE列には"20円"
と記入されているように取れるのですが、
どうなのでしょう?

それだと、E列の値は"20円"と固定なので、
別に絵tキスとボックスでなくてもInputBox
でもいいような気がします。

テキストボックスにするのなら、

シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 2).Value = "みかん" Then Exit Sub
UserForm1.Show
End Sub

ユーザーフォームのテキストボックスのイベントか実行用の
コマンドボタンに

ActiveSheet.Cells(activecell.Row,2).Value = 20 * Me.TextBox1.Value

と記述すればいいかと思います。
4 hits

【36221】ある文字を選んだらユーザーフォームを表示するには? 真貴子 06/3/25(土) 12:02 質問
【36222】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 12:50 発言
【36224】Re:ある文字を選んだらユーザーフォームを... 真貴子 06/3/25(土) 13:39 発言
【36226】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 14:23 発言
【36227】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 14:24 発言
【36228】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 14:39 発言
【36229】Re:ある文字を選んだらユーザーフォームを... 真貴子 06/3/25(土) 15:02 発言
【36230】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 15:19 発言
【36231】Re:ある文字を選んだらユーザーフォームを... 真貴子 06/3/25(土) 15:27 発言
【36232】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 15:31 発言
【36233】Re:ある文字を選んだらユーザーフォームを... 真貴子 06/3/25(土) 15:45 お礼
【36236】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 15:51 発言
【36237】Re:ある文字を選んだらユーザーフォームを... 真貴子 06/3/25(土) 15:53 お礼
【36238】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 15:53 発言
【36239】Re:ある文字を選んだらユーザーフォームを... ぱっせんじゃー 06/3/25(土) 15:56 発言

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