Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.02.2009, 01:02   #1
Anutik
Пользователь
 
Регистрация: 27.02.2009
Сообщений: 15
По умолчанию Подскажите пожалуйста кто знает

Здравствуйте! в экселевской таблице число строк которой меняется с помощью вба необходимо через пару строк после последней пустой ввести текст...как это сделать?
Anutik вне форума Ответить с цитированием
Старый 27.02.2009, 01:23   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Прикрепите пример файла.

Цитата:
через пару строк после последней пустой
последняя пустая строка в Excel 2003 имеет номер 65536
После неё уже ничего не вставить

По какому столбцу определять последнюю заполненную строку?

К примеру, если по столбцу "B", то код будет выглядеть так:
Код:
Sub ВставкаДанныхЧерез2Строки()
    Dim НоваяСтрока As Range: Столбец = "B"
    Set НоваяСтрока = ActiveSheet.Cells(Rows.Count, Столбец).End(xlUp).Offset(3).EntireRow

    НоваяСтрока.Cells(1) = "Текст первой ячейки новой строки"
    НоваяСтрока.Cells(5) = "Текст пятой ячейки новой строки"
End Sub

Последний раз редактировалось EducatedFool; 27.02.2009 в 01:29.
EducatedFool вне форума Ответить с цитированием
Старый 27.02.2009, 22:58   #3
Anutik
Пользователь
 
Регистрация: 27.02.2009
Сообщений: 15
По умолчанию

EducatedFool, спасибо))) может поможите и само задание сделать...суть в том, что из программы одной в эксель выгружается таблица....число столбцоы в ней одинаково, а число строк меняется...на бва необходимо внизу таблицы через несколько строк после последней заполненной вставить тескт.... типа ИСПОЛНИЛ ПЕРТОВ_______
Anutik вне форума Ответить с цитированием
Старый 27.02.2009, 23:28   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

А что там делать-то?
Я же написал пример кода...

Одну строчку поменять не можете?

Код:
Sub ВставкаДанныхЧерез2Строки()
    Dim НоваяСтрока As Range: Столбец = "B"
    Set НоваяСтрока = ActiveSheet.Cells(Rows.Count, Столбец).End(xlUp).Offset(3).EntireRow

    НоваяСтрока.Cells(1) = "Исполнил: Петров  ____________"
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 28.02.2009, 00:09   #5
Anutik
Пользователь
 
Регистрация: 27.02.2009
Сообщений: 15
По умолчанию

Спасибо за помощ просто я только учусь...
Anutik вне форума Ответить с цитированием
Старый 28.02.2009, 00:13   #6
Anutik
Пользователь
 
Регистрация: 27.02.2009
Сообщений: 15
По умолчанию

Как сделать чтоб текст был не в одной ячейка,а красиво в строчку?
Anutik вне форума Ответить с цитированием
Старый 28.02.2009, 00:44   #7
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
чтоб текст был не в одной ячейка,а красиво в строчку?
Был бы пример файла с "красивым" текстом - сделал бы.
А то понятия о красоте у всех отличаются...

Попробуй так:
Код:
Sub ВставкаДанныхЧерез2Строки()
    Dim НоваяСтрока As Range: Столбец = "B"
    Set НоваяСтрока = ActiveSheet.Cells(Rows.Count, Столбец).End(xlUp).Offset(3).EntireRow
    
    ' объединяем все ячейки строки в одну длинную ячейку
    НоваяСтрока.Cells.Merge
    НоваяСтрока.Cells(1) = "Исполнил: Петров  ____________"
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 28.02.2009, 19:29   #8
Anutik
Пользователь
 
Регистрация: 27.02.2009
Сообщений: 15
По умолчанию

EducatedFool,благодарю Вас за помощь))))))
Anutik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите кто знает. SIV84 Microsoft Office Excel 3 17.01.2009 11:10
Прошу помощи ! Люди отзовитесь пожалуйста кто знает что делать ! Jenya1982 JavaScript, Ajax 2 29.08.2008 23:17
Подскажите кто знает?! Proof БД в Delphi 3 06.06.2008 20:19
Ошибка класса EIdReadTimeout - подскажите, кто знает.... maryzza Общие вопросы Delphi 6 12.12.2007 17:11
Кто знает компоненты MMTOOLS(Делфи 6), подскажите! vizor9 Софт 5 11.08.2007 12:30