|
こんにちは
▼okb さん:
>いまいち、理解できないのですが、やりたいことはブックオープン時、またはマクロでRANGEを選択後、アクティブセルが列=6 行>17でイベントを実行したいという
>ことなんですが...。
>
「いまいち、理解できない」という台詞は回答者側のものだと思います。
こういう事でしょうか?
Private Sub Workbook_Open()
'ブックオープン時
Dim r As Range
With ActiveCell
If .Row > 16 Then
If .Column = 6 Then
Set r = .Cells
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
r.Select
End If
End If
End With
End Sub
Sub test()
'マクロでRANGEを選択後、アクティブセルが列=6 行>17でイベントを実行
'例えばセルF18の場合
Dim r As Range
If ActiveCell.Address = Range("F18").Address Then
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
Range("F18").Select
End If
End Sub
|
|