Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как дописать в конец текста ячейки фразу (VBA) ?
 
#1
11.04.2012 10:10:03
Ситуация такая: необходимо с помощью средств VBA дописать в конец текста, уже находящегося в ячейке, определенную фразу.  
Как это можно сделать ?
 
 
 
#2
11.04.2012 10:19:13
[A1].Value = [A1].Value & "Какая то фраза"
Редко но метко ...
 
 
 
#3
11.04.2012 10:43:17
не подскажите как это сделать для диапазона ячеек, т.к. вот такая конструкция у меня не работает (точнее заполняет весь диапазон одинаковыми значениями равными значениям из первой ячейки):    
 
Dim texNew As Range  
Set texNew = Sheets("Sheet1").Columns("A:A").SpecialCells(xlCellTypeConstants, 23)  
texNew.Value = texNew.Value & " Какой-то текст"
 
 
 
#4
11.04.2012 11:06:33
Public Sub www()  
   Dim texNew As Range, a As Range  
   Set texNew = Sheets(1).[A:A].SpecialCells(2, 23)
   For Each a In texNew.Areas  
       a.Value = Evaluate(a.Address & "&"" Какой-то текст""")  
   Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
11.04.2012 12:09:43
KukLP, для значений отобранных фильтром это не работает (заполняет все значения включая не отобранные)
 
 
 
#6
11.04.2012 12:17:33
еще какие сюрпризы в  рукаве есть?
Живи и дай жить..
 
 
 
#7
11.04.2012 12:32:50
большке никаких. )) основная задача - это прописать "какой-то текст" в конце имеющегося уже текста для ячеек отобранных по расширенному фильтру
 
 
 
#8
11.04.2012 14:15:13
А сразу про фильтр сказать кто мешал? Вы же отбиваете у людей желание помогать Вам.
 
 
 
#9
11.04.2012 14:34:59
я думал использование выражения    
Set texNew = Sheets("Sheet1").Columns("A:A").SpecialCells(xlCellTypeConstants, 23)  
обеспечит выполнение действия только в пределах отфильтрованного диапазона, т.к. на другой части макроса, где мне нужно было только вставить значения в пустые ячейки отфильтрованного диапазаона аналогичное условие (только для выделения пустых ячеек) работает отлично
 
 
 
#10
11.04.2012 14:38:34
Вариант: перебирать ячейки циклом, если строка видимая (или высота <> 0), то...
 
 
 
#11
11.04.2012 14:46:28
ant_sol, уважаемые коллеги уже высказались по этому поводу, добавлю от себя - у Вас не хватило ума, или желания(не знаю) нормально, с примером(по правилам), выложить сформулированный вопрос и Вы решили поиграть в загадки-догонялки. А у меня абсолютно никакого желания нет тратить свое время на Вашу бестолковость. К тому же, такое Ваше отношение выглядит, как неуважение к форумчанам. Полностью рабочий способ я Вам предоставил, осваивайте Эксель, подгоняйте под свои нужды код. За сим раскланиваюсь.
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх