- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2023-9-21
|
3#
發表於 2021-8-23 11:51
| 只看該作者
回復 2# ziv976688
我的困難點是在無法依第4段數字選擇"由大而小"的順序~
>> 由大至小開啟檔案，修改如下紅字部分，請測試看看，謝謝
Private Sub CommandButton1_Click()
Dim Path As String, a, Ar(1 To 1000, 1 To 2)
Nrange = "1878" ' InputBox("請輸入DATA!的開獎期數", "輸入期數")
Tm = Timer
[L1] = ""
Application.DisplayAlerts = False
Set fs = CreateObject("Scripting.FileSystemObject")
Path = ThisWorkbook.Path
a = Path & "\7C機"
Set f = fs.GetFolder(a)
Set fc = f.Files
For Each f1 In fc
n = n + 1
Ar(n, 1) = a & "\" & f1.Name
Ar(n, 2) = Split(Split(f1.Name, "_")(3), "-")(0)
Next
For i = 1 To UBound(Ar)
For j = i + 1 To UBound(Ar)
If Ar(i, 2) < Ar(j, 2) Then
a = Ar(i, 1)
Ar(i, 1) = Ar(j, 1)
Ar(j, 1) = a
End If
Next j
Next i
For i = 1 To n
Set WB = Workbooks.Open(Ar(i, 1))
WB.Close
Next
With Sheets("Sheet1")
.[A1] = Nrange
.[A2].Formula = "=CountA(M1:GZ1) / 2 & ""個""": .[A2] = .[A2].Value
.[A3] = "開獎號碼"
...
... |
|
