Страница: 1 |
Мне надо чтобы в таблице после её заполнения в EXEL 2000 автоматически убирались те строки, в которых в последнем столбце стоит ноль. Как это сделать? Заранее всем спасибо. Пишите на мыло: krison@ekrantelecom.spb.ru
Попробуй включить запись макроса, удали строку - получишь код для удаления на VBA, слегка его подкорректируй (в частности добавь логическое условие if <последний столбец> = 0 then del). Вуаля! Дело в шляпе! Нужен текст макроса для EXEL2000 , который бы после заполнения таблицы автоматически убирались те строки, в которых в последнем столбце стоит ноль. Заранее всем спасибо. Пишите krison@ekrantelecom.spb.ru Не нужно макросов. Menu Project/Reference Dim Exl As Excel.Application Мне приходилось, например и т.д. Удачи Страница: 1 |
Вопрос: ПОМОГИТЕ ЛЮДИ ДОБРЫЕ СПРАВИТЬСЯ с EXEL, !!!!!!!!!
Добавлено: 08.08.03 13:45
Автор вопроса:
ORION
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа: .:: St!X ::.
ICQ: 339888425
Вопросов: 13
Ответов: 51
Web-сайт:
Профиль | | #1
Добавлено: 08.08.03 14:43
Номер ответа: 2
Автор ответа: ORION
Вопросов: 1
Ответов: 1
Профиль | | #2
Добавлено: 11.08.03 13:35
ПОМОГИТЕ ПОЖАЛУЙСТА!
НУЖЕН МАКРОС ДЛЯ EXEL .
Номер ответа: 3
Автор ответа: Malyav
ICQ: 8440085
Вопросов: 15
Ответов: 117
Web-сайт:
Профиль | | #3
Добавлено: 13.08.03 08:46
добавляешь екселовский Object Library
далее
Set Exl = New Excel.Application
Exl.Visible = True
Exl.Workbooks.Open App.Path & "\" & "Sample.xls"
А там уже существует масса объектоа. в том числе Table
Делаешь с ними все что хочешь
Exl.ActiveWorkbook.Sheets("Sheet1").Activate
Exl.ActiveSheet.Paste Destination:=Exl.ActiveSheet.Range("B" & iList1)
Exl.ActiveSheet.Range(Chr(j) & iList1).Value = sTemp