2020-08-11から1日間の記事一覧
1 2レコード単位で処理を繰り返す cntの数え方を要改善 2 Sub 背表紙2枚セット印刷() Dim Sh1 As Worksheet: Set Sh1 = Sheets("Sheet1") Dim Sh2 As Worksheet: Set Sh2 = Sheets("Sheet2") With Sh1 '初期化 .Range("E7:E8").ClearContents 'tRng(targetRa…
1 2レコード単位で処理を繰り返す cntの数え方を要改善 2 Sub 背表紙2枚セット印刷() Dim Sh1 As Worksheet: Set Sh1 = Sheets("Sheet1") Dim Sh2 As Worksheet: Set Sh2 = Sheets("Sheet2") With Sh1 '初期化 .Range("E7:E8").ClearContents 'tRng(targetRa…