Гость
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так? / 4 сообщений из 4, страница 1 из 1
24.03.2015, 15:26
    #38915108
Истина где-то рядом
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
И снова обращаюсь к знатокам 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
24.03.2015, 15:43
    #38915146
Истина где-то рядом
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
Выяснил, что ascii кирилица у меня начинается с 1040 символа и оканчивается на символе 1103. Что за кодировка?
...
Рейтинг: 0 / 0
24.03.2015, 15:54
    #38915171
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel мини вопрос! ЗАПРЕТ ВВОДА СИМВОЛОВ не работает, что не так?
Unicode собсно... Если добавить на форму Label1 и вставить после первой строки
Код: vbnet
1.
    Label1 = KeyAscii & " " & ChrW(KeyAscii)

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


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