Excel VBA質問箱 IV

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

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


20121 / 76732 ←次へ | 前へ→

【62034】Re:行の挿入について(続き)
発言  kanabun  - 09/6/17(水) 19:51 -

引用なし
パスワード
   ▼mori さん:

>(前略)
>> With Worksheets(3)
>>  '一時シートから行数を取得
>>  lngMaxRow = Worksheets("TMP1").Cells(Rows.Count, 1).End(xlUp).Row
>>  j = 1
>>  For i = 31 To lngMaxRow
>>   If j = 1 Then
>>   ElseIf j Mod 29 = 1 Then
>>    'A列〜U列まで 29行をCopy
>>    .Range("A4").Resize(29, 21).Copy .Cells(j + 3) ←この部分でエラーが出ます
>>    With .Cells(j + 3).Resize(29, 21)
>>      .RowHeight = 27
>>      Worksheets(3).PageSetup.PrintArea = .Cells
>>    End With
>>   End If
>>   j = j + 1
>>  Next
>
>.Range("A4").Resize(29, 21).Copy.Cells(j + 3)
>A4から29行・21列コピーする
>pasteがないからか?と思ったのですが、うまくいきませんでした・・・

ごめんなさい。
その部分はノーチェックでした。
(ちょっと、この部分、何をやってるのか分からなかったです。)


オリジナルの

> With Worksheets(3)
>  '一時シートから行数を取得
>  lngMaxRow = Worksheets("TMP1").Range("A1").SpecialCells(xlLastCell).Row

>  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

に差し替えてお試しください。
(変数の宣言 strRangeValue や lngRowY lngRowX も必要です)
1 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 お礼

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