[[20050515104200]]　『マクロ』（スーパー初心者）　ページの最後に飛ぶ

『マクロ』（スーパー初心者）

 はじめまして。どうしていいか分からずこのページにたどりつきました。
 昔いた人が作ったみたいなんですけどこの
 意味を教えて下さい。
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Target.Column < 4 Then Exit Sub
    If Target.Column > 34 Then Exit Sub
    If Target.Row < 8 Then Exit Sub
    If Target.Row > 371 Then Exit Sub

    If Target.Column = 34 Then
        Cells(Target.Offset(1).Row, 4).Select
    Else
        Target.Offset(0, 1).Select
    End If

    SendKeys "(%{DOWN})"
 End Sub

 どうにもこうにも分からず困っています。
 どうかよろしくお願いします
 （スーパー初心者）

 コードを日本語(怪しい?)に訳すと
ワークシートに変化が有ったら実行しなさい。
変化したセル数が1でなかったら終了。
変化したセルの列番号が4未満であったら終了。
変化したセルの列番号が34より大きかったら終了。
変化したセルの行番号が8未満であったら終了。
変化したセルの行番号が371より大きかったら終了。
　
もし、変化したセルの列番号が34であったら、
1行下の4列目(D列)を選択。
そうでなかったら、右のセルを選択。
Alt+↓キーを押した状態にする。(上の列に入力された値をリストを表示。)
　
といった感じで、
D8～AH8まで、右方向へ1セルずつ、順次リストから選択して入力する。
AH8まで入力したらD9へ移動して、同じように右方向へリストから選択して入力する。
というのをAH371まで繰り返す。
なお、開始セルはD8～AH371セルのどこからでもOKです。
という動作のマクロではないですか?　　　(Hatch)

 もとになったトピック。（みやほりん）
[[20041025141709]] 『入力規制のリストの設定で1つ目のセルで...』(後藤)

コメント返信：

[ 一覧(最新更新順) ]

[[20050515104200]] 『マクロ』（スーパー初心者） ページの最後に飛ぶ

[[20050515104200]]　『マクロ』（スーパー初心者）　ページの最後に飛ぶ