回答編集履歴
1
test
CHANGED
|
@@ -133,7 +133,7 @@
|
|
|
133
133
|
Next R
|
|
134
134
|
End Sub
|
|
135
135
|
|
|
136
|
-
Sub Select
|
|
136
|
+
Sub SelectAsset(sheetName As String, index As Long)
|
|
137
137
|
Worksheets(sheetName).Activate
|
|
138
138
|
Range(Cells(1, index * 32 + 1), Cells(32, index * 32 + 32)).Copy
|
|
139
139
|
End Sub
|