Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подсчитать количество пробелов в TextBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчитать количество пробелов в TextBox (Макросы/Sub)
Подсчитать количество пробелов в TextBox
Anton85 Дата: Вторник, 12.12.2017, 20:13 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Помогите пожалуйста с вопросом. Как подсчитать количество пробелов или других символов в TextBox. Заранее спасибо
 
Ответить
СообщениеПомогите пожалуйста с вопросом. Как подсчитать количество пробелов или других символов в TextBox. Заранее спасибо
Автор - Anton85
Дата добавления - 12.12.2017 в 20:13
parovoznik Дата: Вторник, 12.12.2017, 20:31 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Anton85, как вариант :)
К сообщению приложен файл: ___txtBox.xlsm (20.4 Kb)
 
Ответить
СообщениеAnton85, как вариант :)
Автор - parovoznik
Дата добавления - 12.12.2017 в 20:31
Anton85 Дата: Вторник, 12.12.2017, 20:49 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
parovoznik, Len подсчитывает все символы, а мне надо только определенные. Например пробел, запятую и т.д.
 
Ответить
Сообщениеparovoznik, Len подсчитывает все символы, а мне надо только определенные. Например пробел, запятую и т.д.
Автор - Anton85
Дата добавления - 12.12.2017 в 20:49
RAN Дата: Вторник, 12.12.2017, 21:17 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
= Len(Textbox1.Text) - Len(Replace(Replace(Replace(Textbox1.Text, "Например пробел", ""), "запятую", ""), "и т.д.", ""))
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
= Len(Textbox1.Text) - Len(Replace(Replace(Replace(Textbox1.Text, "Например пробел", ""), "запятую", ""), "и т.д.", ""))
[/vba]
Автор - RAN
Дата добавления - 12.12.2017 в 21:17
buchlotnik Дата: Вторник, 12.12.2017, 22:08 | Сообщение № 5
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
не, ну если
Цитата
и т.д.
никаких [vba]
Код
Replace
[/vba]не напасёшься - можно регулярить [vba]
Код
...
= Len(TextBox1.Text) - Len(regrep(ByVal TextBox1.Text))
...

Function regrep(ByVal t$)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[,\s]+"
        regrep = .Replace(t, "")
    End With
End Function
[/vba]
 
Ответить
Сообщениене, ну если
Цитата
и т.д.
никаких [vba]
Код
Replace
[/vba]не напасёшься - можно регулярить [vba]
Код
...
= Len(TextBox1.Text) - Len(regrep(ByVal TextBox1.Text))
...

Function regrep(ByVal t$)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[,\s]+"
        regrep = .Replace(t, "")
    End With
End Function
[/vba]
Автор - buchlotnik
Дата добавления - 12.12.2017 в 22:08
Anton85 Дата: Вторник, 12.12.2017, 22:30 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, Спасибо! Работает.
 
Ответить
СообщениеRAN, Спасибо! Работает.
Автор - Anton85
Дата добавления - 12.12.2017 в 22:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчитать количество пробелов в TextBox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!