みんな！
カードのテンプレートがあり、175枚の印刷ページを作成したいのですが、各ページには3x3のカードが必要です。これまでのところ良好ですが、コピーしたセルを新しい「行」に貼り付けると、エラー1004が発生します。コードに従ってください：
Dim originalWs As Worksheet, ws As Worksheet
Dim wsRowCounter As Long, wsCollumCounter As Long, expansionSize As Long, cardRowSize As Long, cardCollumSize As Long
Dim horizontalCardsPage As Long, verticalCardsPage As Long, i As Long
Set originalWs = ActiveSheet
Set ws = Sheets.Add
wsRowCounter = 1
wsCollumCounter = 1
expansionSize = 175
cardRowSize = 13
cardCollumSize = 4
horizontalCardsPage = 3
verticalCardsPage = 3
originalWs.Activate
For i = 1 To expansionSize
originalWs.Range("C14") = i
originalWs.Range("B2:E14").Select
Selection.Copy
ws.Activate
If wsCollumCounter >= (cardCollumSize * horizontalCardsPage) Then
wsRowCounter = wsRowCounter + cardRowSize
ws.Rows(((wsRowCounter - 1) * verticalCardsPage) + 1).PageBreak = xlPageBreakManual
wsCollumCounter = 1
End If
ws.Cells(wsRowCounter, wsCollumCounter).Activate
ActiveSheet.Paste
wsCollumCounter = wsCollumCounter + cardCollumSize
originalWs.Activate
Next i
これで問題が解決するかどうかは100％確信できませんが、あいまいさなどを取り除くのに役立ちます。
Dim originalWs As Worksheet, ws As Worksheet
Dim wsRowCounter As Long, wsCollumCounter As Long, expansionSize As Long, cardRowSize As Long, cardCollumSize As Long
Dim horizontalCardsPage As Long, verticalCardsPage As Long, i As Long
Set originalWs = ActiveSheet
Set ws = Sheets.Add
wsRowCounter = 1
wsCollumCounter = 1
expansionSize = 175
cardRowSize = 13
cardCollumSize = 4
horizontalCardsPage = 3
verticalCardsPage = 3
For i = 1 To expansionSize
originalWs.Range("C14") = i
If wsCollumCounter >= (cardCollumSize * horizontalCardsPage) Then
wsRowCounter = wsRowCounter + cardRowSize
ws.Rows(((wsRowCounter - 1) * verticalCardsPage) + 1).PageBreak = xlPageBreakManual
wsCollumCounter = 1
End If
'perform the copy/paste in one line:
originalWs.Range("B2:E14").Copy Destination:=ws.Cells(wsRowCounter, wsCollumCounter)
wsCollumCounter = wsCollumCounter + cardCollumSize
Next i
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加