Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5493 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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が原因でした。
なんか恥ずかしい理由で申し訳ありません。
ありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5493 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free