Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Sergeich
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 22:33:16
:D Спасибо за весёлое настроение, коллеги!  :D
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 22:17:25
V,  спасибо за Ваш макрос, всё прекрасно работает!  :D Мне понадобилось ещё одна функция, и я превзошёл самого себя! На основе Вашего макроса я дописал необходимую мне функцию, и всё работает так, как и надо!  8) Тему можно закрыть, спасибо всем за участие!  :)    
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 21:59:16
Сергей, да, спасибо, теперь буду так делать!  :)
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 21:46:09
Сергей,  :D :D :D
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 21:40:33
RAN,  он просит сохранить книгу. Это то. что мне надо сделать?
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 21:39:25
Сергей,  ;)  спасибо, конечно же, но хотелось бы далее ни от кого не зависеть. :D
Изменено: Sergeich - 24.07.2015 21:39:44
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 21:11:57
V, можно ли ещё сделать, чтобы в дополнение к тому, что есть, в четвёртом столбике происходило закавычивание фраз с восклицательными знаками?
Такого типа:  "!Видео !коллаж !с !днем !рождения"  Спасибо.
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 21:08:21
Вполне нормальный Excel 2013 года, не ломаный. Всё официально. Может я не сохраняю макрос. Тогда вопрос, как его сохранить.
Изменено: Sergeich - 24.07.2015 21:12:55
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 20:59:15
Ещё возник вопрос- при выходе из Excel макрос не сохраняется. Что надо сделать, чтобы он не пропадал?  :qstn:
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 20:07:05
Всё, всем спасибо, разобрался! Всё работает!  :D
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 19:23:22
V, по Вашему методу получается не корректно.

"Видео"из"слайдов"на"годик" Кавычки нужны только в начале и в конце.
!Видео!из!слайдов!на!годик  Нет пробелов.

Пробелы почему-то всё равно не проставляет, пытался изменить код, но он сам всё равно не меняется, а остаётся на старой версии. Где копать? ;)
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 18:42:18
Цитата
V написал:
Код?12345Dim i#For i = 1 To Cells(Rows.Count, 1).End(xlUp).RowCells(i, 2) = "!" & Replace(Cells(i, 1), " ", "!")Cells(i, 3) = """" & Replace(Cells(i, 1), " ", """") & """"Next
Как именно этим кодом воспользоваться?  :(
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 18:36:06
V,  а как воспользоваться этим кодом? :(
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 18:28:12
Цитата
Sanja написал:
Sanja

Пользователь
По Вашему методу происходит добавление восклицательного знака, но без сохранения пробелов, и к первому слову в фразе нет добавления знака !. Также и для того столбца, где нужны кавычки, нет пробелов, но при этом здесь же не нужны восклицательные знаки. Что можно изменить в Вашем макросе?

Вот как получается:
 
Видео!из!слайдов!на!годик
"Видео!из!слайдов!на!годик"

Нужно:

!Видео !из !слайдов !на !годик
"Видео из слайдов на годик"

 
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 16:49:47
Цитата
V написал:
Sergeich написал:
Как пользоваться с этим кодом?Читаем это http://www.planetaexcel.ru/techniques/3/59/
Буду изучать, спасибо!  :D
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 16:32:05
Цитата
Sanja написал:
Вариант. Выделить столбец - запустить макросКод?1234567891011Sub Sanja()On Error Resume Next    For Each cl In Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)        For I = 0 To UBound(Split(Trim(cl), " "))            cl1 = cl1 & "!" & Split(Trim(cl), " ")(I)        Next        cl.Offset(, 1) = Right(cl1, Len(cl1) - 1)        cl.Offset(, 2) = """" & Right(cl1, Len(cl1) - 1) & """"        cl1 = ""    NextEnd Sub
Как запустить этот макрос? Я не силён в дебрях Excel. :(
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 16:09:59
Как пользоваться с этим кодом?
Цитата
V написал:
Код?12345Dim i#For i = 1 To Cells(Rows.Count, 1).End(xlUp).RowCells(i, 2) = "!" & Replace(Cells(i, 1), " ", "!")Cells(i, 3) = """" & Replace(Cells(i, 1), " ", """") & """"Next
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 15:59:33
Пример устроил, спасибо,  ;)  только где закавычивание, то там не стоят кавычки в конце фразы, и кавычки нужны только в начале предложения, и в конце.  :) И всё-таки, как мне всё это делать самому? Не буду же я обращаться на форум ради таких мелочей? Один раз уяснил, и вперёд!
Изменено: Sergeich - 24.07.2015 16:01:03
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 15:54:40
Цитата
Сергей написал:
формулами

Прикрепленные файлы
Книга1 (39).xlsx (20.08 КБ)


Лень двигатель прогресса, доказано!!!
Спасибо благодарен! А как мне самому это сделать?
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 15:52:56
Да не лень, всё сам сделаю, да как? Формулы, макросы для меня тёмный лес. Подскажите, что да как, тогда и сам справлюсь. Есть ли макрос такой?
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 15:41:55
Лучше конечно же макросом, как я понял. В вложенном файле есть примеры предложений, которые надо и закавычить, и проставить перед каждым словом восклицательный знак. Т.е. в столбике "А" остаются неизменённые фразы, в столбике "В" у нас фразы с ! перед каждым из слов, а в столбике "С" -закавыченные фразы.
Изменено: Sergeich - 24.07.2015 15:42:19
 
Перейти    
Макрос для простановки восклицательного знака и кавычек, Как поставить перед каждым словом в предложении восклицательный знак и всё это предложение закавычить?
 
#
24.07.2015 15:26:09
Здравствуйте! Необходимо проставить в таблице перед каждым словом в предложении восклицательный знак, а также в отдельном столбике закавычить все эти предложения. Т.е. на выходе должны быть три таблицы- исходная, с !, и с "".Возможно ли всё это делать в один клик? Читал архивную ветку на эту тему http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=30801&TITLE_SEO=30801&MID=268..., не работает так, как там описано. У меня Excel 2013 года. Спасибо за ваше время.
 
Перейти    
Страницы: 1
Наверх