|
HITSUJI さん、こんばんわ。
>Workbook_SheetChangeイベント関数で
>セルのカーソル位置が変わった時に
>前にカーソルのあったセルのデータを調べるように
>作成してます。
カーソル位置が変わったら・・・は、ChangeではなくSelectionChangeイベントです。が、やりたい事からするとChangeイベント(セルの中身が変わったら発生)がいいようです。
>ところが、「みかん」の横のセルに自動表示させようと
>しているところで無限ループになってしまっているようなのです(泣)。
ここでもChangeイベントが起きているからです。
EnableEventsプロパティでヘルプを見てね。
シートのイベント例
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'単一セルならば何を入れても●にする
If Target.Count = 1 Then
Target.Value = "●"
End If
Application.EnableEvents = True
End Sub
|
|