|
色々とトライしてみましたが、イベント抑制出来ませんでした。もうパニック状態・・・
そんでもって、カウンタを使って制御してみました。
何とか頑張って自分のやりたい事は出来ました。
イベント抑制等の別のやり方がありましたら、お教えよろしくお願い致します。
確認は、来週火曜となってしまいますが。
Dim C As Integer
Dim Frg As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Row > 15 And C = 0 Then
ActiveWindow.ScrollRow = 1
ActiveWindow.SmallScroll Down:=.Row - 15
If Frg = True Then
C = C + 1
End If
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Frg = False
C = 0
With Target
If .Row = 45 Then
Frg = True
Cells(58, .Column).Select
ElseIf .Row = 58 And Cells(46, .Column).Value = "" Then
Frg = True
Cells(47, .Column).Select
ElseIf .Row = 57 Then
Frg = True
Cells(46, .Column).Select
ElseIf .Row = 46 Then
Frg = True
Cells(59, .Column).Select
End If
End With
End Sub
|
|