for～Next 構文の間に処理を追加したい。

質問

for～Next 構文の間に処理を追加したい。

ちょっと必要に迫られまして、他人の作ったEXCELマクロをいじらないといけなくなったのですが、小生初心者でどうもうまくいきません。

sheet1に条件を入れて、sheet2のセルに表示された内容をラベルに印刷するというプログラムなのですが、

PrintColum = Worksheets("sheet1").Range("L5").Value
MaxGyou = Worksheets("sheet1").Range("L4").Value
Maxrow = Worksheets("sheet1").Range("B" & Rows.Count).End(xlUp).Row
Gyou = 1 + Worksheets("sheet1").Range("A3").Value
Keta = 1
Worksheets("sheet2").Activate

For k = 5 To Maxrow
Hiduke = Worksheets("sheet1").Range("A" & k).Value
ID = Worksheets("sheet1").Range("B" & k).Value
Koumoku = Worksheets("sheet1").Range("C" & k).Value
Kishaku_Min = Worksheets("sheet1").Range("D" & k).Value
Kishaku_Max = Worksheets("sheet1").Range("E" & k).Value
Maisu = Worksheets("sheet1").Range("F" & k).Value
blank = Worksheets("sheet1").Range("G" & k).Value

For i = Kishaku_Max To Kishaku_Min Step -1

For j = 1 To Maisu
Keta = Keta + 1

Worksheets("sheet2").Range("A1").Cells(Gyou, Keta + 1).Value = " " & Hiduke & " " & ID & Chr(10) & " " & Koumoku + " 10^" + CStr(i)

GyouHyouji = Worksheets("sheet2").Range("A1").Cells(Gyou, 1).Row

Worksheets("sheet2").Range("A1").Cells(Gyou, 1).Value = (GyouHyouji - 1) Mod MaxGyou + 1

If Keta > PrintColum Then
Keta = 1
Gyou = Gyou + 1
End If

Next j
Next i
Next k

Next i　の処理が終了したとき、blankの値が"1"なら、ひとつだけ内容の違うセルを差し込みたいと考えています。

わかる範囲でいろいろ試したのですが、まったくうまくいきません。

どなたかお知恵を拝借できないでしょうか？

回答No.1

o_chi_chi · ベストアンサー

Next iとNextKの間に

If blank="1" Then
　処理
End If

処理はjループの中の処理

でどうでしょう？

お礼

お礼が遅くなり申し訳ございません。

この方法はすでに試してみたのですが、なぜかｋの処理が終わった最後のセルの内容が置き換わるという現象が起こってしないました。

試しにｋの後に入れてみても、同じ結果になりました。

なぜか？わかりませんでしょうか？

補足

すいません。

記述ミスでした。

自己解決しました。

ありがとうございます。

回答No.2

Wendy02

サンプル・データをおいてくれれば、もう少しわかるのですが、ちょっとゴリ押しで作った感じのコードです。「セルを差し込みたい」という表現自体は理解できないので、おそらく「違うデータを読む」というように解釈しました。

blank の値が1 なら、
For j = 1 To Maisu
　　　If blank = 1 Then
　　　 '******
　　　Else

　　　End If

となりますね。

それと、
Hiduke = Worksheets("sheet1").Range("A" & k).Value
これは、もし、日付が、日付シリアル値なら、Range("A" & k).Text ですね。

Koumoku + " 10^" + CStr(i)　
なぜ、ここだけ、「+」にしているのかよくわかりませんが、値によってはエラーが発生します。
「&」ではいけないのかな？

お礼

すいません。
自己解決しました。
単なる記述ミスでした。
いろいろご指摘ありがとうございます。

補足

質問がわかりにくくてすいません。

sheet1には

日付　｜　名称　｜　項目　｜　MIN　｜　MAX　｜　枚数　｜　blank
11/4　｜　Ａ１　｜　Ｂ１　｜　1　　｜　5　　｜　2　　｜　　1
11/5　｜　Ｃ１　｜　Ｂ２　｜　1　　｜　2　　｜　2　　｜　　0

と入力した場合、sheet2のラベル印刷サイズに合わせた５列のセルに

11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜
Ｂ１　10^5　｜Ｂ１　10^5　｜Ｂ１　10^4　｜Ｂ１　10^4　｜Ｂ１　10^3　｜

11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜
Ｂ１　10^3　｜Ｂ１　10^2　｜Ｂ１　10^2　｜Ｂ１　10^1　｜Ｂ１　10^1　｜

11/5　Ｃ１　｜11/5　Ｃ１　｜11/4　Ｃ１　｜11/4　Ｃ１　｜　　　　　　｜
Ｂ２　10^2　｜Ｂ２　10^2　｜Ｂ１　10^1　｜Ｂ１　10^1　｜　　　　　　｜

と表示されるようになっています。

これをblankの値が"1"の場合、

11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜
Ｂ１　10^5　｜Ｂ１　10^5　｜Ｂ１　10^4　｜Ｂ１　10^4　｜Ｂ１　10^3　｜

11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜11/4　Ａ１　｜
Ｂ１　10^3　｜Ｂ１　10^2　｜Ｂ１　10^2　｜Ｂ１　10^1　｜Ｂ１　10^1　｜

11/4　Ａ１　｜11/5　Ｃ１　｜11/5　Ｃ１　｜11/4　Ｃ１　｜11/4　Ｃ１　｜
Ｂ１ blank　｜Ｂ２　10^2　｜Ｂ２　10^2　｜Ｂ１　10^1　｜Ｂ１　10^1　｜

となるようにしたいのです。（差し込むという意味はこういうことです）

何か方法があれば、お教えください。