Excel VBA質問箱 IV

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

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


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

20195 / 76807

←次へ　｜　前へ→


	【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列までコピーする必要はないような気がするのですが、これは
なぜでしょう？

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

0 hits

▼

【62024】行の挿入について（続き） mori 09/6/17(水) 13:17