Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Проверка ячеек из excel и сравнение с историей сообщения https://www.cyberforum.ru/ vba/ thread2356217.html
Уважаемые экспрерты, Помогите, пожалйуста, с VBA кодом, который бы пробегался по ячейке (столбцу) в excel файле, сравнивал бы с папкой историей переписок и выгружал бы в другой excel файл. В...
VBA Форма расчета среднедневной выручки
джентльмены, нужна ваша срочная помощь, нужно создать код и интерфейс программы: форма расчета среднедневной выручки vba (в MsExcel)
Не работает цикл в цикле VBA
Добрый день! Написала код для копирования данных с другого листа при соблюдении условия, но при запуске он почему-то просто пропускается. Пыталась выяснить на каком моменте затык - получается что...
VBA Powerpoint макрос Здравствуйте! Есть файлы презентаций .pptx, которые состоят из рисунков и надписей. Надписи бывают разных шрифтов и параметров абзаца. Все надписи нужно привести к одному знаменателю по определенным... https://www.cyberforum.ru/ vba/ thread2356087.html
VBA Как можно получить доступ к отдельной таблице на страничке сайта https://www.cyberforum.ru/ vba/ thread2356049.html
Есть страничка сайта http://abri.une.edu.au/online/cgi-bin/i4.dll?1=223D2B2A&2=2420&3=56&5=2B3C2B3C3A&6=5D5E5D235B272221&9=5A5D5A5D как можно получить доступ к таблице родословной и ее прочитать в...
VBA Как получить доступ к коду страницы
Есть ссылка https://service.vit.de/bulli-web/#/bulle/276000110204013 Но на страничке кода отображается фигня с предупреждением, что у меня устарел браузер. Using the bull database needs an...
VBA Изменить цвет ячейки на синий
Подскажите, пожалуйста, как можно запустить макрос при наведении на ячейку на листе Excel. Хочу сделать, чтобы ячейка на которую навёл указать покрасилась в синий цвет. Пока получилось только с...
VBA Запуск макрос без нажатия Здравствуйте, подскажите пожалуйста, можно ли как-то сделать, чтобы при наведении на ячейку показывался её адрес. То есть без нажатия мыши и клавиш? Только получилось найти информацию как по клику... https://www.cyberforum.ru/ vba/ thread2355965.html
VBA Переменные названия кнопок в форме https://www.cyberforum.ru/ vba/ thread2355705.html
Добрый день. Подскажите, пожалуйста, программисты гуманитарию, занимающемуся не своим делом) Можно ли в VBA для Word создать форму (UserForm) с кнопками, названия которых менялись бы в соответствии...
VBA Поиск файла по дате меньшей, чем дата создания Помогите новичку! Задача: есть папка, в которую ежедневно падает один файл. С помощью кода необходимо данные из файла с последней датой создания/изменения переносить в рабочий файл, произведя с... https://www.cyberforum.ru/ vba/ thread2355663.html
2 / 1 / 0
Регистрация: 07.10.2018
Сообщений: 169
0

Убрать все лишние пробелы между словами (оставить только по одному пробелу)

22.11.2018, 13:07. Показов 1656. Ответов 1
Метки (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim St As String, Stl As String
Dim P As String * 10, Sym As String * 1
Dim KR As Long, KN As Long, i As Long
P = "аеёиоуыэюя"
KN = 0
KR = 0
St = Selection.Text
If Len(St) = 1 Then ' Если не выделен фрагмент текста
MsgBox "Необходимо выделить фрагмент текста"
Exit Sub
End If
For i = 1 To Len(St)
Sym = Mid(St, i, 1)      ' выделить очередной символ
' Если символ не является латинской буквой
' или воклицательным знаком
If Not (Sym >= "A" And Sym <= "z") And Sym <> "!" Then
If InStr(1, P, Sym) > 0 Then KR = KR + 1
If Sym >= "0" And Sym <= "9" Then KN = KN + 1
Stl = Stl & Sym
End If
Next i
 Selection.Text = St & vbNewLine & "Колличество русских гласных букв равно" & KR & vbNewLine & "Количество цифр равно " & KN & vbNewLine & vbNewLine & _
 "Преобразованный текст:" & vbNewLine & Stl
 End Sub


Вернуться к обсуждению:
Убрать все лишние пробелы между словами (оставить только по одному пробелу)
0
Миниатюры
Убрать все лишние пробелы между словами (оставить только по одному пробелу)   Убрать все лишние пробелы между словами (оставить только по одному пробелу)  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2018, 13:07
Готовые ответы и решения:

Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу между словами
Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу...

Убрать лишние пробелы, оставить по одному пробелу между слов
Помогите пожалуйста!!! Убрать лишние пробелы, оставить по одному пробелу между слов. (С++)

Удалить из строки лишние пробелы, оставляя между словами только по одному пробелу
Удалить из строки лишние пробелы, оставляя между словами только по одному пробелу

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

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.