|
▼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 さん、ありがとうございました。
バッチリです!
これを応用して、hidariを追加して解決しました。
本当にありがとうございました。
|
|