Number Conversion to Code
Closed
Hayseed
-
Nov 24, 2015 at 10:29 AM
TSCGCobra043
TSCGCobra043
- Posts
- 7
- Registration date
- Monday December 14, 2015
- Status
- Member
- Last seen
- December 16, 2015
Related:
- Number Conversion to Code
- Vi volte activation sms code - Guide
- Login approvals code issues ✓ - Forum - Facebook
- Care code: 205.2 [lu003] - Forum - Yahoo Mail
- Samsung factory reset code android - Guide
- Us country code - Guide
1 reply
Put this in a module:
To use it in a sheet, put this in a cell, where A2 is the cell containing value to convert:
Function numbertocode(mycell As Range) As String Dim n As Integer ' 1234567890 codelist = "PCDEFGHIJK" For n = 1 To Len(CStr(Format(mycell, "0.00"))) If Mid(mynum, n, 1) <> "." Then numbertocode = numbertocode & CStr(Mid(codeist, Val(Mid(mynum, n, 1)) + 1, 1)) Next n End Function
To use it in a sheet, put this in a cell, where A2 is the cell containing value to convert:
=numbertocode(A2)
Dec 14, 2015 at 04:52 PM