Caculate From One Cell & a Dimension Table

[phiden]

Hi all,

I want to creat a function to calculate weight and thickness of a order ID (with list products).
But list of products and quantity are recorded in a cell.
Can VBA creat this function or not?

See attached file to see the details

Thank so much.

[大灰狼1976]

Hi phiden!
Something like below.

Sub test()
Dim i&, j&, n&, arrTmp, rng As Range, rng1 As Range, strTmp$
Set rng = [a3].CurrentRegion
Application.ScreenUpdating = False
For i = 2 To rng.Rows.Count
strTmp = Replace(Replace(rng(i, 3), "(", ""), ")", ",")
arrTmp = Split(strTmp, ",")
strTmp = ""
For j = 0 To UBound(arrTmp) Step 2
Set rng1 = Columns("g").Find(arrTmp(j + 1), lookat:=xlWhole)
If Not rng1 Is Nothing Then
strTmp = strTmp & "+" & arrTmp(j) & "*H" & rng1.Row
Else
strTmp = strTmp & "+""Not Found!"""
End If
Next j
strTmp = "=" & Mid(strTmp, 2)
rng(i, 4) = strTmp
rng(i, 5) = Replace(strTmp, "H", "I")
Next i
Application.ScreenUpdating = True
End Sub