CODE Function

[2077delta]

Is there a similar function in VBA to Excel's CODE function. I'm importing an ASCII file and it has some unusual characters. What I want to do is identify their Character number and based on that number direct the macro to perform the requiste procedures.

 

[Mudface]

Have a look at the Chr function in VBA help, seems to do the same thing.

Edit:- Ooops, wrong way round . See Ivan's post below.
This message was edited by Mudface on 2002-09-06 12:22

 

[Corticus]

If you can't find a VBA f(x) for CODE(), you could put the formula in a cell and then let VBA refer to the cell...

Just a thought,
Corticus

 

[Ivan F Moala]

On 2002-09-06 12:05, 2077delta wrote:
Is there a similar function in VBA to Excel's CODE function. I'm importing an ASCII file and it has some unusual characters. What I want to do is identify their Character number and based on that number direct the macro to perform the requiste procedures.

<pre/>
MsgBox Asc(ActiveCell.Value)
</pre>

 

[2077delta]

Thanks Ivan, that's just what the doctor ordered.

 

[Joe Was]

This is a macro I use, it has two options; as an application, you enter the character in a fixed cell and press the form button or the current selection is used in the other. Each code only works with one character or only the first character is returned. JSW

Sub myASC()
'This code block for a cell.
If IsEmpty([B6].Value) = True Then
MsgBox "The ""Box"" is: Empty!"
Else
MsgBox "The ""ASC"" code," & Chr(13) & "for the character" & _
Chr(13) & "you entered is: " & Chr(13) & Chr(13) & _
" " & Asc([B6].Value)
'This code block for a selection.
'If IsEmpty(ActiveCell.Value) = True Then
'MsgBox "The ""Box"" is: Empty!"
'Else
'MsgBox "The ""ASC"" code," & Chr(13) & "for the character" & _
'Chr(13) & "you entered is: " & Chr(13) & Chr(13) & _
'" " & ASC(ActiveCell.Value)
End If
End Sub

P.S. This code turns out to be the same as Ivan's.
This message was edited by Joe Was on 2002-09-06 12:54