| |
初心者です。さっそくですがＡ列の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ヶ月位前にＴａｋａの名前で
質問させていただきましたが、過去ログ見てたら他にｔａｋａさんが
おられたので名前を岳に変えさせていただきました。
ｔａｋａさん、申し訳ありませんでした。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
