No.3ベストアンサー
- 回答日時:
こんばんは。
「H4のセルまで行けばD5へ、H5のセルまで行けばD6へ」
というのが、どういう状況なのか良く分りませんし、私は、なぜ、変数を使うのか、全体が見えていないので、良くわかりません。
「H4のセルまで行けば」が何かの行為なのか分りませんが、ENTERならば、以下のようなのが一般的です。まだ、別に ActiveSheet.ScrollArea を使う方法もあります。
'<標準モジュール>
Sub KeysSetting()
'設定用
With Application
.OnKey "{ENTER}", "SelectMoving"
.OnKey "~", "SelectMoving"
End With
End Sub
Sub KeysSetOff()
'解除用
With Application
.OnKey "{ENTER}"
.OnKey "~"
End With
End Sub
Private Sub SelectMoving()
'実行マクロ
With ActiveCell
If .Column = 8 Then
Cells(.Row + 1, 4).Select
Else
.Offset(, 1).Select
End If
End With
End Sub
No.4
- 回答日時:
OFFSETメソッドを使うにはどうでしょうか。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Target.Offset(1, -4).Select
End If
End Sub
こんな動作をお望みかな?。
No.2
- 回答日時:
#1さんの回答でほぼ終わりなのですが、DとHの交互なので、こんな感じ?、変数はわざと入れてますが、無くてもいけます。
Dim usX As Long
Dim usY As Long
usX = ActiveCell.Column
usY = ActiveCell.Row
Select Case usX
Case 4 'D
usX = 8
ActiveSheet.Cells(usY, usX).Select
Case 8 'H
usX = 4
usY = usY + 1
ActiveSheet.Cells(usY, usX).Select
End Select
No.1
- 回答日時:
書き方はいろいろあるので・・・。
そのCase文を判定しているのはRangeオブジェクト?
なら、
Cells(”判定用オブジェクト”.Row + 1, ”列(ここではDなので4)”).Select
でいい・・・。
(^^ゞ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) Excelのマクロについて教えてください。 3 2022/06/30 09:36
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excel のユーザー定義関数でソルバーが動作しない 1 2022/09/05 19:51
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2010で、今の、Ex...
-
UNIQUE関数が使えないバージョ...
-
エクセルに詳しい方教えて下さ...
-
Excelで「時間の足し算」はどう...
-
Excelについて質問です。 表の...
-
オートフィルのショートカット...
-
Excel表の文字の幅を狭くしたい
-
勤務表をエクセルで作る際、 最...
-
Excelのフォントについて
-
Excel 2019 のピボットテーブル...
-
エクセルのパスワードの一括解...
-
エクセルのソートについて
-
Excel 連番を入力する方法
-
Excel 漢字二文字の先頭と最後 ...
-
列を増やさずに、月だけの件数...
-
Excelで、10000,20000,30000と...
-
エクセルの検索関数でシート内...
-
Excel 2019 での上書き保存につ...
-
Excelで投入数、加工数、検査待...
-
FormulaR1C1の 相対参照式のコピー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル詳しい方教えて下さい
-
ExcelでA列をコピーしたいので...
-
エクセルのセル統合について
-
Excelの関数で起きた現象の原因...
-
Excelファイルが閉じられい!
-
Excelのシート背景に不明な文字...
-
エクセルの枠線
-
Excel 領収書発行
-
エクセル関数の使い方を教えて...
-
C列にF列の担当者(A〜)を順番...
-
ピポットテーブルの参照元を別...
-
EXCEl VBA
-
Excelでの判別方法
-
VBAで、サブフォルダにある複数...
-
"りんご"と"みかん"というシー...
-
マクロについて教えてください。
-
EXCELファイルが読み取り専用で...
-
同一セルに入力規則のリストと...
-
100行50列の表で、1~40列でフ...
-
なぜか「Nextに対応するForがあ...
おすすめ情報