レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

ikuko.nakanoさんの投稿

(投稿ID: 5258) 添付ファイルのダウンロード権限がありません

マクロは何度もトライしましたが挫折、ここの講座でマスターできて良かったです。
この章に関しての質問です。
このように連続したセルを転記する際に、Next構文使いたいのですが、どのように書けばいいでしょうか？

Sub ren()
    Dim gyo
    For gyo = 1 To 4
        Range("A1:D1").Value = Range("G1:J1").Value
    
    Next
        
End Sub

2022/03/30 09:39

小川慶一さんのコメント

(コメントID: 7454)

こんにちは。

> マクロは何度もトライしましたが挫折、ここの講座でマスターできて良かったです。

成果につながっているようであればなによりです。

ご質問の件、以下の2のやり方が考えられます。

[1] 1セルずつ転記する
[2] 「A1:D1」のような複数セルを指定しているところで、それぞれ個別に行番号の指定を変数化する

まずは、1から。
これは、すぐに理解できるかと思います。

Sub ren1()
    Dim gyo
    For gyo = 1 To 4
        Range("A" & gyo).Value = Range("G" & gyo).Value
        Range("B" & gyo).Value = Range("H" & gyo).Value
        Range("C" & gyo).Value = Range("I" & gyo).Value
        Range("D" & gyo).Value = Range("J" & gyo).Value
    Next
End Sub

[2] について。
結論から書くと、以下のとおり。

Sub ren2()
    Dim gyo
    For gyo = 1 To 4
        Range("A" & gyo & ":D" & gyo).Value = Range("G" & gyo & ":J" & gyo).Value '(*)
    Next
End Sub

(*) のような変数化、サラサラできますでしょうか。

慣れないうちは、いっきにやろうとすると失敗します。
最初のうちは、以下のように、段階を経て着実に変形させていってください。

"A1D1"
↓
"A" & "1D1"
↓
"A" & "1" & "D1"
↓
"A" & gyo & "D1"
↓
"A" & gyo & "D" & "1"
↓
"A" & gyo & "D" & gyo

行全体が赤くなったら、「構文エラー」ということです。
そのときは、さらに自力で変形してなおそうとせず、 [Ctrl] + [Z] で元に戻していって、壊れていない状態まで戻してからやりなおすこと。

なお、この変形を上手にできるようになるためのコツは、マウスを使わず、カーソルキーの操作だけでやることです。

カーソルキーでのカーソル移動だけで成し遂げることを意識して練習すると、やがて、 "A1D1" を "A" & gyo & "D" & gyo に変形するくらいなら途中の過程いっさい抜きでいきなりできるようになります。

（以下は、今後、この投稿を見られる方向けのメッセージという意味をこめて）
もし「こんなの、自分には、スラスラとはできないな...」ということでしたら、文字列と変数の扱いにまだ慣れていないということですので、基礎編第2章の演習をやりなおしてみてください。

2022/03/30 10:08