VBAのfor文で引く数が一つずつ減ってく書き方を教えてください。

Question

下記のようなもので、
最初はkに22足されるのですが、
次は21,その次は20と足され・・・・最終的に11まで足されるようにするにはどのような書き方をすれば良いでしょうか？

Cells(i, k + 22)

for文使わずにやり方教えてください。
for文は使えないという艇で。

Comments

[torisan]

for文を使用してはいけない理由を提示して下さい。

[BluOxy]

タイトルと内容が矛盾しているのでどちらかを訂正してください。

[m.ts10806]

>艇で
「前提で」を表現したいなら「体で」ですよ。
使えないのは「技術不足」なのか「そういうルール」なのかハッキリされたほうが良いかと。
forが最も適切な手段であるのは明らかです。

[退会済みユーザー]

forを使わない理由は提示すべきですが再帰はどうでしょう

Answer 1

For...Next ステートメント

step に -1 を指定すると減ります。

追記

ループや計算の苦手な人向けのコード

Cells(i, k + 22)
Cells(i, k + 22 - 1)
Cells(i, k + 22 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1)
Cells(i, k + 22 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1)

Answer 2

for i = 100 to 1 step -1
  debug.print i
next

for文を知らないとは。

Answer 3

失礼。セルの範囲指定では使えませんでした。

単純に、ｋ＝２２～１１までの和が欲しいと勘違いしてました。

等差数列の和は公式があるので、そのまま利用すればええのでは？

Comments

[Zuishin]

Cells(column, row) は、Excel の特定のセルを表します。

[momon-ga]

おおっと。あまり読んでませんでした。セルをぐるぐる取得したいわけだったのですね。
rangeで複数範囲を取りたいってことかなぁ。

Answer 4

forがダメならwhileでまわしたらいかがですか。

いま「22」って書いてあるところを変数にして
do whileの条件をその変数が11以上であるようにして
1回まわるごとに１ずつひいていけば……。

Answer 5

最初はkに22足されるのですが、次は21,その次は20と足され・・・・最終的に11まで

for k = 22 to 11 step -1
  '何らかの処理
next

追記

for文使わずにやり方教えてください。
for文は使えないという艇で。

タイトルが

VBAのfor文で引く数が一つずつ減ってく書き方を教えてください。

なのに、なんでそんな後出しが？
どんな理由なんでしょうかね？

繰り返し制御を行うにはfor...next 以外では、Do...Loopがあります。

制御文使わないならgoto