Вставить символ на VB(A)

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
kminas
Сообщения: 108
Зарегистрирован: 06 янв 2006, 00:06
Откуда: Ростов-на-Дону

Как вставить в строку символ, например, знак диаметра? Я и ASCII и Unicode пробовал все одно 125 вставляет с разными буквами или без оных
Fatty
Сообщения: 34
Зарегистрирован: 20 ноя 2006, 11:23
Откуда: Славен град Петров

Не уверен, но попробуй: %%с или %%С

~'J'~
Pavel55
Сообщения: 418
Зарегистрирован: 20 окт 2006, 11:40
Откуда: Moscow

Может как-то так (Тестируйте в Excel)

Код: Выделить всё

Sub Макрос1()
Dim iString$
    ActiveCell = ChrW(216)
    ActiveCell.Offset(, 1) = ChrW(248)
    iString = "Мама " & ChrW(216) & " мыла " & ChrW(248) & " раму"
    ActiveCell.Offset(1) = iString
End Sub
kminas
Сообщения: 108
Зарегистрирован: 06 янв 2006, 00:06
Откуда: Ростов-на-Дону

Спасибо большое, Pavel55. Я вместо ChrW(216)(248) использовал Chr(216)(248). Хотя у меня не Excel, а Word
bi-lya
Сообщения: 97
Зарегистрирован: 07 июн 2007, 14:08

Уточню по части W: функция ChrW возвращает символ Unicode, в отличие от Chr, возвращающей по ANSI
kminas
Сообщения: 108
Зарегистрирован: 06 янв 2006, 00:06
Откуда: Ростов-на-Дону

bi-lya, спасибо.
Ответить