| 投稿日 | ： 2002/12/03(Tue) 21:07 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 書き出す方法 |
> こんな感じに印刷範囲が来たら、D列、E列に列を移動させる
> 様な事をしたいのですが、できるのでしょうか？
>
> 何かアイデアがあれば、教えて下さい。よろしくお願いします。
妥当なのが
ページを書くループ
２列書くループ
３段書くループ
と、重ねることです。
コードとしてはこんな感じです。
For i=1 To 2
For j=1 To 3
xlsSheet.Cells(j,i * 3).value=rs(j)
Next j
rs.MoveNext
Next i