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

Страницы: 1
Макрос обработки текстовых ячеек
 
#
24.12.2015 19:01:19
Выспался, Все получилось. спасибо огромное за помощь!
 
Перейти    
Макрос обработки текстовых ячеек
 
#
24.12.2015 09:32:49
все равно не работает ((, протестируйте пожалуйста с приложенным в первом сообщении файлом.
 
Перейти    
Макрос обработки текстовых ячеек
 
#
24.12.2015 08:58:21
Да конечно, просто надо чтобы плюсики были перед теми словами которые НЕ в скобках
 
Перейти    
Макрос обработки текстовых ячеек
 
#
24.12.2015 08:45:52
k61, к сожалению мне все еще не спится(ться)... ((
макрос работает. реально работает, только сделайте так чтобы он плюсики ставил перед каждым словом (и первым тоже) которые НЕ в кавычках, а фразы которые в кавычках остались без изменений, тоесть без плюсов!

Спасибо огромное! Подарили надежду честно говоря!
 
Перейти    
Макрос обработки текстовых ячеек
 
#
24.12.2015 08:18:45
в начале текста необходимо поставить "[" а в конце "]"

а как это реализовать, у меня мозгов не хватает к сожалению... а может и к счастью )))
 
Перейти    
Макрос обработки текстовых ячеек
 
#
24.12.2015 07:44:39
Нашел макрос замены кавычек на квадратные скобки, но он работет только в Word. Подскажите, можно ли как нибудь переделать его под Excel
Код
Sub changeQuote()
'Замена прямых кавычек на парные кавычки (елочки)
Dim blnQuotes As Boolean
'запомнить пользовательскую установку
blnQuotes = Options.AutoFormatAsYouTypeReplaceQuotes
Options.AutoFormatAsYouTypeReplaceQuotes = False
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = """(*)"""
.Replacement.Text = "[\1]"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
'восстановить пользовательскую установку
Options.AutoFormatAsYouTypeReplaceQuotes = blnQuotes
End Sub
Изменено: manimeiker - 24.12.2015 07:47:06 (пробелы и ошибка)
 
Перейти    
Макрос обработки текстовых ячеек
 
#
24.12.2015 07:10:27
Что необходимо:
1. Макрос читает выделенные ячейки
2. если в ячейке есть символ "-", удалить его и все что после него.

Пример:
было: текст текст -текст после четрочки
стало: текст текст

(Решено):
Код
Sub УдалениеПосЧерт()
Selection.Replace What:="-*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

3. Если текст в ячейке не начинается с кавычки, то поставить перед каждым словом "+".

Пример:
было: текст текст
стало: +текст +текст

(Решено):
Код
Sub ПостПлюс()
Selection.Replace What:=" ", Replacement:=" +"
For Each c In Selection
c.Value = "+" & c.Value
Next c
End Sub

3. Если текст в ячейке напечатан в "кавычках", то заменить кавычки на квадратные скобки и привести к виду [текст]

Пример:
было: "текст текст"
стало: [текст текст]

Ни как не могу составить алгоритм в VBA

Ну и собственно самая главная задача заключается в том, чтобы все эти действия делал 1 макрос. Пример таблицы, которую он должен обрабатывать прилагается во вложении.

Очень прошу, помогите, голова кипит уже.
 
Перейти    
Страницы: 1
Наверх