VBA code to enter extended characters onto a worksheet
Peter,
<VBA Help
.....However, on DBCS systems, the actual range for charcode is -32768 to
65535.
.....The ChrW function returns a String containing the Unicode character
except on platforms where Unicode is not supported, in which case, the
behavior is identical to the Chr function.
</VBA Help
Change "For ictr = 1 To 255" to something like "For ictr = 1 To 60000" and
see what you get.
Nick
"Peter Rooney" wrote in message
...
Nick,
At first glance, it seems to do the same thing - what's the difference
between CHR and CHRW ?
Pete
"NickHK" wrote:
Peter,
Does ChrW in place of Chr give you the desired results ?
NickHK
"Norman Jones" wrote in message
...
Hi Peter,
Try:
Sub Tester01()
Dim iCtr As Long
For ictr = 1 To 255
Cells(iCtr, 1) = Chr(iCtr)
Next iCtr
End Sub
---
Regards,
Norman
"Peter Rooney" wrote in
message
...
Can anyone help me with a way to enter extended characters into a
worksheet.
I can record myeslf entering something like <<ALT+0166 into a
cell,
but
the recorder shows the actual character, and not the keystroke
sequence.
The reason I want to be able to do this is that I want to be able to
write
a
loop that enters all the characters in a character set into
successive
cells
in the worksheet thus:
For Counter=1 to 255
selection.formula= (whatever the answer is to this question)
e.g.
ALT+0156
selection.offset(1,0).select
Next Counter
then formats them in a particular font, to produce and print
character
maps
for all characters in that font.
Not life-threatening, I know, but I'm just curious to know how it's
done!
Cheers
Pete
|