Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Символы Unicode в Caption - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Символы Unicode в Caption (Макросы/Sub)
Символы Unicode в Caption
Stormy Дата: Суббота, 16.12.2017, 16:26 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Пытаюсь отобразить букву из латинского алфавита. Речь идет о букве Ə

[vba]
Код
Private Sub UserForm_Initialize()
UserForm1.Caption = "M" & ChrW(601) & "lumat"
End Sub
[/vba]
В данном случае вместо Ə выводится знак ?
Если же сделать так:

[vba]
Код
Private Sub UserForm_Initialize()
UserForm1.Caption = "M" & ChrW(U + 259) & "lumat"
End Sub
[/vba]
То подставляется буква а

В каком направлении нужно искать решение?


Место для рекламы.
 
Ответить
СообщениеПытаюсь отобразить букву из латинского алфавита. Речь идет о букве Ə

[vba]
Код
Private Sub UserForm_Initialize()
UserForm1.Caption = "M" & ChrW(601) & "lumat"
End Sub
[/vba]
В данном случае вместо Ə выводится знак ?
Если же сделать так:

[vba]
Код
Private Sub UserForm_Initialize()
UserForm1.Caption = "M" & ChrW(U + 259) & "lumat"
End Sub
[/vba]
То подставляется буква а

В каком направлении нужно искать решение?

Автор - Stormy
Дата добавления - 16.12.2017 в 16:26
Roman777 Дата: Суббота, 16.12.2017, 16:33 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 865
Репутация: 109 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Запустите в обычном модуле на пустом листе и найдите нужное значение в какой-то строке. Собственно номер этой строки и подставляйте.
[vba]
Код
Sub dsds()
For i = 1 To 1000
    Cells(i, 1) = ChrW(i)
Next i
End Sub
[/vba]


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Суббота, 16.12.2017, 16:33
 
Ответить
СообщениеЗапустите в обычном модуле на пустом листе и найдите нужное значение в какой-то строке. Собственно номер этой строки и подставляйте.
[vba]
Код
Sub dsds()
For i = 1 To 1000
    Cells(i, 1) = ChrW(i)
Next i
End Sub
[/vba]

Автор - Roman777
Дата добавления - 16.12.2017 в 16:33
Stormy Дата: Суббота, 16.12.2017, 16:46 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Собственно номер этой строки и подставляйте.

Не находит такой буквы ((
Прикол в том, что если присваивать имя Label у , то все нормально

[vba]
Код
Private Sub UserForm_Initialize()
UserForm1.Label1.Caption = "M" & ChrW(601) & "lumat"
End Sub
[/vba]

Видать проблема более глобальна. Придется искать другой путь ))


Место для рекламы.
 
Ответить
Сообщение
Собственно номер этой строки и подставляйте.

Не находит такой буквы ((
Прикол в том, что если присваивать имя Label у , то все нормально

[vba]
Код
Private Sub UserForm_Initialize()
UserForm1.Label1.Caption = "M" & ChrW(601) & "lumat"
End Sub
[/vba]

Видать проблема более глобальна. Придется искать другой путь ))

Автор - Stormy
Дата добавления - 16.12.2017 в 16:46
Roman777 Дата: Суббота, 16.12.2017, 17:27 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 865
Репутация: 109 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Не находит такой буквы ((

странно, у меня нашёл символ под номером "399"
Попробовал сам и понял, о чём Вы говорите, действительно просто так не отображает необходимый символ Unicode.


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Суббота, 16.12.2017, 17:41
 
Ответить
Сообщение
Не находит такой буквы ((

странно, у меня нашёл символ под номером "399"
Попробовал сам и понял, о чём Вы говорите, действительно просто так не отображает необходимый символ Unicode.

Автор - Roman777
Дата добавления - 16.12.2017 в 17:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Символы Unicode в Caption (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!