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

[WizarD.89]

IgorGO

посмотрел ваш файл, ничего особенного не происходит,воозможно отсуствуют НУЖНЫЕ ШРИФТЫ.

nilem

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

Спасибо ваш вариант у меня работает!

Hugo121

Пробовал ваши варианты, не один не дал желаемого результата.


Притом при вставки символа "ФИ" через Вставить->Символ, получается код 63, вот пример с файлом Символ.rar , где a1 символ вставленый через вставку, потом его код, и наконец приоброзованый код в символ.

Как видите первая и последняя строка отличаются и проанализировав свойства этих ячеек, нашел разницу только в .Font.name и Font.ThemeFont и после уравнивания этих свойств ничего не меняется.

[Hugo121]

Поставьте листу нормальные шрифты, а не экзотический calibri - и проблем не будет. Я там выше писал - моим кодом фи ставится при Arial и TimesNewRoman, и ещё вероятно при дюжине шрифтов (даже в 90% шрифтов - проверил), но не при Symbol и Calibri.
И, кстати, вставленному с помощью кода [c1].Value = ChrW(966)
=КОДСИМВ(C1) тоже возвращает 63.
А Вы не пробовали своему примеру в A1 поставить шрифт как на всём листе?

[WizarD.89]

Hugo121

спасибо разобрался) ваш вариант подходит.

P.S шрифты Arial и TimesNewRoman у меня присутствуют, но почему то Excel сам выбирал для себя шрифт calibri

[Hugo121]

Шрифт в настройках можно установить. У меня правда стоит "шрифт текста" - ктоб сказал, что это значит?