Number Conversion to Code
Closed
Hayseed
-
Nov 24, 2015 at 10:29 AM
TSCGCobra043 Posts 5 Registration date Monday December 14, 2015 Status Member Last seen December 16, 2015 - Dec 14, 2015 at 04:52 PM
TSCGCobra043 Posts 5 Registration date Monday December 14, 2015 Status Member Last seen December 16, 2015 - Dec 14, 2015 at 04:52 PM
Related:
- Number Conversion to Code
- Battery reset code - Guide
- Usa whatsapp number code - Guide
- How to get whatsapp verification code online - Guide
- Samsung volume increase code - Guide
- Europe number code - Guide
1 response
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