Запретить ввод пробела

Дата: Суббота, 14.05.2016, 22:11 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Как запретить ввода двух раз пробела в textbox
Подскажите пожалуйста, в чем ошибка. код не работает но подсчитает количество пробелов
[vba]

Код

myString = TextBox1
tempString = Split(myString, " ")
If UBound(tempString) > 2 Then KeyAscii = 0

[/vba]

Дата: Суббота, 14.05.2016, 22:24 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

[vba]

Код

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 32 Then
        If Right(Me.TextBox1.Text, 1) = " " Then
            KeyAscii = 0
        End If
    End If
End Sub

[/vba]

Дата: Суббота, 14.05.2016, 22:29 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

не получается

Дата: Суббота, 14.05.2016, 22:32 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

в этом файле работает

К сообщению приложен файл: form.xlsm (20.3 Kb)

Дата: Воскресенье, 15.05.2016, 20:04 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

это код вообще что делает, не запретить пробел

Дата: Воскресенье, 15.05.2016, 20:07 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Файл в посте 4 запрещает ввод подряд двух пробелов.

Дата: Воскресенье, 15.05.2016, 20:27 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Работает )) но мне не подряд а общем тексте ввод боле 2 пробел или я не правильно поставили вопрос, например:
Textbox ФИО (Александр" "Сергеевич" "Пушкин~~" "~~ здесь конца текста запретит ввод третьего пробела, кто-то поставить пробел конца текста и макрос не работает)

alex77755

Дата: Воскресенье, 15.05.2016, 20:28 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

[vba]

Код

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1.Text, " ", " ")
End Sub

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Дата: Воскресенье, 15.05.2016, 20:32 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

и это тоже запрещает ввод подряд двух пробелов

alex77755

Дата: Воскресенье, 15.05.2016, 20:35 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

А так не разрешает вводить пробел после 3-го слова
[vba]

Код

Private Sub TextBox1_Change()
    TextBox1 = Replace(TextBox1.Text, "  ", " ")
    If UBound(Split(TextBox1.Text)) = 3 Then
        If Right(TextBox1.Text, 1) = " " Then TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End If
End Sub

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Воскресенье, 15.05.2016, 20:36

Дата: Воскресенье, 15.05.2016, 20:45 | Сообщение № 11

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Запрет ввода пробела после третьего слова.

К сообщению приложен файл: form_2.xlsm (18.3 Kb)

Сообщение отредактировал Karataev - Воскресенье, 15.05.2016, 20:46

Дата: Воскресенье, 15.05.2016, 20:58 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

работает супер +, огромное спасибо Karataev, и alex77755,

Alex_ST

Дата: Вторник, 17.05.2016, 09:19 | Сообщение № 13

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3209

Репутация: 609 ±

Замечаний: 0% ±

2003

А не лучше ли не ограничиваться количеством слов, а просто применить к введённому тексту стандартную функцию листа СЖПРОБЕЛЫ, которая удалит ВСЕ лишние пробелы после окончания ввода?
Не помню точно, когда какое событие возникает, поэтому написал для обоих:
[vba]

Код

Private Sub TextBox1_Exit()
Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
End Sub

Private Sub TextBox1_LostFocus()
Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
End Sub

[/vba]Если не лень, то поставьте BreakPoint на обоих и выясните, кто из них вызывается.
Кажется (но не точно) Exit возникает у TextBox, размещённого на форме, а LostFocus - на листе.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Вторник, 17.05.2016, 09:24