Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
макрос Добавить текст к имеющемуся в выделенных ячейках., Именно добавить, а не вставить.
 
#1
16.03.2013 18:52:08
Добрый день, Форум.
Уважаемые форумчане, подскажите, пожалуйста, как макросом в выделенных ячейках к имеющемуся тексту добавить "|Учтено".
По типу
Selection.Columns("F:F" ) = "|Учтено"
, но так происходит замена, а мне надо добавить...

Такое ActiveCells = Split(ActiveCells)(0) & "|" & "Учтено"
работает в любой, но одной ячейке, а мне надо в нескольких выделенных.
Изменено: iam1968 - 17.03.2013 00:08:53
 
 
 
#2
16.03.2013 18:56:54
For Each x In Selection
x.Value = x.Value & "|Учтено"
Next
Изменено: k61 - 16.03.2013 18:57:18
 
 
 
#3
16.03.2013 19:01:19
Спасибо огромно. То что надо.
 
 
 
#4
16.03.2013 23:59:59
Эх, поторопился я.
k61, спасибо большое за Ваш код, но есть один ньюанс, который всё перечёркивает.
Дело в том, что "|Учтено" надо добавлять в результатах фильтра. Т.е. из десятка строчек отфильтровалось 3. В них код и сработал как надо. Но кроме этих трёх он добавил "|Учтено" и в остальных 7 строках, которые фильтром были скрыты.. А как фильтр сбросил, сразу вырисовалась проблема.
Я так понимаю, что надо в код добавить что-то, что бы он работал только в актуальных строках, т.е. в НЕ скрытых. А так ли это, и как это сделать не знаю.
Может ещё не поздно попросить доработать имеющийся код...
 
 
 
#5
17.03.2013 00:14:30
iam1968, используйте SpecialCells
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#6
17.03.2013 00:19:28
???
 
 
 
#7
17.03.2013 00:25:49
это действительно так сложно?
скопировать данное название в Object Browser или в код и нажать F1?
почитать справку, посмотреть примеры, попробовать...

извините. постараюсь больше вас не утруждать.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#8
17.03.2013 00:35:44
ДиапазонЯчеек.SpecialCells xlCellTypeVisible

и еще про автофильтр посмотрите
 
 
 
#9
17.03.2013 00:50:46
For Each x In Selection.SpecialCells(xlCellTypeVisible)
x.Value = x.Value & "|Учтено"
Next
 
 
 
#10
17.03.2013 00:53:01
Kuzmich, спасибо за что-то конкретное.
ikki, я Вас также благодарю за участие. И мне кажется, что не стоит так не просто воспринимать три вопросительных знака от новичка.
Если я Вас чем-то обидел, простите великодушно.


Kuzmich, простите, а если фильтр происходит в выделяемых вручную строках (именно строках), но добавлять надо всегда в указанном столбце, то как же назначить диапазон? Я Ведь не могу его чётко задать, он меняется.
Можно ли вместо "диапазон" вставить Selection  ?
Изменено: iam1968 - 17.03.2013 01:00:38
 
 
 
#11
17.03.2013 01:10:34
2 iam1968
Под диапазоном Kuzmich и понимал Selection.
Возьмите код Карена (k61) от 17 Мар 2013 00:50:46.
Он рабочий!
 
 
 
#12
17.03.2013 01:13:58
Цитата
Возьмите код Карена (k61) от 17 Мар 2013 00:50:46.
Спасибо, я уже убедился.
 
 
 
Страницы: 1
Читают тему
Наверх