Help me continue my code (suming all the vlookup result)

[jp16]

Hi, just for fun, i tried to see if possible to sum the Alphabet in a Cell, example A=1, B=2.....Z=26
I create a table, Column A is all the alphabet, Column B is 1 to 26, below is my extract of my code, i get stuck at the ...... part. Anyone can help me continue? Anyway, just curious, possible to make it case-sensitive and how to make it not case-sensitive by adding a variable in the function. Like abcsum(abc,0 or 1) 0 = case sensitive and 1 = not case sensitive. Possible?


[code]

Function abcsum(abc As String) As Integer
Dim i As Long
i = Len(abc)
For i = 1 To Len(abc)
abcsum = Application.VLookup(Left(abc, i), Range("A:B"), 2, 0)
abcsum = abcsum + ......

Next i
End Function

[PCI]

It seems is missing code tags around you code example
In case it is case sensitive which value to use for UPPER case and for LOWER case ???

[jp16]

In my column A, its uppercase. HOwever, when i tested using vlookup "a". It will give me the result 1. Anyway, how do amend my code such that it will work regardless of case sensitive or not. I kind of stuck at that ...... part.

[PCI]

Do not forget code tags
Try

Please Login or Register  to view this content.

[jp16]

Your code work, but how do i exclude those error? Like number, space, comma etc?

[PCI]

See

Please Login or Register  to view this content.