powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
4 сообщений из 4, страница 1 из 1
VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
    #38915108
Истина где-то рядом
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И снова обращаюсь к знатокам VBA. Погуглил и изучил метод запрета ввода в текстовое поле определенных символов. Но у меня не работает этот код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Zapis_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 192 To 255 ' исключение кирилицы
            KeyAscii = 0
        Case Else
    End Select
End Sub
...
Рейтинг: 0 / 0
VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
    #38915146
Истина где-то рядом
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выяснил, что ascii кирилица у меня начинается с 1040 символа и оканчивается на символе 1103. Что за кодировка?
...
Рейтинг: 0 / 0
VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
    #38915171
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Unicode собсно... Если добавить на форму Label1 и вставить после первой строки
Код: vbnet
1.
    Label1 = KeyAscii & " " & ChrW(KeyAscii)

, увидите вводимые символы (правильно) и их коды.
...
Рейтинг: 0 / 0
VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
    #38915178
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Строго говоря, в кириллице еще есть Ё=1025 и ё=1105.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]