Appending special characters

[Guest]

I am using Office 2003 on Windows XP.

I would like to code certain buttons on a shortcut menu that when clicked
append certain symbols into the active cell always at the end of any text or
values that may already reside in the cell. I can code the shortcut menu bit
without a problem.

The characters I need are prime alpha ('A), beta, delta, and omega. I tried
recording the macro, which works ONLY for beta as: ActiveCell.FormulaR1C1 =
"ß"
The other characters come thru only as question marks.

Can someone please post some concise code illustrating how to do this?
Thanks much in advance.

 

[Guest]

Hi,
One way is to store the special characters in a range of cells
(Insert==>Symbol ..) and then append (concatenate) the appropriate character
to the text in your cell(s).

e.g. Cells(1,"C")=Cells(1,"A") & cells(1,"B") where A contains your text
and B contains the required symbol.

HTH

 

[Guest]

This has nothing to do with buttons. This tiny sub just appends a delta to
whatever single cell you select prior to running the sub:

Sub mmm()
Selection.Value = Selection.Value & ChrW(948)
End Sub

Use other Unicodes for other Greek letters

 

[Tom Ogilvy]

Sub abc()
l = Len(ActiveCell)
ActiveCell.Value = ActiveCell.Value & "ABDO"
ActiveCell.Characters(l + 1, 4).Font.Name = "Symbol"

End Sub


My Greek alphabet may be off, but you should get the idea.

 

[Guest]

Thanks for all of your suggestions! This covered the issue very well!