Как сделать так чтобы в textbox можно было вписать нужное кол-во символом?

@Alexmsk27 · Регистрация: 07.04.2016

Студворк — интернет-сервис помощи студентам

Имею вот такой код на данный момент. Нужно чтобы вписывать можно было только символы.
Private Sub TextBox4_Change()
TextBoox4.MaxLength = 11
If TextBox4.Text Like "*[!0-9]*" Then TextBox4.Text = TextBox4.Tag Else TextBox4.Tag = TextBox4.Text

End Sub

@Hugo121 · 23.04.2016, 19:04

Да, текстбокс принимает только символы, объекты туда не впихнёшь...
Что за символы? Что за текстбокс? Что за приложение? Что за система?

@pashulka · 23.04.2016, 19:55

Visual Basic

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
 
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyV And Shift = 2 Then KeyCode = 0
End Sub
 
Private Sub UserForm_Initialize()
    TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

@Alexmsk27 · 24.04.2016, 11:37 **[ТС]**

VBA. Имел ввиду, чтобы можно было вписать,например только 7 символов и больше нельзя было вписать.

Добавлено через 1 минуту

Сообщение от Hugo121

Да, текстбокс принимает только символы, объекты туда не впихнёшь...
Что за символы? Что за текстбокс? Что за приложение? Что за система?

Vba. Имел ввиду, что вставить можно вставить только 7 символов, и больше ввести нельзя было.

Добавлено через 18 минут

Сообщение от pashulka

Visual Basic

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
 
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyV And Shift = 2 Then KeyCode = 0
End Sub
 
Private Sub UserForm_Initialize()
    TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

Надо этот код вместо моего подставить??
Попробовал вот этот код, но не работает.

Private Sub UserForm_Initialize()
TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

@Hugo121 · 24.04.2016, 12:07

Сообщение от Hugo121

Что за символы? Что за текстбокс? Что за приложение? Что за система?

Сообщение от Alexmsk27

Vba. Имел ввиду, что вставить можно вставить только 7 символов

Не вижу никой связи вопроса с ответом.
но в общем это уже не важно - ответ уже прозвучал:

Сообщение от pashulka

'Можно установить ограничение вручную

@Alexmsk27 · 24.04.2016, 12:20 **[ТС]**

Private Sub UserForm1_Initialize()
TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub
Private Sub TextBox4_Change()
If TextBox4.Text Like "*[!0-9]*" Then TextBox4.Text = TextBox4.Tag Else TextBox4.Tag = TextBox4.Text
End Sub
Этот код имею,но 1 часть не работает( та которая ограничивают кол-во символов)

Добавлено через 1 минуту

Сообщение от Hugo121

Не вижу никой связи вопроса с ответом.
но в общем это уже не важно - ответ уже прозвучал:

Private Sub UserForm1_Initialize()
TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub
Private Sub TextBox4_Change()
If TextBox4.Text Like "*[!0-9]*" Then TextBox4.Text = TextBox4.Tag Else TextBox4.Tag = TextBox4.Text
End Sub
Этот код имею,но 1 часть не работает( та которая ограничивают кол-во символов)

@Hugo121 · 24.04.2016, 12:22

Первая часть работает. Конечно только у тех, у кого есть такая форма и такой текстбокс

Но я выделил вот эту часть кода: 'Можно установить ограничение вручную
И тогда не важно если ли такой текстбокс, и есть ли вообще форма...

@Alexmsk27 · 24.04.2016, 12:24 **[ТС]**

Сообщение от Hugo121

Первая часть работает. Конечно только у тех, у кого есть такая форма и такой текстбокс

Но я выделил вот эту часть кода: 'Можно установить ограничение вручную
И тогда не важно если ли такой текстбокс, и есть ли вообще форма...

Так у меня такая форма есть (Userform1)
и такой textboox (TextBoox4)
только не работает всё равно

@Hugo121 · 24.04.2016, 12:25

TextBox4<>TextBoox4

@pashulka · 24.04.2016, 12:28

Как минимум, вместо :

UserForm1_Initialize()

должно быть (в не зависимости от имени формы)

UserForm_Initialize()

@Hugo121 · 24.04.2016, 12:28

Сообщение от Alexmsk27

Так у меня такая форма есть (Userform1)
и такой textboox (TextBoox4)
только не работает всё равно

- многолетняя практика форумов говорит о том, что пользователям верить на слово нельзя, можно верить только файлам.
Может этот код вообще находится в модуле листа, а может это всё где-то в гуглдоке (правда не уверен что там с формами, ну да ладно)

@Alexmsk27 · 24.04.2016, 12:47 **[ТС]**

Сообщение от Hugo121

- многолетняя практика форумов говорит о том, что пользователям верить на слово нельзя, можно верить только файлам.
Может этот код вообще находится в модуле листа, а может это всё где-то в гуглдоке (правда не уверен что там с формами, ну да ладно)

не получается так написать UserForm_Initialize()
Пишет
Compile error
Ambiguous name detected: UserForm_Initialize.

Добавлено через 23 секунды

Сообщение от pashulka

Как минимум, вместо :

UserForm1_Initialize()

должно быть (в не зависимости от имени формы)

UserForm_Initialize()

не получается так написать UserForm_Initialize()
Пишет
Compile error
Ambiguous name detected: UserForm_Initialize.

Добавлено через 7 минут

Сообщение от Hugo121

- многолетняя практика форумов говорит о том, что пользователям верить на слово нельзя, можно верить только файлам.
Может этот код вообще находится в модуле листа, а может это всё где-то в гуглдоке (правда не уверен что там с формами, ну да ладно)

Я мог бы перекрепить бы файл, но не знаю как.

Потому что мой файл он загружать не хочет.

@Hugo121 · 24.04.2016, 12:50

Не надо "мой" - сделайте небольшой пример в xls (надеюсь что речь о Экселе), чтоб все могли скачать. Т.к. например мне на работе архивы обрубили - а в архив можно запихать что угодно, даже "мой" который так не загружает. Потому и обрубили...

@Alexmsk27 · 24.04.2016, 12:52 **[ТС]**

Сообщение от Hugo121

Не надо "мой" - сделайте небольшой пример в xls (надеюсь что речь о Экселе), чтоб все могли скачать. Т.к. например мне на работе архивы обрубили - а в архив можно запихать что угодно, даже "мой" который так не загружает. Потому и обрубили...

Не знаю вроде бы получилось. Можете сказать что не так то?
заранее благодарен)

@pashulka · 24.04.2016, 12:54

Alexmsk27, Смотрите пример

@Alexmsk27 · 24.04.2016, 12:57 **[ТС]**

Сообщение от pashulka

Alexmsk27, Смотрите пример

Нельзя написать userform просто
Он ругается и ошибку выдаёт,которую описал ранее.

@pashulka · 24.04.2016, 12:58

Сообщение от Alexmsk27

Можете сказать что не так то?

Замените

Visual Basic

Private Sub UserForm_Initialize()
ComboBox1.List = Array("М", "Ж")
ComboBox6.List = Array("Москва", "Екатеринбург", "Новосибирск")
End Sub
 
Private Sub UserForm_Initialize()
    TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

на

Visual Basic

Private Sub UserForm_Initialize()
ComboBox1.List = Array("М", "Ж")
ComboBox6.List = Array("Москва", "Екатеринбург", "Новосибирск")
TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

или установите ограничение вручную

@Alexmsk27 · 24.04.2016, 13:02 **[ТС]**

Сообщение от pashulka

Замените

Visual Basic

Private Sub UserForm_Initialize()
ComboBox1.List = Array("М", "Ж")
ComboBox6.List = Array("Москва", "Екатеринбург", "Новосибирск")
End Sub
 
Private Sub UserForm_Initialize()
    TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

на

Visual Basic

Private Sub UserForm_Initialize()
ComboBox1.List = Array("М", "Ж")
ComboBox6.List = Array("Москва", "Екатеринбург", "Новосибирск")
TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

или установите ограничение вручную

СПАСИБО БОЛЬШОЕ!!!

Все работает)))

@pashulka · 24.04.2016, 13:02

Сообщение от Alexmsk27

Нельзя написать userform просто

Можно, просто одна форма - одно событие UserForm_Initialize, а не два, как в Вашем примере

@Alexmsk27 · 24.04.2016, 13:03 **[ТС]**

Сообщение от pashulka

Замените

Visual Basic

Private Sub UserForm_Initialize()
ComboBox1.List = Array("М", "Ж")
ComboBox6.List = Array("Москва", "Екатеринбург", "Новосибирск")
End Sub
 
Private Sub UserForm_Initialize()
    TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

на

Visual Basic

Private Sub UserForm_Initialize()
ComboBox1.List = Array("М", "Ж")
ComboBox6.List = Array("Москва", "Екатеринбург", "Новосибирск")
TextBox4.MaxLength = 11 'Можно установить ограничение вручную
End Sub

или установите ограничение вручную

Не знаете случайно как на 2010 ворд установить календарь?
а то на 2007 работает, а на 2010 полноценно не работает.

Как сделать так чтобы в textbox можно было вписать нужное кол-во символом?

Решение

Решение

@Alexmsk27 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 15
		1
	Как сделать так чтобы в textbox можно было вписать нужное кол-во символом? 23.04.2016, 18:48. Показов 1917. Ответов 19 Метки нет (Все метки) Имею вот такой код на данный момент. Нужно чтобы вписывать можно было только символы. Private Sub TextBox4_Change() TextBoox4.MaxLength = 11 If TextBox4.Text Like "[!0-9]" Then TextBox4.Text = TextBox4.Tag Else TextBox4.Tag = TextBox4.Text End Sub 0

@Hugo121 6878 / 2810 / 534 Регистрация: 19.10.2012 Сообщений: 8,573
	23.04.2016, 19:04	2
	Да, текстбокс принимает только символы, объекты туда не впихнёшь... Что за символы? Что за текстбокс? Что за приложение? Что за система? 0

@Hugo121 6878 / 2810 / 534 Регистрация: 19.10.2012 Сообщений: 8,573
	24.04.2016, 12:07	5
	Сообщение от Hugo121 Что за символы? Что за текстбокс? Что за приложение? Что за система? Сообщение от Alexmsk27 Vba. Имел ввиду, что вставить можно вставить только 7 символов Не вижу никой связи вопроса с ответом. но в общем это уже не важно - ответ уже прозвучал: Сообщение от pashulka 'Можно установить ограничение вручную 0

@Alexmsk27 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 15
	24.04.2016, 12:20 [ТС]	6
	Private Sub UserForm1_Initialize() TextBox4.MaxLength = 11 'Можно установить ограничение вручную End Sub Private Sub TextBox4_Change() If TextBox4.Text Like "[!0-9]" Then TextBox4.Text = TextBox4.Tag Else TextBox4.Tag = TextBox4.Text End Sub Этот код имею,но 1 часть не работает( та которая ограничивают кол-во символов) Добавлено через 1 минуту Сообщение от Hugo121 Не вижу никой связи вопроса с ответом. но в общем это уже не важно - ответ уже прозвучал: Private Sub UserForm1_Initialize() TextBox4.MaxLength = 11 'Можно установить ограничение вручную End Sub Private Sub TextBox4_Change() If TextBox4.Text Like "[!0-9]" Then TextBox4.Text = TextBox4.Tag Else TextBox4.Tag = TextBox4.Text End Sub Этот код имею,но 1 часть не работает( та которая ограничивают кол-во символов) 0

@Hugo121 6878 / 2810 / 534 Регистрация: 19.10.2012 Сообщений: 8,573
	24.04.2016, 12:22	7
	Первая часть работает. Конечно только у тех, у кого есть такая форма и такой текстбокс Но я выделил вот эту часть кода: 'Можно установить ограничение вручную И тогда не важно если ли такой текстбокс, и есть ли вообще форма... 1

@Alexmsk27 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 15
	24.04.2016, 12:24 [ТС]	8
	Сообщение от Hugo121 Первая часть работает. Конечно только у тех, у кого есть такая форма и такой текстбокс Но я выделил вот эту часть кода: 'Можно установить ограничение вручную И тогда не важно если ли такой текстбокс, и есть ли вообще форма... Так у меня такая форма есть (Userform1) и такой textboox (TextBoox4) только не работает всё равно 0

@Hugo121 6878 / 2810 / 534 Регистрация: 19.10.2012 Сообщений: 8,573
	24.04.2016, 12:25	9
	TextBox4<>TextBoox4 0

@pashulka 4131 / 2235 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	24.04.2016, 12:28	10
	Как минимум, вместо : UserForm1_Initialize() должно быть (в не зависимости от имени формы) UserForm_Initialize() 0

@Hugo121 6878 / 2810 / 534 Регистрация: 19.10.2012 Сообщений: 8,573
	24.04.2016, 12:28	11
	Сообщение от Alexmsk27 Так у меня такая форма есть (Userform1) и такой textboox (TextBoox4) только не работает всё равно - многолетняя практика форумов говорит о том, что пользователям верить на слово нельзя, можно верить только файлам. Может этот код вообще находится в модуле листа, а может это всё где-то в гуглдоке (правда не уверен что там с формами, ну да ладно) 0

@Alexmsk27 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 15
	24.04.2016, 12:47 [ТС]	12
	Сообщение от Hugo121 - многолетняя практика форумов говорит о том, что пользователям верить на слово нельзя, можно верить только файлам. Может этот код вообще находится в модуле листа, а может это всё где-то в гуглдоке (правда не уверен что там с формами, ну да ладно) не получается так написать UserForm_Initialize() Пишет Compile error Ambiguous name detected: UserForm_Initialize. Добавлено через 23 секунды Сообщение от pashulka Как минимум, вместо : UserForm1_Initialize() должно быть (в не зависимости от имени формы) UserForm_Initialize() не получается так написать UserForm_Initialize() Пишет Compile error Ambiguous name detected: UserForm_Initialize. Добавлено через 7 минут Сообщение от Hugo121 - многолетняя практика форумов говорит о том, что пользователям верить на слово нельзя, можно верить только файлам. Может этот код вообще находится в модуле листа, а может это всё где-то в гуглдоке (правда не уверен что там с формами, ну да ладно) Я мог бы перекрепить бы файл, но не знаю как. Потому что мой файл он загружать не хочет. 0

@Hugo121 6878 / 2810 / 534 Регистрация: 19.10.2012 Сообщений: 8,573
	24.04.2016, 12:50	13
	Не надо "мой" - сделайте небольшой пример в xls (надеюсь что речь о Экселе), чтоб все могли скачать. Т.к. например мне на работе архивы обрубили - а в архив можно запихать что угодно, даже "мой" который так не загружает. Потому и обрубили... 1

@Alexmsk27 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 15
	24.04.2016, 12:57 [ТС]	16
	Сообщение от pashulka Alexmsk27, Смотрите пример Нельзя написать userform просто Он ругается и ошибку выдаёт,которую описал ранее. 0

@pashulka 4131 / 2235 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	24.04.2016, 13:02	19
	Сообщение от Alexmsk27 Нельзя написать userform просто Можно, просто одна форма - одно событие UserForm_Initialize, а не два, как в Вашем примере 0