Scripting.Dictionary的應用 02
- 帖子
- 178
- 主題
- 65
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2010-5-4
- 最後登錄
- 2024-2-1
|
Scripting.Dictionary的應用 02
|
|
|
|
|
|
|
- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-12-18
|
2#
發表於 2021-6-1 16:37
| 只看該作者
回復 1# john2006168
請測試看看，謝謝
Sub test()
Dim Arr, xD, T, T1, T2, T0%, i&, M%, N%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([PL!E1], [PL!A65536].End(3))
For i = 1 To UBound(Arr)
T = Arr(i, 2): T1 = Arr(i, 3): T2 = Arr(i, 4)
If xD.Exists(T & "") Then
M = xD(T & "")
If InStr(Arr(M, 5), "~") Then
T0 = Split(Arr(M, 5), "~")(1)
Else
T0 = Arr(M, 5)
End If
If Arr(i, 5) = T0 + 1 Then
Arr(M, 3) = Arr(M, 3) + T1
Arr(M, 4) = Arr(M, 4) + T2
Arr(M, 5) = Split(Arr(M, 5), "~")(0) & "~" & Arr(i, 5)
Else
GoTo 99
End If
Else
99: N = N + 1: xD(T & "") = N
For j = 1 To 5: Arr(N, j) = Arr(i, j): Next
End If
Next
Sheets("Summary").[A1].Resize(N, 5) = Arr
End Sub |
|
|
|
|
|
|
|
- 帖子
- 178
- 主題
- 65
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2010-5-4
- 最後登錄
- 2024-2-1
|
3#
發表於 2021-6-2 14:55
| 只看該作者
回復 2# samwang
謝謝老師幫忙,另外想問一下,如果我summary有了資料,想要PL的結果,請問要怎麼寫
. |
|
|
|
|
|
|
|
- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-12-18
|
4#
發表於 2021-6-2 15:08
| 只看該作者
回復 3# john2006168
不好意思，不太能理解你的需求，請再詳細說明一下，謝謝 |
|
|
|
|
|
|
|
- 帖子
- 178
- 主題
- 65
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2010-5-4
- 最後登錄
- 2024-2-1
|
5#
發表於 2021-6-2 16:02
| 只看該作者
回復 4# samwang
不好意思,事件是sheet"Summary"現有資料,數量除於件數後,將它分開每一個項目到sheet "PL",(條件是數量除於件數) |
-
-
擷取.PNG
(14.44 KB)
-
-
擷取01.PNG
(14.53 KB)
-
-
整合數量.zip
(20.75 KB)
|
|
|
|
|
|
|
- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-12-18
|
6#
發表於 2021-6-2 16:55
| 只看該作者
回復 5# john2006168
請測試看看，謝謝。
Sub test2()
Dim Arr, Brr(1 To 10000, 1 To 5), T1, T2, T3, T4
Arr = Range([Summary!E1], [Summary!A65536].End(3))
For i = 2 To UBound(Arr)
T1 = Arr(i, 1): T2 = Arr(i, 2): T3 = Arr(i, 3): T4 = Arr(i, 4)
For i2 = 1 To T4
N = N + 1: Brr(N, 1) = T1: Brr(N, 2) = T2
Brr(N, 3) = T3 / T4: Brr(N, 4) = 1: Brr(N, 5) = N
Next
Next
Sheets("Summary").[A1:E1].Copy Sheets("PL").[A1]
Sheets("PL").[a2].Resize(N, 5) = Brr
End Sub |
|
|
|
|
|
|
|
- 帖子
- 1447
- 主題
- 40
- 精華
- 0
- 積分
- 1471
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2024-12-5
|
7#
發表於 2023-6-20 13:11
| 只看該作者
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
資料表:
結果表執行前:
執行結果:
Option Explicit
Sub TEST_1()
Dim Brr, Crr, Z, A, i&, j%, R&, Y&, N&
Sheets("PL").UsedRange.ClearContents
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range([Summary!E1], [Summary!A65536].End(3))
For i = 2 To UBound(Brr)
A = Replace(Brr(i, 5), "~", "-"): A = A & "-" & A
A = Split(A, "-")(0) & "-" & Split(A, "-")(1)
R = Abs(Evaluate(A))
For Y = 0 To R
If Z(Val(A) + Y) <> "" Then
MsgBox "箱號重複: " & Val(A) + Y & " 修正後再執行!"
Exit Sub
End If
Z(Val(A) + Y) = i & "*0+" & Val(Brr(i, 3)) & "/" & (R + 1)
Next
Next
ReDim Crr(1 To Z.Count + 1, 1 To 6)
For Each A In Z.keys
If N = 0 Then
N = 1: Crr(N, 6) = "Remark"
For j = 1 To 5: Crr(N, j) = Brr(1, j): Next
End If
N = N + 1
Crr(N, 1) = Brr(Val(Z(A)), 1)
Crr(N, 2) = Brr(Val(Z(A)), 2)
Crr(N, 3) = Evaluate(Z(A))
Crr(N, 4) = 1
Crr(N, 5) = A
Crr(N, 6) = Brr(Val(Z(A)), 5)
Next
With [PL!A1].Resize(Z.Count + 1, 6)
.Value = Crr
.Sort KEY1:=.Item(5), Order1:=1, Header:=1
End With
Set Z = Nothing: Erase Brr, Crr
End Sub |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 163
- 主題
- 45
- 精華
- 0
- 積分
- 246
- 點名
- 28
- 作業系統
- win7
- 軟體版本
- ie
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-7-8
- 最後登錄
- 2024-12-7
|
8#
發表於 2023-7-6 12:56
| 只看該作者
本帖最後由 mdr0465 於 2023-7-6 12:58 編輯
回復 7# Andy2483
Andy 師兄,您好
後學在程式中有一點不明白想向你請教,
A = Split(A, "-")(0) & "-" & Split(A, "-")(1)
在以上語句中的紅色字(0) / (1) 是代表什麼意思呢?在學習上應怎樣運用呢?
請指教,謝謝 |
|
|
|
|
|
|
|
- 帖子
- 1447
- 主題
- 40
- 精華
- 0
- 積分
- 1471
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2024-12-5
|
9#
發表於 2023-7-6 13:44
| 只看該作者
本帖最後由 Andy2483 於 2023-7-6 14:06 編輯
回復 8# mdr0465
謝謝 mdr0465回復,謝謝一起學習
後學盡可能表達所學的心得,心得如下:
A = Split(A, "-")(0) & "-" & Split(A, "-")(1)
'這裡的(0)是指A字串以"-"符號分割成為一維陣列索引號
'以Split()分割字串後的一維陣列索引號從0開始
'Split()(0),Split()(1),Split()(2)...依此類推
'因為箱號 有單箱號(6,7),或區間箱號(2~5,9~10),所以用此法可一併處理
'這方法是學習自 准提部林前輩指導的下列連結帖,請參考
http://forum.twbts.com/viewthrea ... mp;page=1#pid121027
Sub TEST_2()
Dim A$, B$
A = "7"
B = "9-10"
B = B & "-" & B
MsgBox B
B = Split(B, "-")(0) & "-" & Split(B, "-")(1)
MsgBox B
MsgBox Abs(Evaluate(B))
A = A & "-" & A
MsgBox A
A = Split(A, "-")(0) & "-" & Split(A, "-")(1)
MsgBox A
MsgBox Abs(Evaluate(A))
End Sub
'==================================
補充:
如果將A,B變數設為通用型變數,就可以讓字串與一維陣列都可以被裝盛
Sub TEST_3()
Dim A, B
A = "7"
B = "9-10"
B = B & "-" & B
MsgBox B
B = Split(B, "-")
B = B(0) & "-" & B(1)
MsgBox B
MsgBox Abs(Evaluate(B))
A = A & "-" & A
MsgBox A
A = Split(A, "-")
A = A(0) & "-" & A(1)
MsgBox A
MsgBox Abs(Evaluate(A))
End Sub
至於怎麼運用? 建議多練習各種範例情境
建議前輩多上論壇發表看法.心得...做交流,達到 高中生等級,可搜尋內文,有超多的範例知識可學習與練習
|
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 163
- 主題
- 45
- 精華
- 0
- 積分
- 246
- 點名
- 28
- 作業系統
- win7
- 軟體版本
- ie
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-7-8
- 最後登錄
- 2024-12-7
|
10#
發表於 2023-7-6 21:36
| 只看該作者
回復 9# Andy2483
Andy 師兄,
謝謝你詳細的解答, 我會多上論壇多學習,
萬分感謝你 |
|
|
|
|
|
|
|
