text calculation

J

Joy

Hi...
I need to calculate text for each letter, it is possible
for using for numerlogy name calculation.

for expl: Joy +1+7+1 = 9


Sum:
j -1
o-7
y-1
 
E

Eduardo

Hi,
you can do text to column and split the name in different columns, then get
the calculation needed based in a table with all the letters and the numbers.
I have not idea how you got 1 for J and Y, if you give me some explanation I
will try to help you
 
J

joel

You can create a UDFD function like the worksheet functions

=numerology(A1:B26,D1)


Create a two column table with the character in A1 to A26 and th
values in column B1 to B26. Puit the word Joy in cell D1. You ca
change the worksheet locations like any other worksheet function.


Then in VBa put the code below. From worksheet type Alt-F11. then i
VBA window from menu Insert - Module. Post the code below into th
module view window. e=Enter the formula above after the code is pu
into the module.

Function numerology(table As Range, word As String) As Variant

numerology = 0
For i = 1 To Len(word)
char = Mid(word, i, 1)
'lookup character in table
Set c = table.Columns(1).Find(what:=char, _
LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
numerology = "Cannot find char : " & char
Else
numerology = numerology + c.Offset(0, 1)
End If
Next i



End Functio
 
D

Dave Peterson

See your later post.
Hi...
I need to calculate text for each letter, it is possible
for using for numerlogy name calculation.

for expl: Joy +1+7+1 = 9

Sum:
j -1
o-7
y-1
Click to expand...
 
Top