Excel VBA質問箱 IV

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

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


20120 / 76732 ←次へ | 前へ→

【62035】Re:行の挿入について(続き)
回答  kanabun  - 09/6/17(水) 20:22 -

引用なし
パスワード
   逆にこちらから質問なんですけど、
オリジナルのコードにあるこの部分は
何をしている部分なんでしょうか?

想像するに転記先シートWorksheets(3) の
.Range("A4:U32") に印刷用書式の設定された表のひな型
があって、「TMP1」のデータ行数が29行以上あるときは
超過分に必要な行数(29の倍数)だけ、このひな型29行を
下方にコピーしているようですが?

> With Worksheets(3)
>   '一時シートから行数を取得
>   lngMaxRow = Worksheets("TMP1").Range("A1").SpecialCells(xlLastCell).Row
>   blnFlag = False
>   j = 1
>   For i = 31 To lngMaxRow  
>    If j = 1 Then
>    ElseIf j Mod 29 = 1 Then
>     .Range("A4:U32").Copy
>     lngRowY = j + 3
>     lngRowX = j + 31
>     strRangeValue = "A" & lngRowY & ":" & "U" & lngRowX
>     .Range(strRangeValue).PasteSpecial xlPasteAll
>     .Range(strRangeValue).RowHeight = 27
>     .PageSetup.PrintArea = .Range(strRangeValue)
>    End If
>    j = j + 1
>   Next
>   

そうすると、
> 行番号 摘要   数量  単位  単価  金額
という見出し行は 何行目にあるのですか?
4行目ですか?
3行目ですか?

また、項目数は 6項目なので
> .Range("A4:U32")
U列までコピーする必要はないような気がするのですが、これは
なぜでしょう?

よろしければ、教えてください。

68 hits

【62024】行の挿入について(続き) mori 09/6/17(水) 13:17 質問
【62031】Re:行の挿入について(続き) kanabun 09/6/17(水) 14:18 発言
【62033】Re:行の挿入について(続き) mori 09/6/17(水) 19:39 発言
【62034】Re:行の挿入について(続き) kanabun 09/6/17(水) 19:51 発言
【62035】Re:行の挿入について(続き) kanabun 09/6/17(水) 20:22 回答
【62049】Re:行の挿入について(続き) mori 09/6/18(木) 21:19 お礼
【62037】Re:行の挿入について(続き) kanabun 09/6/17(水) 21:52 発言
【62036】Re:行の挿入について(続き) かみちゃん 09/6/17(水) 20:58 発言
【62050】Re:行の挿入について(続き) mori 09/6/18(木) 21:25 お礼

20120 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free