Trong Excel cố gắng chọn kiẻu dữ liệu đơn giản để dễ tính toán, text là text mà number ra number, làm chi trong chuỗi có số cho khó khăn thêm.Em xin nhờ mọi người giúp em bài toán tổng hợp theo điều kiện là các mã số trong dấu ngoặc (các mã số thay đổi).
Vì trình độ có hạn, em chưa giải quyết được đều phải làm thủ công, rất mong mọi người giúp đỡ
Dùng công thức này xem:
=SUMPRODUCT((COUNTIF(D3,"*"&$A$3:$A$13&"*")*$B$3:$B$13))TỐI ƯU là dùng VBA
- Chuổi Chỉ tiêu A (12,11) gì gì đó, ta sẽ tách ra, lấy từ sau dấu "(" đến trước dấu ")" (cái này công thức cũng làm được)
Public Function Tong(Vung, Cll)
Dim Tach, d, Mg, I, CoRe, Kq
Set d = CreateObject("scripting.dictionary")
Set CoRe = CreateObject("VBScript.RegExp"): Mg = Vung.Value
For I = 1 To Vung.Rows.Count
If Not d.exists(Mg(I, 1)) Then
d.Add Mg(I, 1), Mg(I, 2)
Else
d.Item(Mg(I, 1)) = d.Item(Mg(I, 1)) + Mg(I, 2)
End If
Next I
With CoRe
.Global = True
.Pattern = "[^0-9,,]"
Tach = .Replace(Cll, "")
End With
Tach = Split(Tach, ",")
For I = LBound(Tach) To UBound(Tach)
Kq = Kq + d.Item(Val(Tach(I)))
Next I
Tong = Kq
End Function
Sub tong()
Dim data, dic As Object, iRow As Long, i As Long, item, VungDL, KQ, KQEnd As Long
Set dic = CreateObject("Scripting.Dictionary")
data = Split(Mid(Replace(Range("D3").Value, "...)", ""), InStr(Range("D3").Value, "(") + 1, 100), ",")
With Sheet1
VungDL = .Range("A3:B13").Value
ReDim KQ(1 To UBound(VungDL, 1), 1 To 2)
For iRow = 1 To UBound(VungDL, 1)
If Not dic.exists(VungDL(iRow, 1)) Then
i = i + 1
dic.item(VungDL(iRow, 1)) = i
KQ(i, 1) = VungDL(iRow, 1)
KQ(i, 2) = VungDL(iRow, 2)
Else
KQ(dic.item(VungDL(iRow, 1)), 2) = KQ(dic.item(VungDL(iRow, 1)), 2) + VungDL(iRow, 2)
End If
Next
For iRow = 1 To i
For Each item In data
If CDbl(item) = KQ(iRow, 1) Then
KQEnd = KQEnd + KQ(iRow, 2)
End If
Next
Next
.Range("E3").Value = KQEnd
End With
End Sub=SUMPRODUCT((COUNTIF(D3,"*"&$A$3:$A$13&"*")*$B$3:$B$13))Public Function Tong(Vung, Cll)
Dim Tach, d, Mg, I, CoRe, Kq
Set d = CreateObject("scripting.dictionary")
Set CoRe = CreateObject("VBScript.RegExp"): Mg = Vung.Value
For I = 1 To Vung.Rows.Count
If Not d.exists(Mg(I, 1)) Then
d.Add Mg(I, 1), Mg(I, 2)
Else
d.Item(Mg(I, 1)) = d.Item(Mg(I, 1)) + Mg(I, 2)
End If
Next I
With CoRe
.Global = True
.Pattern = "[^0-9,,]"
Tach = .Replace(Cll, "")
End With
Tach = Split(Tach, ",")
For I = LBound(Tach) To UBound(Tach)
Kq = Kq + d.Item(Val(Tach(I)))
Next I
Tong = Kq
End FunctionCái biến tên CoRe là chữ Cò ghép với 2 chữ đầu của RegExp chứ có gì đâu, còn cái CreateObject("VBScript.RegExp") bạn thử thì từ từ "ngâm cú" nó cho vui chứ giải thích cái này hơi "mơ huyền.....hồ", thí dụ, đọc cái này xong hổng biết bạn có hiểu hông chứ mình.....chẳng hiểu mô tê gì ráo
Híc
.Global = True
.Pattern = "[^0-9,,]"Huhu, mình cũng chỉ tự mò mẫm học nên.......... giải thích .....đại nhé, hông hiểu cũng chịu thôi
code chạy hết dữ liệu trong Cll tìm thằng nào thỏa điều kiện thì thay, nếu
thì nó chạy tới chỗ đầu tiên thỏa điều kiện thì thay thế, thay xong nó nghỉ luôn, hổng đi kiếm tiếp
Cái này lấy câu hỏi của bạn, xóa khúc giữa, thành câu trả lời cho bạn. Ngộ. Híc
Nôm na thì thằng này giống như điều kiện để thay thế (còn cú pháp nó thì cực kỳ "dzắc dzối", phải mò mẫm lâu lắm), như trong bài của bạn tìm trong Cll thằng nào hổng phải số & "," thì thay nó bằng ""
http://www.giaiphapexcel.com/forum/showthread.php?16983-Tách-số-không-dùng-vòng-lặp
Nói chung là nên học để biết từ cơ bản... Mấy cái "trò" này là VBScript ---> Tặng bạn file này về tự nghiên cứu nhé
Function ValExp(ByVal Exp As String) As Double
Dim tmp As String
On Error Resume Next
tmp = Mid(Exp, InStr(Exp, ":") + 1, Len(Exp))
With CreateObject("VBScript.RegExp")
.Global = True: .Pattern = "[^0-9 + - * / . ( )]"
ValExp = Evaluate(.Replace(tmp, ""))
End With
End FunctionMình có thể dùng cách này mình chưa viết Function, bạn có thể dựa vào mà viết Function
Sub test()
With CreateObject("VBScript.RegExp")
.Global = True: .Pattern = "(.*):"
Range("b1").Value = Evaluate(.Replace(Range("a1").Value, ""))
End With
End Sub
