こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBA Offsetで選択セルを移動させる

よろしくお願いします。

H8から一行づつ下げてH10まで来たらH15まで飛ばして
また一行づつ下げていく。
H20まで来たらH27まで飛ばしてまた一行づつ下げていく。
このようにしたいのですが、構文が解りません。

Private Sub CommandButton1_Click()
If ActiveSheet.Range("H8").Activate Then
ActiveCell.offset(1, 0).Activate
Else
ActiveCell.offset(1, 0).Activate
End If
If ActiveSheet.Range("H10").Activate Then
ActiveCell.offset(5, 0).Activate
Else
ActiveCell.offset(1, 0).Activate
End If
If ActiveSheet.Range("H20").Activate Then
ActiveCell.offset(7, 0).Activate
Else
ActiveCell.offset(1, 0).Activate
End If
End Sub

投稿日時 - 2019-01-30 23:13:58

QNo.9583061

すぐに回答ほしいです

質問者が選んだベストアンサー

if文のActiveSheet.Range("H20").Activateで常にH20に飛んでしまうでしょう、
10なら4下げ、20なら6下げ、さらに常に1下げ、でどうですか。

If ActiveCell.Row = 10 Then
   ActiveCell.Offset(4, 0).Activate
End If

If ActiveCell.Row = 20 Then
   ActiveCell.Offset(6, 0).Activate
End If

ActiveCell.Offset(1, 0).Activate

投稿日時 - 2019-01-31 00:03:34

お礼

xitian 様
早速の回答ありがとうございます。
すべて解決しました。

投稿日時 - 2019-01-31 08:56:55

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問