SPREADのPositionプロパティがうまくいきません (ID:82975)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どなたかわかる方ご教授お願いします。 最大表示領域が４行で１行おきにセルを ロックしているスプレッドがあるとします。 アクティブセルが３行目で↓キー押下時、４行目を飛び越え ５行目にアクティブセルが移動まではいいのですが、この時点で 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