アクティブセルの移動

'左上にエラー発生行がくるようにする
spr.Sheets(0).SetActiveCell(iRow2, 0)
spr.ShowActiveCell(FarPoint.Win.Spread.VerticalPosition.Center, FarPoint.Win.Spread.HorizontalPosition.Center)


'アクティブセルの移動
spr.Sheets(0).ActiveColumnIndex = 1
spr.Sheets(0).ActiveRowIndex = 1


spr.Focus()

スプレッドにてENTER時にセルを右移動させる

'ENTER時にセルを右移動させる
Dim im As New FarPoint.Win.Spread.InputMap

' 非編集セルでの[Enter]キーを「次列へ移動」とします
im = sprSearchData.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumnWrap)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.Shift), FarPoint.Win.Spread.SpreadActions.MoveToPreviousColumnWrap)

' 編集中セルでの[Enter]キーを「次列へ移動」とします
im = sprSearchData.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumnWrap)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.Shift), FarPoint.Win.Spread.SpreadActions.MoveToPreviousColumnWrap)