Detla symbol in code

[David]

Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7DayΔ"

but I am unable to get the Δ character to work. Possibly I have to use
unicode?

Thanks,
David

 

[JLGWhiz]

Try this:

Sub dk()
MyText = "7DayD"
Range("B2") = MyText
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub

 

[David]

Hi,
This worked, thank you. I got it to work with out the MyText

Sub dk()
Range("B2") = "7DayD"
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub

Thanks Again,
David

 

[David]

Sorry,

I did some other research and found:
ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(948)
but the above does not give me Delta, but some other character. Any ideas,
it is simplier to use, if it would work correctly.

Thanks,
David

 

[Bernie Deitrick]

David,

948 is lower case delta, ChrW(916) is upper case (though I'm sure there are
others as well, such as 8710).

ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(916)

HTH,
Bernie
MS Excel MVP

 

[David]

Hi Bernie,

This worked perfectly. I looked all over and saw the other ChrW in several
places, but it sure did not work. Did you find this on line? Could you share
the reliable source that you used, since mine was wrong?

Thanks Again,
David

 

[Bernie Deitrick]

David,

I didn't have a source - I wrote a bit of code like

Sub ListExtendedASCII()
Dim i As Integer
Dim j As Integer
For i = 901 To 1000
With Cells(i - 900, 1)
.Value = ChrW(i)
.Offset(, 1) = AscW(.Value)
End With
Next i
End Sub

to look at the characters in the 900 range, since I knew from you that 948 was lower case delta.

You can extend the code to show the whole list.

HTH,
Bernie
MS Excel MVP