|
初心者です。さっそくですがA列の7行目以降にコードが入っており
新たにコードを追加した時、すでに記入されているダブッたコードを入力すると
メッセージを出すようにしたつもりです。
イベントもFor 〜 Next構文も初めてですが、下記のコードで
コンパイルエラー「Nextに対応するForがありません」が
出てしまいました。なぜなのかさっぱり分りません。
どなたか、原因を教えていただけないでしょうか。
因みに、test()で試して見たところOKでした。
その差もよく分っていません。
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ヶ月位前にTakaの名前で
質問させていただきましたが、過去ログ見てたら他にtakaさんが
おられたので名前を岳に変えさせていただきました。
takaさん、申し訳ありませんでした。
|
|