No.4ベストアンサー
- 回答日時:
B3:R18 の場合
B3はColumn=2、Row=3
R18は Column=18、Row=18ですよね
したがって
If Target.Cells.Count = 1 Then
' R列なので変更なし
If Target.Column > 18 Then
' 18行目までなので変更
If Target.Row > 18 Then
' B3からなので Cellsの1を3に変更
Cells(3, Target.Column).Select
Else
' B列からが対象なので CellsのColumnを1から2へ
Cells(Target.Row + 1, 2).Select
End If
Exit Sub
End If
' こちらも18行に制限
If Target.Row > 18 Then
' 3行からなので 1を3へ変更
Cells(3, Target.Column).Select
End If
End If
といった具合です
No.3
- 回答日時:
Enterが押されたかどうかのチェックは難しいいですが
選択されたセルが A1:R10000の中かどうかは SelectionChangeイベントで取得できます
ワークブックかシートモジュールで
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' Target.Cells.Count = 1 選択されたセルが1つの場合をチェック
If Target.Cells.Count = 1 Then
If Target.Column > 18 Then
If Target.Row > 10000 Then
Cells(1, Target.Column).Select
Else
Cells(Target.Row + 1, 1).Select
End If
Exit Sub
End If
If Target.Row > 10000 Then
Cells(1, Target.Column).Select
End If
End If
End Sub
Enterで右移動をさせたいなら
Application.MoveAfterReturnDirection = xlToRight
をどこかのタイミングで実行すれば良いでしょう
ブックのOpenイベントなどで ・・・
この回答への補足
ありがとう御座います
すばらしいです 感謝感謝です
勉強 奮闘中で 大変勉強になります
すいません
こちらのコードで 折り返し点とか 何処までとかは解るのですが
範囲の始まりA1が解りません例えば範囲がB3:R18ですとどのように成るのでしょうか
ご指南ください
No.2
- 回答日時:
今ひとつ、意味解りませんが、
もしかして、以下のようなことですか。
Range("a1:r1000").Select
Range("b2").Activate
日本語にすると、
a1:r1000の範囲を選びb2をアクティブセルにする。
アクティブセルを別な場所にしたいなら、
そのセルをアクティベイとする
No.1
- 回答日時:
で、何をされたときにどのように変更したいのでしょう?
A1が選択されていて何か数値などの入力があったときなのか
このとき どこへ移動したいのか
また、水平に移動するとしてR列にあった場合にどこへ移動させるのか
垂直に移動させる場合に 10000行にあった場合にはどこへ移動すのか
それとも移動しないのか ・・・
範囲外のセルが選択された場合に 範囲内のセルへ移動したいのか
選択されるセルが複数あるがそのうち1つが範囲外になった場合の矯正
いろいろな場面が想定できます …
この回答への補足
すいません説明不足で申し訳ありません
A1から右にR1 R1から改行A2にそしてR2と言うように
選択させた範囲内でエンターキーでシフトさせたいのですが
よろしくお願いいたします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- Excel(エクセル) Excelのプルダウンメニューの内容を人によって可変する方法 2 2023/03/28 14:52
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) Excelマクロ(VBA)CELL形式とA1形式の使い分け 6 2022/08/27 23:35
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルテキストボックスの文...
-
データが入力されている隣のセ...
-
ダブルクリックすると現在の時...
-
VBAで、貼り付け禁止命令を実現...
-
EXCELマクロ 保護されているシ...
-
ハイパーリンクされているファ...
-
Excelのセル内にある図形を削除...
-
VBAで丸をつけたいです。
-
Excelのアクティブなセル情報
-
VBAで選択したセルのみ処理を実...
-
選択範囲内でアクティブセルを...
-
メッセージを1度だけ表示したい。
-
【VBA】参照値を1ずつ増やして...
-
Excel VBA セルを指定個数ラン...
-
エクセルVBA セル選択後にカレ...
-
Excel VBA ダブルクリックで入...
-
[VBA]型が一致しません
-
セル色を5秒間隔で変える
-
VBAに範囲を指定して印刷
-
エクセルのVBAでダブルクリック...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
EXCELマクロ 保護されているシ...
-
エクセルテキストボックスの文...
-
VBAで、貼り付け禁止命令を実現...
-
ハイパーリンクされているファ...
-
VBAで丸をつけたいです。
-
メッセージを1度だけ表示したい。
-
エクセルVBA(実行時エラー438...
-
ダブルクリックすると現在の時...
-
VBA セルに合わせて移動するが...
-
(VBA)アクティブセルを起点に...
-
Jtableの特定のセルの背景色や...
-
Windowsで動くVBAがmacOSで動か...
-
エクセルVBA セル選択後にカレ...
-
Excel VBA ダブルクリックで入...
-
Excelのセル内にある図形を削除...
-
セル色を5秒間隔で変える
-
StringGridでの文字入力制限
-
【VBA】参照値を1ずつ増やして...
-
マクロでのカーソル移動
おすすめ情報