ListBox與排序加總問題 - Excel程式區

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-25

11^# 跳轉到 »

發表於 2016-10-7 21:13 | 只看該作者

回復 10# starbox520

Xl0000160_v2.rar (21.78 KB)

TOP

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2016-10-10 01:10 | 只看該作者

回復 11# 准提部林

回准提大大
我又發現新問題了
如果是加機制進去像工作表3把表一
A,C,D如果相同就算一筆資料(已在表一以人工篩選方法判斷...)
然後B欄做歸類形成工作表3要的項目

Xl000040_EX2.rar (30.24 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-25

13^#

發表於 2016-10-10 10:58 | 只看該作者

回復 13# starbox520

完全看不懂~~~

TOP

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

14^#

發表於 2016-10-10 11:35 | 只看該作者

回復 14# 准提部林

回大大像這樣
以橘色區塊為例
A.C.D資料相符
再去分出他的B欄形成另一張圖

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-25

15^#

發表於 2016-10-10 13:39 | 只看該作者

回復 15# starbox520

Sub TEST()
Dim Arr, Brr, xD, Dn&, T$, N&, i&, j%
Arr = Range([工作表1!A1], [工作表1!A1].Cells(Rows.Count, 1).End(xlUp)(1, 5))
Set xD = CreateObject("Scripting.Dictionary")
ReDim Brr(1 To UBound(Arr), 1 To 8)
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 3) & "|" & Arr(i, 4)
Dn = xD(T)
If Dn = 0 Then
N = N + 1: Dn = N: xD(T) = N
For j = 1 To 3: Brr(Dn, j) = Arr(i, Array(1, 3, 4)(j - 1)): Next
End If
j = Int(InStr("---BK-VM-TR-PK-", "-" & Split(Arr(i, 2), "_")(1) & "-") / 3)
If j > 0 Then
Brr(Dn, j + 3) = Brr(Dn, j + 3) + Arr(i, 5)
Brr(Dn, 8) = Brr(Dn, 8) + Arr(i, 5)
End If
Next i
If N = 0 Then Exit Sub
With Sheets("工作表3")
.UsedRange.Offset(1, 0).Clear
.[A2].Resize(N, 8) = Brr
Application.Goto .[A1]
End With
End Sub

複製代碼

Xl0000164.rar (23.32 KB)

TOP

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

16^#

發表於 2016-10-10 14:16 | 只看該作者

回復 16# 准提部林

大大這段
j = Int(InStr("---BK-VM-TR-PK-", "-" & Split(Arr(i, 2), "_")(1) & "-") / 3)

還有這段
Brr(Dn, j + 3) = Brr(Dn, j + 3) + Arr(i, 5)

可以說明一下嗎太厲害了><"想知道這是怎麼思考的

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-25

17^#

發表於 2016-10-10 15:42 | 只看該作者

回復 17# starbox520

MsgBox Split("5F_BK", "_")(1) '>>> 取得"_"右方的"BK"

MsgBox InStr("---BK-VM-TR-PK-", "-" & "BK" & "-") '>>> 等于 3
MsgBox Int(3 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "VM" & "-") '>>> 等于 6
MsgBox Int(6 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "PK" & "-") '>>> 等于 12
MsgBox Int(12 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "" & "-") '>>> 等于 1
MsgBox Int(1 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "HG" & "-") '>>> 等于 0
MsgBox Int(0 / 3)

這樣就可以知道數值放在哪欄, j + 3 是因前三欄已使用

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-25

18^#

發表於 2016-10-10 15:49 | 只看該作者

回復 17# starbox520

也可用這：
M = Application.Match(Split(Arr(i, 2), "_")(1), [工作表3!D1:G1], 0)
If IsNumeric(M) Then
　　Brr(Dn, M + 3) = Brr(Dn, M + 3) + Arr(i, 5)
　　Brr(Dn, 8) = Brr(Dn, 8) + Arr(i, 5)
End If

TOP

starbox520