Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28087 / 76732

←次へ　｜　前へ→


	【53953】Re:Loopの中にLoopを入れたい

VBWASURETA - 08/2/18(月) 2:30 -


	引用なし

	パスワード

▼こばさん：
こんばんは。

すみませんソースはあまり見てませんが、
ループの入れ子になっているのは結構ありますよ。
たとえば以下のようなサンプル等

行列毎の例：
　Dim Cel_X As Integer 'セル行変数
　Dim Cel_Y As Integer 'セル列変数

　Cel_X = 1:Cel_Y = 1

　'シート１のWithブロック
　With Sheets(1)
　　 '行ループ
　　 '.CellsはCells(行数, 列数)です。
　　 '例：.Cells(1, 1)はA1のセルにあたります
　　　Do While .Cells(Cel_X, Cel_Y).Value <> ""
　　　　　'** 処理1. **

　　　　　'セル列の初期化
　　　　　Cel_Y = 1

　　　　　'列ループ
　　　　　Do While .Cells(Cel_X, Cel_Y).Value <> ""
　　　　　　　'** 処理2. **

　　　　　　　'セル列変数のカウント
　　　　　　　Cel_Y = Cel_Y + 1

　　　　　Loop '列ループ終端

　　　　　'セル行変数のカウント
　　　　　Cel_X = Cel_X + 1

　　　 Loop '行ループ終端

　 End With 'Withブロック終端

0 hits

▼

【53944】Loopの中にLoopを入れたい こば 08/2/17(日) 10:52