Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39235 / 76732

←次へ　｜　前へ→


	【42612】Foｒ　・・・Ｎｅxt構文でエラー

岳 - 06/9/16(土) 14:48 -


	引用なし

	パスワード

初心者です。さっそくですがＡ列の7行目以降にコードが入っており
新たにコードを追加した時、すでに記入されているダブッたコードを入力すると
メッセージを出すようにしたつもりです。
イベントもFor　～　Ｎｅｘｔ構文も初めてですが、下記のコードで
コンパイルエラー「Nextに対応するＦｏｒがありません」が
出てしまいました。なぜなのかさっぱり分りません。
どなたか、原因を教えていただけないでしょうか。
因みに、test（）で試して見たところＯＫでした。
その差もよく分っていません。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Long
Dim i As Integer

　　　Range("A65536").End(xlUp).Activate
　　　R = Worksheets("単価変更表").UsedRange.Rows.Count
’　　　　MsgBox R　　’行の確認用

For i = 7 To R - 1
　　 If Cells(R, 1) = Cells(i, 1) Then
　　 MsgBox "データー重複しています"
　Next
　
End Sub
･････････････････････････････････・・・・・・・・・・・・・・・
Sub test()

Dim i As Integer
　　For i = 1 To 5
　　　　　MsgBox "ok"
　　Next
End Sub

宜しくお願いいたします。なお2ヶ月位前にＴａｋａの名前で
質問させていただきましたが、過去ログ見てたら他にｔａｋａさんが
おられたので名前を岳に変えさせていただきました。
ｔａｋａさん、申し訳ありませんでした。

0 hits

▼

【42612】Foｒ　・・・Ｎｅxt構文でエラー 岳 06/9/16(土) 14:48

≪