Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9585 / 76732 ←次へ | 前へ→

【72708】空白時に実行させたい
発言  ねい  - 12/9/7(金) 17:47 -

引用なし
パスワード
   EXCELに弱いのですが質問させてください。

A列からE列までEnterを押すことで横に移動させ、
E列まで行ったら次の行に飛ばせたいです。
A1→B1→C1→D1→E1→A2→B2→C2→D2→E2→A3→…

入力があればそのような動きになるようになったのですが、
入力がないEnterの場合にも適応させるにはどうしたらいいか
ぜひお力添えをお願いします。。


Private Sub Worksheet_Change(ByVal Target As Range)
  Dim myRng As Range
  
  Set myRng = Range("A:E")
  
  With Target
    If Target(.Cells, myRng) Is Nothing Then Exit Sub

    If Target(.Cells, myRng.Columns(myRng.Columns.Count)) Is Nothing Then
      Cells(.Row, .Column + 1).Select
    Else
      Cells(.Row + 1, myRng.Columns(1).Column).Select

    End If

  End With

End Sub
0 hits

【72708】空白時に実行させたい ねい 12/9/7(金) 17:47 発言
【72709】Re:空白時に実行させたい kanabun 12/9/7(金) 18:28 発言
【72711】Re:空白時に実行させたい ねい 12/9/7(金) 18:37 発言
【72710】Re:空白時に実行させたい kanabun 12/9/7(金) 18:37 発言
【72712】Re:空白時に実行させたい ねい 12/9/7(金) 18:49 質問
【72713】Re:空白時に実行させたい kanabun 12/9/7(金) 18:55 発言
【72714】Re:空白時に実行させたい kanabun 12/9/7(金) 18:59 発言
【72715】Re:空白時に実行させたい kanabun 12/9/7(金) 20:21 発言
【72717】Re:空白時に実行させたい ねい 12/9/7(金) 21:41 お礼

9585 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free