Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Таблица символов в макросе
 
#1
11.09.2010 15:58:07
Здравствуйте, любители и профессионалы Excel.  
Если возможно, помогите, пожалуйста, в небольшой заминке макроса.  
 
Нужно в макросе некой ячейке присвоить формулу, это я уже сделала, но в формуле присутствует буква греческого алфавита, в частности, "ФИ" (юникод: 03D5), как в макросе прописать эту букву?  
 
Пример: ActiveCell.FormulaR1C1 = "26a"  
 
Результат: вместо буквы "а" в ячейке нудно получить букву "фи" греческого алфавита.  
 
Спасибо всем, кто не оставит вопрос без внимания.
 
 
 
#2
11.09.2010 16:23:39
ActiveCell.Value = ChrW(981)
 
 
 
#3
11.09.2010 16:33:22
{quote}{login=1}{date=11.09.2010 04:23}{thema=}{post}ActiveCell.Value = ChrW(981){/post}{/quote}  
 
Павел, Спасибо Вам огромное!  
А не могли бы Вы сказать, где можно посмотреть список соответсвий символов греческого алфавита и ChrW кода?
 
 
 
#4
11.09.2010 16:34:01
Или:  
Public Sub tt()  
ActiveCell.FormulaR1C1 = "26f"  
ActiveCell.Characters(Start:=3, Length:=1).Font.Name = "Symbol"  
End Sub  
 
71575
Я сам - дурнее всякого примера! ...
 
 
 
#5
11.09.2010 16:38:52
эм.. где посмотреть, не знаю. Но предложу 2 вот таких вариант  
 
1-й вариант - через VBA  
 
ActiveCell.Value = ChrW(Evaluate("HEX2DEC(""03D5"")"))  
 
где 03D5 - Ваш Юникод  
 
 
2-й Вариант  
В ячейке А1 пишите свой Юникод, например, 03D5, а в соседней ячейке пишите функцию =ШЕСТН.В.ДЕС(A1), результат будет 981. Вот эти 981 и подставляете в строку  
 
ActiveCell.Value = ChrW(981)
 
 
 
#6
11.09.2010 16:39:17
Все, спасибо, поняла, как дальше действовать :)
 
 
 
#7
11.09.2010 16:43:17
Да, не за что) Мы все на Планете всегда готовы и рады помочь красивым девушками )
 
 
 
#8
11.09.2010 16:46:05
Ну и я свой вариант:  
Public Sub tt()  
Dim i As Integer  
For i = 1 To 4347  
Cells(i, 1).Value = ChrW(i)  
Next  
End Sub  
 
:-)
Я сам - дурнее всякого примера! ...
 
 
 
#9
11.09.2010 17:03:45
Public Sub PrintUnicod()  
Dim i  
For i = 32 To 10000  
   Cells(i, 1).Value = Hex(i) & " (" & i & ") = " & ChrW(i)  
Next i  
End Sub
 
 
 
#10
11.09.2010 21:15:07
{quote}{login=1}{date=11.09.2010 04:43}{thema=}{post}Да, не за что) Мы все на Планете всегда готовы и рады помочь красивым девушками ){/post}{/quote}  
 
Вы, видимо, хотели сказать "всегда готовы и рады помочь юзерам с красивыми девушками на аватарах"? :))
 
 
 
#11
11.09.2010 22:11:16
)) и это тоже )
 
 
 
Страницы: 1
Читают тему
Наверх