どなたかわかる方ご教授お願いします。
最大表示領域が４行で１行おきにセルを
ロックしているスプレッドがあるとします。
アクティブセルが３行目で↓キー押下時、４行目を飛び越え
５行目にアクティブセルが移動まではいいのですが、この時点で
TopRow値を３にしたいのです。
LeaveCellイベント内でPositionプロパティ等を使って操作しているのですが
どうしてもTopRow値が２でもう１行スクロールさせることができません。
わかりづらい説明で申し訳ないのですが、どなたかアドバイスをお願いします。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
１行目 ｜ ｜ ｜ ｜
２行目 ｜№１｜ＬＯＣＫ ｜ＬＯＣＫ｜
３行目 ｜ ｜アクティブセル｜ ｜
４行目 ｜№２｜ＬＯＣＫ ｜ＬＯＣＫ｜↓キー押下で
‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
２行目 ｜№１｜ＬＯＣＫ ｜ＬＯＣＫ｜
３行目 ｜ ｜ ｜ ｜
４行目 ｜№２｜ＬＯＣＫ ｜ＬＯＣＫ｜
５行目 ｜ ｜アクティブセル｜ ｜となるのを、、、
‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
３行目 ｜ ｜ ｜ ｜
４行目 ｜№２｜ＬＯＣＫ ｜ＬＯＣＫ｜
５行目 ｜ ｜アクティブセル｜ ｜
６行目 ｜№３｜ＬＯＣＫ ｜ＬＯＣＫ｜となるようにしたい
‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
このサンプルは↓キー押下時の処理です。
>Private Sub Spread1_LeaveCell(ByVal Col As Long, ByVal Row As Long, ByVal NewCol As Long, ByVal NewRow As Long, Cancel As Boolean)
>
> Dim iCurRow AS INTEGER
>
> ''アクティブセルが表示領域外に移動した時
> If Row <> NewRow Then
> iCurRow = NewRow - Spread1.TopRow
> If iCurRow >= 4 Then
>
> Spread1.TopRow = NewRow - 2
> Spread1.Col = 2: Spread.Row = NewRow - 2
> Spread1.Position = 0
> Spread1.Action = 1
> End If
> End If
>
>END SUB