Query of cells addition

[PANKAJUTEKAR]

Dear All,

In Aftrenoon, Mr. Sektor Sir has given me the following code for cells addition containing string values.
but this code i have not understand.

Function SumKW(ParamArray arr() As Variant) As Double
Application.Volatile
Dim i As Integer, res As Double
Dim cell As Range
For i = LBound(arr) To UBound(arr)
For Each cell In arr(cell)
res = res + Left(cell, Len(cell) - 2)
Next
Next
SumKW = res
End Function

I wrote this code in vba workbook.
what he has suggested me, in workbook, in cell c115 (here i want total),
put formula as "=SumKW(c7,c112)"

But i am not getting how this "SumKW" function will work after i wrote in cell 115.

Please All, make me understand this query.
This is very imp for me to solve my problem.

 

[CharlesChuckieCharles]

Post the original Requirement

 

[PANKAJUTEKAR]

Sir,

In Col C-
range c7:c112 contains value.
i.e- c7= 5.5kw
c8 = 15.5kw
c9 = 25.5kw
and so on till c112.

whenver i try to add to all this gives an error, bcoz of cell contains a string value.

Therfore, i require some idea .. or anything the addition will done in c115 along with the o/p kw.

for eg.- in c115 o/p is = 1022.55kw
like this.
Can u pls solve this problem Sir?

and some of the cells have blank value also..like c11

 

[taurean]

Pankaj,

Try the following UDF instead i.e. similar to SUM (except handling kw string)

Function SumKW(r As Range) As String
'Function will recalculate automatically
Application.Volatile
'Variables for calculations
Dim dCellKWvalue As Double, dTotal As Double
Dim cell As Range
'Sum formula in essence
For Each cell In r
dCellKWvalue = Left(cell, Len(cell) - 2)
dTotal = dTotal + dCellKWvalue
Next cell
'adding kw string to the calculated total
SumKW = dTotal & "kw"
End Function

 

[SuperFerret]

Should you not be posting this to the original thread? As all the explanation/clarification is there?

http://www.mrexcel.com/forum/showthread.php?p=2758392#post2758392

Also, in the original thread you show a single range =SumKW(c7:c112) but you have it here as =SumKW(c7,c112) is that just a typo?