ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Ascii (https://www.excelbanter.com/excel-programming/290084-ascii.html)

Syrus the Virus[_11_]

Ascii
 
Hi guys and galls,

Question 1:

I know how to read what kind of ASCII is standing in a cell ( Example:
6 is 54 and z is 90) but what if I want it the other way around,
displaying the leter with the code 86 for example.

Question 2:

And what if I want to read a multiple filled cell. A cell with for
example VW as Value?

Question 3:

Can I rip the contens of the cell apart and check if the Carathers used
in a cell are for example letters ( like ASCII between 65 and 90)

Please
help!!!!.1.!!!!!!!1!1.11.1!1!.1111.1!!!!!! 1.!!111!.....1.1.!!!!1.111!!!!!!


---
Message posted from http://www.ExcelForum.com/


Jake Marx[_3_]

Ascii
 
Hi Syrus,

Answers inline....

Question 1:
I know how to read what kind of ASCII is standing in a cell ( Example:
6 is 54 and z is 90) but what if I want it the other way around,
displaying the leter with the code 86 for example.


Use the Chr$() function instead of the Asc() function. If you select Asc in
your code and hit F1, you will be taken to the help for the Asc function.
From there, you can click See Also and read the help on Chr.

Question 2:
And what if I want to read a multiple filled cell. A cell with for
example VW as Value?


For this one, you can read the entire string into a variable and step
through it with a loop:

Sub test2()
Dim s As String
Dim n As Integer

s = Sheet1.Range("A1").Text
For n = 1 To Len(s)
MsgBox Asc(Mid$(s, n, 1))
Next n
End Sub

Question 3:
Can I rip the contens of the cell apart and check if the Carathers
used in a cell are for example letters ( like ASCII between 65 and 90)


Sub test3()
Dim s As String
Dim n As Integer
Dim nCode As Integer
Dim bBadData As Boolean

s = Sheet1.Range("A1").Text
For n = 1 To Len(s)
nCode = Asc(Mid$(s, n, 1))
If nCode < 65 Or (nCode 90 And (nCode < 97 _
Or nCode 122)) Then
bBadData = True
Exit For
End If
Next n

If bBadData Then MsgBox ("Invalid character(s)")
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


Harald Staff

Ascii
 
1
=CHAR(86)
or
=CHAR(A1)
with 86 in cell A1
2+3
You'd need a macro for that I think.
--
HTH. Best wishes Harald
Followup to newsgroup only please

"Syrus the Virus " skrev i
melding ...
Hi guys and galls,

Question 1:

I know how to read what kind of ASCII is standing in a cell ( Example:
6 is 54 and z is 90) but what if I want it the other way around,
displaying the leter with the code 86 for example.

Question 2:

And what if I want to read a multiple filled cell. A cell with for
example VW as Value?

Question 3:

Can I rip the contens of the cell apart and check if the Carathers used
in a cell are for example letters ( like ASCII between 65 and 90)

Please

help!!!!.1.!!!!!!!1!1.11.1!1!.1111.1!!!!!! 1.!!111!.....1.1.!!
!!1.111!!!!!!


---
Message posted from http://www.ExcelForum.com/




Chip Pearson

Ascii
 
You can use the Chr function to get the character corresponding
to an Ascii value. For example, Chr(65) will return an 'A'
character as a string.

You can loop through the characters in a string, ensuring that
each character is an uppercase letter. E.g.,

Dim S As String
Dim C As String
Dim N As Long

S = Range("A1").Text
For N = 1 To Len(S)
C = Mid(S, N, 1)
If Asc(C) = 65 And Asc(C) <= 90 Then
' upper case character
Else
' not an upper case character
End If
Next N


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Syrus the Virus "
wrote in message
...
Hi guys and galls,

Question 1:

I know how to read what kind of ASCII is standing in a cell (

Example:
6 is 54 and z is 90) but what if I want it the other way

around,
displaying the leter with the code 86 for example.

Question 2:

And what if I want to read a multiple filled cell. A cell with

for
example VW as Value?

Question 3:

Can I rip the contens of the cell apart and check if the

Carathers used
in a cell are for example letters ( like ASCII between 65 and

90)

Please

help!!!!.1.!!!!!!!1!1.11.1!1!.1111.1!!!!!! 1.!!111!..
....1.1.!!!!1.111!!!!!!


---
Message posted from http://www.ExcelForum.com/




Syrus the Virus[_12_]

Ascii
 
Tnxs for you're quick responce..........

--
Message posted from http://www.ExcelForum.com



All times are GMT +1. The time now is 01:44 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com