Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Добавление текста в ячейку
 
#1
21.02.2009 08:52:40
Здравствуйте.  
Как сделать макросом добавление текста в ячейку, в которой уже есть текст (нужно, чтобы старый текст не стирался, а новый текст просто добавлялся ).  
И второй вопрос.  
Как сделать макросом, чтобы при вводе текста в ячейку при нажатии ENTER курсор перемещался вправо на следующую ячейку.  
Спасибо.
 
 
 
#2
21.02.2009 13:11:04
С добавлением текста чего-то не получается. У меня все равно стирается старый текст и добавляется новый.  
Может быть чего-то не так делаю?  
Range("A1").Value = Range("A1").Value & "Ваш текст".  
Под "Ваш текст" - старый текст? Правильно я понимаю?
 
 
 
#3
21.02.2009 13:22:41
"Ваш текст" - текст, который хотите добавить.
 
 
 
#4
21.02.2009 13:49:06
А как сделать так, чтобы в макросе был прописан старый текст. Ведь новый текст может быть различным и его заранее вписать в макрос нельзя.
 
 
 
#5
21.02.2009 13:56:58
Если новый текст находится в B1, то:  
Range("A1").Value = Range("A1").Value & Range("B1").Value  
Может быть он в TextBox у Вас, может через InputBox вводится. Откуда нам знать? А старый текст он и остаётся старым. На своём месте.
 
 
 
#6
21.02.2009 14:06:35
Вот так попробуйте:  
Sub asd()  
Range("A1").Value = Range("A1").Value & " " & InputBox("Введите текст")  
End Sub
 
 
 
#7
21.02.2009 15:50:57
У меня старый текст записан в ячейке. Новый текст я хочу внести макросом. Пока у меня не получается. Не пойму, в чем ошибка. Старый текст все равно стирается, тест из макроса остается.
 
 
 
#8
21.02.2009 16:24:28
Вы пример, приведённый выше, пробовали?
 
 
 
#9
21.02.2009 16:44:26
Приведенный мне не подходит.  
Мне нужно новый текст внести макросом.  
Например. В ячейке таблицы внесена фамилия Иванов К.К. Макросом мне надо внести в эту ячейку за текстом "Иванов К.К." текст "Сидоров П.В.".  
В ячейке д/б: Иванов К.К.  
             Сидоров П.В.
 
 
 
#10
21.02.2009 17:28:23
{quote}{login=Никита}{date=21.02.2009 04:44}{thema=}{post}Приведенный мне не подходит.  
Мне нужно новый текст внести макросом.  
{/post}{/quote}  
А я Вам предлагаю не макросом разве?  
Никита, а откуда берётся значение "Сидоров П.В."?
 
 
 
#11
21.02.2009 18:00:23
Sub Макрос1()  
ActiveCell.Value = ActiveCell.Value + Chr(10) + InputBox("Какой текст Вы хотите добавить")  
End Sub  
 
Этот макрос будет добавлять в активную ячейку введенный Вами текст с переносом его на другую строку. В активной ячейке должен быть текст.  
С уважением, Александр.
 
 
 
#12
21.02.2009 18:02:13
Алекс, бесполезно - он сейчас скажет, что ему нужно добавлять не такой текст. И к тому же макросом. :-)
 
 
 
#13
21.02.2009 19:15:21
Спасибо всем за участие в данной проблеме.
 
 
 
#14
24.02.2009 11:14:08
{quote}{login=Юрий М}{date=21.02.2009 06:02}{thema=}{post}Алекс, бесполезно - он сейчас скажет, что ему нужно добавлять не такой текст. И к тому же макросом. :-){/post}{/quote}  
я плакал :)
 
 
 
Страницы: 1
Читают тему
Наверх