Вставка символа:)

[WizarD.89]

Здравствуйте! подскажите пожалуйста как мне с помощью vba вставить такой символ в ячейку.символ.JPG

[WizarD.89]

P.S код символа 63, когда я до этого столкнулся с этой проблемой, помогло изменение шрифта на .Font.Name = "Symbol", но в этот раз про анализировав ячейку, выдает такое имя шрифта "Times New Roman", но при изменение с помощью vba на этот шрифт, так же остается вопросительный знак.

[Hugo121]

Sub tt()
With [a1]
.Value = ChrW(966)
End With
End Sub

или просто

Sub ttt()
[a1].Value = ChrW(966)
End Sub

Но фонт не "Symbol"!!!

[WizarD.89]

Hugo121
не помагает вставляет букву "ф", а надо фи

[IgorGO]

пишите чего-нибудь в колонку 1 латинскими буквами

[Hugo121]

У меня мой код вставляем именно фи и при ариал, и при таймс роман. Не знаю, в чём у Вас проблема. А код "ф" - ChrW(1060) и ChrW(1092)

[nilem]

Попробуйте j шрифт Symbol, типа

Sub ttt()
With [a1]
    .Value = "j"
    .Font.Name = "Symbol"
End With
End Sub

[Hugo121]

Да, и при изменении шрифта на Symbol как раз j и показывало в ячейке.

[Hugo121]

Вот сравнил - визуально оба символа одинаковы, но шрифт имеет значение. При Calibri пишет ф, при обычных шрифтах фи:

Sub ttt()
With [a1]
    .Value = "j"
    .Font.Name = "Symbol"
End With
[b1].Value = ChrW(966)
End Sub

Соврал про j - показывало нечто отдалённо похожее

[IgorGO]

У меня в системе есть два шрифта: GreekC и GreekS, я их не ставил себе, думаю "пришли" с офисом - скорее всего есть у всех.