エクセル マクロを利用して繰り返して入力する方法

質問

マクロでA1B1C1D1E1F1セルに入力しF1入力後A2B2C2D2E2F2と
下方向へ繰り返し800行くらいまで入力し、それとB列はスキップしたいのですが下記の方法で別々のシートでは
うまくいくのですが同じシ-ト内ではエラ－になってしまいます

次の行への移動
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub

B列のスキップ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G1") <> "" Then
If Target.Column = 2 Then
Target.Offset(0, 1).Select
End If
End If
End Sub

どなたかご存じの方教えて下さい

回答No.1

hana-hana3 · ベストアンサー

＞別々のシートではうまくいくのですが同じシ-ト内ではエラ－になってしまいます

エラーになる場合は、エラーメッセージを書いた方が良いですよ。
おそらくシートモジュールに同一の名前のプロシージャが存在するのでエラーになるのでだと思います。
コードを一つに纏める必用があります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(, 1).Select
ElseIf Target.Column = 7 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub

お礼

hana-hana3様
早々のご回答有難うございました。
うまく作動する事ができるようになりました。

また応用でE列もスキップさせようと下記の様に作りましたが、
B列はスキップするのですが、その後B1にも行かず1行目をずっと進んでしまいます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(, 1).Select
If Target.Column = 5 Then
Target.Offset(, 1).Select
ElseIf Target.Column = 7 Then
Cells(Target.Row + 1, 1).Select
End If
End If
End Sub

ご存じでしたら教えて頂けないでしょうか

回答No.2

hana-hana3

＞その後B1にも行かず1行目をずっと進んでしまいます。

ＩＦ文の使い方を理解されていないためです。
ご自身でＩＦ文の流れを追ってみて下さい。
Target.Column = 2 で最初のＩＦ文の中に飛び込みますが、中のＩＦ文が実行される条件には達していないので、中のＩＦ文が実行されません。

If Target.Column = 2 Then
Target.Offset(, 1).Select
ElseIf Target.Column = 5 Then
Target.Offset(, 1).Select
ElseIf Target.Column = 7 Then
Cells(Target.Row + 1, 1).Select
End If

とするか、
If Target.Column = 2　or Target.Column = 5 Then
Target.Offset(, 1).Select
ElseIf Target.Column = 7 Then
Cells(Target.Row + 1, 1).Select
End If

として下さい。

お礼

hana-hana3様
早々のご回答有難うございます。
IFをElseIfに変えて応用ができるようになりました。

今回は本当に有難うございました。