質問: Format(Now, "yyyy/m/d hh:mm") End If Next r End Sub そこで、今回の本題に入りますがA列にバーコードを読み込んだ後、自動的にE列へジャンプし、人数のバーコードを読んだあとにA列の次の行に戻れるようにしたいのですが、どのようなマクロを組んだら良いかご教授いただけると幸いです。 宜しくお願い致します。
回答: If r.Column = 1 Then はターゲットセルの列が1列目(A列)だったらという事なので、 r.Offset(0, 1) ~の後に r.Offset(0, 4).Select を。 End If の前に ElseIf r.Columhn = 5 Then として5列目(E列)だったらの条件を加えて、 r.Offset(1, -4).Select ※1行後、4列手前 を入れればよいかと。