For example, the cell is F5 and you want the code of the fourth character :
Code:
=CODE(MID($F$5,4,1))
- By a VBA code :
[pre]Sub CellCharCodes()
S = ActiveCell
For N = 1 To Len(S)
C = Mid(S, N, 1)
T = T & Format(N, "@@ : ") & C & Format(Asc(C), " @@@") & vbLf
Next
MsgBox T
End Sub
[/pre]
Select first the cell in the worksheet and after execute the sub …