Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro help
I would like to create a macro that could convert numbers into text.
1=t,2=r,3=k,4=b,5=a,6=c,7=z,8=o,9=u,0=q eg 123.45 should be trk.ba Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro help
Ria,
Try this Function Encrypt(inp) Dim aryLetters() Dim i Dim sTemp As String aryLetters = Array("q", "t", "r", "k", "b", "a", "c", "z", "o", "u") For i = 1 To Len(inp) If IsNumeric(Mid(inp, i, 1)) Then sTemp = sTemp & aryLetters(Mid(inp, i, 1)) Else sTemp = sTemp & Mid(inp, i, 1) End If Next i Encrypt = sTemp End Function -- HTH RP "ria" wrote in message ... I would like to create a macro that could convert numbers into text. 1=t,2=r,3=k,4=b,5=a,6=c,7=z,8=o,9=u,0=q eg 123.45 should be trk.ba Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |