- 帖子
- 253
- 主題
- 5
- 精華
- 0
- 積分
- 308
- 點名
- 0
- 作業系統
- W10
- 軟體版本
- Excel 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2019-6-16
- 最後登錄
- 2024-3-20
|
回復 6# 准提部林
抱歉 沒有發現準大在提醒我 .. 但這寫法 沒有 jcchiang 大大的好- Public Sub 字典運用練習()
- Application.ScreenUpdating = False
-
- Arr = [特休天數!A1].CurrentRegion
- Brr = [登錄!A1].CurrentRegion
- Set xD = CreateObject("Scripting.Dictionary")
-
- For H = Brr(3, 2) To Brr(3, 2) + (Brr(3, 3) - 1)
- xD(H) = ""
- Next H
-
- For x = 2 To UBound(Arr)
-
- If Brr(1, 2) = Arr(x, 1) Then
-
- For Each D In xD
- R = Array(Arr(x, 1), Arr(x, 2), [登錄!A3], D, 1, Arr(x, 8))
- If D >= Arr(x, 4) And D <= Arr(x, 5) Then
-
- For K = 1 To 6
- [list!A1].Cells(Rows.Count, K).End(xlUp)(2) = R(K - 1)
- Next K
- Sheets(2).Cells(3, 4) = Sheets(2).Cells(3, 4) & " " & Arr(x, 8)
- G = G + 1
- End If
- Next D
-
- If G <> 0 Then Sheets(1).Cells(x, 9) = Sheets(1).Cells(x, 9) + G
- End If
-
- G = 0
- Next x
-
- Application.ScreenUpdating = True
- End Sub
|
|
發表於 2021-1-18 19:30
| 
