質問編集履歴
1
誤字修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -16,7 +16,15 @@
|
|
|
16
16
|
|
|
17
17
|
・実行時エラーは「438」
|
|
18
18
|
|
|
19
|
-
・エラーは下記コードの
|
|
19
|
+
・エラーは下記コードの
|
|
20
|
+
|
|
21
|
+
** ActiveWorkbook.Worksheets("支払申請一覧表").Sort.SortFields.Add2 Key:=Range( _
|
|
22
|
+
|
|
23
|
+
"A2:A1048576"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
|
|
24
|
+
|
|
25
|
+
xlSortNormal**
|
|
26
|
+
|
|
27
|
+
|
|
20
28
|
|
|
21
29
|
・エクセルのバージョンはどちらも「2016」
|
|
22
30
|
|