|
質問の仕方が悪くて申し訳ありません。
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
|
|