Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Только заглавные буквы
 
#1
17.10.2009 08:07:04
Как сделать так чтобы в TextBox можно было вводить только заглавные буквы и русские ? Заранее спасибо огромное за ответ !!!
 
 
 
#2
17.10.2009 10:50:10
в код обработки событий формы  
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
       If KeyAscii < 192 Or KeyAscii > 223 Then KeyAscii = 0  
   End Sub  
   Private Sub TextBox1_P_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
       If KeyCode = vbKeyV And Shift = 2 Then KeyCode = 0  
   End Sub
 
 
 
#3
17.10.2009 12:37:26
В textbox1 ничего не вводится. В чем прикол?
 
 
 
#4
17.10.2009 16:53:22
Тогда давайте пример, объяснять дольше.
 
 
 
#5
17.10.2009 17:07:17
Влад, я так понимаю, что Armond хотел бы запретить ввод в TextBox любых символов, кроме русских в верхнем регистре (прописных).
 
 
 
#6
17.10.2009 18:05:22
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
Me.Label1.Caption = KeyAscii  
If KeyAscii < 1040 Or KeyAscii > 1071 Then KeyAscii = 0  
End Sub  
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
If KeyCode = vbKeyV And Shift = 2 Then KeyCode = 0  
End Sub  
 
Напутал с кодировкой, сейчас должно работать.
 
 
 
#7
17.10.2009 19:47:30
См.файл
 
 
 
#8
17.10.2009 20:09:15
В Вашем примере допускается ввод латиницы, а автор просил только RU
 
 
 
#9
17.10.2009 20:40:36
Да нет вроде...
 
 
 
#10
17.10.2009 21:02:57
Влад, я это не Вам. Я про пример АБВ :-)
 
 
 
#11
20.10.2009 06:25:42
{quote}{login=VovaK}{date=17.10.2009 06:05}{thema=}{post}Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
Me.Label1.Caption = KeyAscii  
If KeyAscii < 1040 Or KeyAscii > 1071 Then KeyAscii = 0  
End Sub  
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
If KeyCode = vbKeyV And Shift = 2 Then KeyCode = 0  
End Sub  
 
Напутал с кодировкой, сейчас должно работать.{/post}{/quote}  
 
 
Но так вообще не позволяет вводить символы в TextBox, пока шифт не нажмешь, а можно сделать так чтобы просто вводились заглавные буквы, не нажимая никаких дополнительных клавиш
 
 
 
#12
20.10.2009 06:55:34
Private Sub TextBox1_Change()  
   If Me.TextBox1 <> UCase(Me.TextBox1) Then Me.TextBox1 = UCase(Me.TextBox1)  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#13
03.06.2011 16:03:16
Наверное уже потеряло актуальность, но всё же с поддержкой Ё есть проблемы, кроме того если не нажимая ничего кроме поддрежки русского шрифта, то можно так вопрос решить:  
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
   Select Case KeyAscii  
   Case 1105  
       KeyAscii = KeyAscii - 80  
   Case 1072 To 1103  
       KeyAscii = KeyAscii - 32  
   Case Else  
       KeyAscii = 0  
   End Select  
End Sub  
 
Кроме того я не вижзу смысла в ключать в код вторую подпрограмму с KeyCode, может быть кто-нибудь пояснит мне для чего она здесь.
 
 
 
Страницы: 1
Читают тему
Наверх