回答編集履歴
1
コードを一部修正
answer
CHANGED
|
@@ -9,8 +9,8 @@
|
|
|
9
9
|
|
|
10
10
|
wshSWK.Range("A1").CurrentRegion.ClearContents
|
|
11
11
|
wshSWK.Range("A1:B" & lngListCount) = ListBox1.List
|
|
12
|
-
wshSWK.Range("
|
|
12
|
+
wshSWK.Range("C1:C" & lngListCount).FormulaR1C1 = "=RC[-2]"
|
|
13
|
-
wshSWK.Range("
|
|
13
|
+
wshSWK.Range("D1:D" & lngListCount).FormulaR1C1 = "=TEXT(RC[-2],""h:mm"")"
|
|
14
14
|
|
|
15
15
|
With wshSWK.Sort
|
|
16
16
|
.SortFields.Clear
|