Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка текста в конце списка - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка текста в конце списка (Макросы/Sub)
Вставка текста в конце списка
Ярик Дата: Четверг, 19.09.2019, 20:28 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Добрый вечер. Помогите решить задачу, есть накладная (заранее количество строк неизвестно) нужно в конце списка (в новой строке с объединенными ячейками) вставить фразу "СПАСИБО ЗА ПОКУПКУ".
Без кнопки, чтобы макрос сам определил последнюю заполненную ячейку и вставил строку с текстом.
К сообщению приложен файл: 7202745.xlsb(8.6 Kb)


753123
 
Ответить
СообщениеДобрый вечер. Помогите решить задачу, есть накладная (заранее количество строк неизвестно) нужно в конце списка (в новой строке с объединенными ячейками) вставить фразу "СПАСИБО ЗА ПОКУПКУ".
Без кнопки, чтобы макрос сам определил последнюю заполненную ячейку и вставил строку с текстом.

Автор - Ярик
Дата добавления - 19.09.2019 в 20:28
Pelena Дата: Четверг, 19.09.2019, 22:53 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14585
Репутация: 3196 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте
[vba]
Код
Sub спс()
    With Cells(Rows.Count, 1).End(xlUp).Offset(1)
        .Resize(1, 5).Merge
        .Value = "СПАСИБО ЗА ПОКУПКУ!"
        .Font.Size = 16
        .Font.Bold = True
    End With
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте
[vba]
Код
Sub спс()
    With Cells(Rows.Count, 1).End(xlUp).Offset(1)
        .Resize(1, 5).Merge
        .Value = "СПАСИБО ЗА ПОКУПКУ!"
        .Font.Size = 16
        .Font.Bold = True
    End With
End Sub
[/vba]

Автор - Pelena
Дата добавления - 19.09.2019 в 22:53
Ярик Дата: Суббота, 21.09.2019, 19:47 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Pelena огромное Вам спасибо за помощь.


753123
 
Ответить
СообщениеPelena огромное Вам спасибо за помощь.

Автор - Ярик
Дата добавления - 21.09.2019 в 19:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка текста в конце списка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!