[[20190613010747]]　『IFとCallの併用はできない？』（yunoris）　ページの最後に飛ぶ

『IFとCallの併用はできない？』（yunoris）

If Range("A1")="ON" Then

   Call sample1
End If

この様に、もしA1に「ON」と入力されていたらsample1を実行という様にしたのですがエラーが出て実行されません

IFとCallは併用できないのでしょうか？

＜使用 Excel：unknown、使用 OS：Windows10 ＞

回答でなくて確認です。実際にはどの部分でどのようなエラーがでたのでしょうか？
sample1というプロシージャを用意してませんでした！なんてことはないですよね？

（もこな２） 2019/06/13(木) 02:53

 Dim aaa as 同じ型
 Call sample1(aaa)

 sub  sample1(hhh as 同じ型)

 尚、aaaとhhhは、同じ型の変数。
 まあ、変数じゃなくても良いけど。

 Call sample1(1234)
 sub  sample1(hhh as 数値型)

（BJ） 2019/06/13(木) 03:49

sample1が２箇所のモジュールに記載されているという可能性も
（通りすがり） 2019/06/13(木) 09:34

＞IFとCallは併用できないのでしょうか？

併用できます。

メッセージボックスを表示します。

 Sub test()
  If Range("A1") = "ON" Then Call sample1
 End Sub

 Sub sample1()
 　MsgBox "aaa"
 'Range("A2") = "bbb"
 End Sub

（のりん） 2019/06/13(木) 10:06

回答頂き有り難う御座います
家のPCでやってみたところできました！
会社のPCだと何回やってもダメだったもので
もう一度入力ミスがないか確認してみます
（yunoris） 2019/06/14(金) 01:20

＞会社のPCだと何回やってもダメだった
繰り返しになりますが、実際にはどの部分でどのようなエラーがでたのでしょうか？
提示いただくとアドバイスできることがあるかもしれません。

＞一度入力ミスがないか確認
変数の宣言を強制しておけば、タイプミスで変数扱いになったものがあっても指摘されるようになるので、間違い探しが楽になります。
http://officetanaka.net/excel/vba/beginner/06.htm

（もこな２） 2019/06/14(金) 08:35

 他、こんな風になってないですかね?

 標準モジュール
 Private Sub test1()
   MsgBox 123
 End Sub

 フォームモジュール
 Private Sub CommandButton1_Click()
   Call test1
 End Sub

 だったら、
 Private Sub test1()
 　↓
 Sub test1()

 そういえば、未だにどんなエラーか書いてないですね。
（BJ） 2019/06/14(金) 12:22

コメント返信：