|
遅ればせながら、こういうのもありますので載せておきます。
まず、ThisWorkbookのコードに
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnKey "~", "test"
End Sub
そして、標準モジュールに
Sub test()
Application.ScreenUpdating = False
Do
If ActiveCell.Column = 256 Then
MsgBox "これより右の列で保護されていないセルはありません"
Exit Sub
End If
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Locked = False
Application.ScreenUpdating = True
End Sub
です。
ちなみに、"test"の部分は標準モジュールのモジュール名なので、別のモジュール名にするときは、一緒に変えてあげてください
あっ、あと、テンキーのエンターを使う場合に上手くいかなければ、「Onkey "~"」の"~" を"{ENTER}"に変えてください。
|
|