回答編集履歴
1
説明の修正
test
CHANGED
|
@@ -22,7 +22,7 @@
|
|
|
22
22
|
|
|
23
23
|
```
|
|
24
24
|
|
|
25
|
-
上記の、Copy と PasteSpecial で、クリップボードを使用して、コピー＆ペーストしているのでこれはコメント
|
|
25
|
+
上記の、`Copy` と `PasteSpecial` で、クリップボードを使用して、コピー＆ペーストしているのでこれはコメントにして、「コピペは以下でも可」のコードのコメントを外せば、クリップボードを使用せずに転記できるのでエラーは出ないし、処理も高速です。
|
|
26
26
|
|
|
27
27
|
|
|
28
28
|
|
|
@@ -48,31 +48,9 @@
|
|
|
48
48
|
|
|
49
49
|
|
|
50
50
|
|
|
51
|
-
あと、
|
|
51
|
+
あと、これ以降のコードの `Copy` と `PasteSpecial` の部分も同様にコメントにして、「コピペは以下でも可」の次のコードをコメントを外して修正してください。
|
|
52
52
|
|
|
53
53
|
|
|
54
|
-
|
|
55
|
-
```VBA
|
|
56
|
-
|
|
57
|
-
'suryo_kingakuCell.Copy
|
|
58
|
-
|
|
59
|
-
'pasteCell.PasteSpecial Paste:=xlPasteValues, _
|
|
60
|
-
|
|
61
|
-
' Operation:=xlNone, _
|
|
62
|
-
|
|
63
|
-
' SkipBlanks:=False, _
|
|
64
|
-
|
|
65
|
-
' Transpose:=False
|
|
66
|
-
|
|
67
|
-
'コピペは以下でも可
|
|
68
|
-
|
|
69
|
-
With suryo_kingakuCell
|
|
70
|
-
|
|
71
|
-
pasteCell.Resize(.Rows.Count, .Columns.Count).Value() = .Value()
|
|
72
|
-
|
|
73
|
-
End With 'suryo_kingakuCell
|
|
74
|
-
|
|
75
|
-
```
|
|
76
54
|
|
|
77
55
|
|
|
78
56
|
|