回答編集履歴
1
サンプルマクロ内のコメントを一部修正しました。
answer
CHANGED
|
@@ -37,7 +37,7 @@
|
|
|
37
37
|
'数式の再計算方式を「手動」に
|
|
38
38
|
Application.Calculation = xlCalculationManual
|
|
39
39
|
|
|
40
|
-
'貼り付け先ワークシート
|
|
40
|
+
'貼り付け先ワークシートに関する事前処理
|
|
41
41
|
|
|
42
42
|
Dim wsDistination As Worksheet
|
|
43
43
|
Dim rngTarget As Range
|
|
@@ -85,9 +85,8 @@
|
|
|
85
85
|
Debug.Print "貼り付け先始点セル:" & rngTarget.Address(External:=True)
|
|
86
86
|
Debug.Print "貼り付け先範囲:" & rngDestination.Address(External:=True)
|
|
87
87
|
|
|
88
|
-
'
|
|
88
|
+
'罫線の設定
|
|
89
89
|
With rngDestination
|
|
90
|
-
'各罫線の設定
|
|
91
90
|
.Borders(xlEdgeTop).LineStyle = xlContinuous
|
|
92
91
|
.Borders(xlEdgeBottom).LineStyle = xlContinuous
|
|
93
92
|
.Borders(xlEdgeLeft).LineStyle = xlContinuous
|
|
@@ -126,6 +125,7 @@
|
|
|
126
125
|
'貼り付け先となったセル範囲全体を参照
|
|
127
126
|
Set rngDestination = rngTarget.Resize(RowSize:=rngSource.Rows.Count, _
|
|
128
127
|
ColumnSize:=rngSource.Columns.Count)
|
|
128
|
+
|
|
129
129
|
Debug.Print "コピー元範囲:" & rngSource.Address(External:=True)
|
|
130
130
|
Debug.Print "貼り付け先始点セル:" & rngTarget.Address(External:=True)
|
|
131
131
|
Debug.Print "貼り付け先範囲:" & rngDestination.Address(External:=True)
|