Excel VBA質問箱 IV

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

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


45496 / 76732 ←次へ | 前へ→

【36229】Re:ある文字を選んだらユーザーフォームを表示するには?
発言  真貴子  - 06/3/25(土) 15:02 -

引用なし
パスワード
   質問の仕方が悪くて申し訳ありません。
A列にみかん、りんご、なしのリストボックスがA2:A10までありまして、
みかんとりんごを選んだ場合のみ実行させたいのです。
先ほどのコードを参考にさせてもらい
以下のマクロを実行してみました。計算結果は表示されますが、実行時エラー400
フォームは殊に表示されているので、モーダル表示することはできません。
と、言われるのですが、恐らく2〜5行目の記述の仕方が悪いんだと思います。
どこをどう治せばよいのでしょうか?

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 1).Value = "みかん" Then
UserForm1.Show
ElseIf Cells(Target.Row, 1).Value = "りんご" Then
UserForm1.Show
End If

End Sub
Private Sub CommandButton1_Click()
x = Range("E2").Value
ActiveSheet.Cells(ActiveCell.Row, 2).Value = x * Me.TextBox1.Value

End Sub

3 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 発言

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