[[20170505183513]]　『3列飛ばしクリア』（還暦男）　ページの最後に飛ぶ

『3列飛ばしクリア』（還暦男）

 下記の表のように、C3:D9をクリア3列飛ばし、H3:I9をクリア。
 この動作をGA列までクリアするマクロをご教示お願いします。

      A　　B    C    D    E    F    G   H    I   J   K   L   M    N
 1  
 2
 3             20   10                  5   20               5    2   
 4             10   30                 10   30
 5                                     20   30              10   
 6
 7             10   20                      10                    3
 8
 9                                      5

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

C3:D9をクリアするマクロはわかありますか？

（マナ） 2017/05/05(金) 19:06

 マナさん、ありがとうございます。

  Sub Macro1()

    Range("C3:D9").ClearContents

    End Sub
 でしょうか？
（還暦男） 2017/05/05(金) 20:06

では、繰り返し作業で使われる構文で、
こんなのをご存知ですか。

 For　i=1 to 10
　  ここで繰り返したい処理
 next

で、これを i が、1,3,5…のように
１個飛ばしで繰り返すには、どうしたらよいかわかりますか。

（マナ） 2017/05/05(金) 20:33

 For i = 1 To 10 Step 3
   Range("C3:D9").ClearContents
 Next

 では C3:D9がクリアされるだけです。
 どうしたらいいですか？

（還暦男） 2017/05/05(金) 23:18

＞では C3:D9がクリアされるだけです。
＞どうしたらいいですか？

あわてないでください。
今は考え方を理解してもらおうとしているだけです。

わたしの質問は、
＞１個飛ばしで繰り返すには、
です。

＞Step 3

だと２個飛ばしです。1.4.7…

でも、おそらく、そこは理解出来ていると思いますので、
次の質問です。

C3, H3, M3, R3の４セルをクリアするマクロを考えてください。

・For～nextを使ってください。
・C3セルは　Cells(3, 3)という書き方もできます。
・H3セルは　Cells(3, 8)という書き方もできます。

（マナ） 2017/05/05(金) 23:44

 マナさん、ありがとうございます。

 一気に2列クリアと行きたいところですが...

 それと、列を表わす記号はjでなくてもいいんですか？
 行はi列はjでなくてもいいのしょうか？

 もう一つ、変数宣言はDim i As longでいいですか？
 整数型を選びましたが。
 クリアするのに、これでもいいのかなあと
 思っています。

 Sub Macro1()

   Dim i As long

   For i = 3 To 20 Step 4

      Range(Cells(3, i), Cells(9, i)).ClearContents

   Next

   End Sub

（還暦男） 2017/05/06(土) 08:52

＞行はi列はjでなくてもいいのしょうか？

jでもよいです。決まりはないです。

＞もう一つ、変数宣言はDim i As longでいいですか？

列番号に使うので、整数しかありえませんから、それで間違いありません。

＞一気に2列クリアと行きたいところですが...

あわてないで、ますは１セルずつ考えてほしいのですが。

わたしの質問は
＞C3, H3, M3, R3の４セルをクリアするマクロを考えてください。

です。

そのコードで、目的の４セルがクリアできますか？
ここが理解できていないようでは、
複数列のことを考えるのはまだ早いと思います。

（マナ） 2017/05/06(土) 09:30

 ＞複数列のことを考えるのはまだ早いと思います。

 わかりました。

 Sub Macro2()

      Cells(3, 3).ClearContents
      Cells(3, 8).ClearContents
      Cells(3, 13).ClearContents
      Cells(3, 18).ClearContents

      End Sub
 でしょうか？

（還暦男） 2017/05/06(土) 17:58

それを For～next を使って書くとどうなりますか。

（マナ） 2017/05/06(土) 19:06

Sub Macro3()

   Dim i As Long

      For i = 3 To 17

      Cells(3, i).ClearContents

      Next

   End Sub

　でしょうか？
（還暦男） 2017/05/06(土) 20:15

＞　でしょうか？

C3, H3, M3, R3の４セルがクリアできましたか。

（マナ） 2017/05/06(土) 20:53

コメント返信：

[ 一覧(最新更新順) ]

[[20170505183513]] 『3列飛ばしクリア』（還暦男） ページの最後に飛ぶ

[[20170505183513]]　『3列飛ばしクリア』（還暦男）　ページの最後に飛ぶ