Excel VBA質問箱 IV

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

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


5482 / 13644 ツリー ←次へ | 前へ→

【50548】excel vba でIF文を使うとよくわからいエラーになってしまいます wei 07/7/31(火) 20:02 質問[未読]
【50549】Re:excel vba でIF文を使うとよくわからい... りん 07/7/31(火) 20:35 回答[未読]
【50551】Re:excel vba でIF文を使うとよくわからい... wei 07/7/31(火) 20:41 お礼[未読]

【50548】excel vba でIF文を使うとよくわからいエ...
質問  wei  - 07/7/31(火) 20:02 -

引用なし
パスワード
   初めまして。VBA初心者です。
セルの値を取得して、ある値ではない時だけ処理をしたく、
以下のようなVBAを作ってみたのですが、コメントになっているIF文を有効にすると
『SubまたはFunctionが定義されていません。』とコンパイルエラーが表示されてしまいます。

IF文を使っただけでどうしてこのエラーになってしまうのでしょうか?
よろしくお願いします。

-----------------------------------------------
Sub TestSHORT()
  i = 2

  Worksheets("SHORT").Cells(i, 1).Activate
  data = ActiveCell.Value

  'If data <> 5 Then
  '  msg "error"
  'End If

End Sub
-----------------------------------------------

【50549】Re:excel vba でIF文を使うとよくわから...
回答  りん E-MAIL  - 07/7/31(火) 20:35 -

引用なし
パスワード
   wei さん、こんばんわ。

>セルの値を取得して、ある値ではない時だけ処理をしたく、
>以下のようなVBAを作ってみたのですが、コメントになっているIF文を有効にすると
>『SubまたはFunctionが定義されていません。』とコンパイルエラーが表示されてしまいます。
>
>IF文を使っただけでどうしてこのエラーになってしまうのでしょうか?
>よろしくお願いします。
Ifの使い方は和違ってませんが、「msg」というコマンドがないので、「msgって何?」という状態なのでエラーになっています。
メッセージボックスを出したいということでいいですか?
>-----------------------------------------------
>Sub TestSHORT()
>  i = 2
>
>  data =Worksheets("SHORT").Cells(i, 1).Value
>  If data <> 5 Then
>    MsgBox "error"
>  End If
>
>End Sub
>-----------------------------------------------

これでいかがでしょうか。

【50551】Re:excel vba でIF文を使うとよくわから...
お礼  wei  - 07/7/31(火) 20:41 -

引用なし
パスワード
   ▼りん さん:
解決しました!ご指摘の通り、IFじゃなくて中のmsgが原因でした。
なんか恥ずかしい理由で申し訳ありません。
ありがとうございました!

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