|
▼Jaka さん:
>2つ飛び等の事は考えていません。(*--*こんなのとか)
>適当に調整して下さい。
>
>シートモジュール
>
>Private Sub Worksheet_Activate()
> Application.OnKey "{RIGHT}", "migi"
>End Sub
>
>Private Sub Worksheet_Deactivate()
> Application.OnKey "{RIGHT}"
>End Sub
>
>標準モジュール
>
>Sub migi()
> If ActiveCell.Column < 255 Then
> If ActiveCell.Offset(, 1).Value = "-" Then
> ActiveCell.Offset(, 2).Select
> Else
> ActiveCell.Offset(, 1).Select
> End If
> ElseIf ActiveCell.Column <> 256 Then
> ActiveCell.Offset(, 1).Select
> End If
>End Sub
Jaka さん、ありがとうございます。
これだとセル移動でもOKですよね!
早速トライしてみます。
|
|