Удаление строк в Excel

  • Автор темы Karlosss
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

Karlosss

#1
Всем привет!
Надо лотус скриптом удалить строки на странице excel.То есть при запуске открываем файл excel , затем находим строку по параметру и удаляем ее. Пытаюсь по хелпу делать. Нашел удаление у объекта Range, но заточить под себя не получается :)
Как этот vba адаптировать под лотус подскажите плз. Только, если можно, с о бъявлением переменных. Заранее благодарен.

Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft
 

nvyush

Lotus team
22.04.2009
2 317
0
#2
Посмотрите значение константы xlShiftToLeft (можно в vba нажать F2 и найти её объявление), замените числовым значением.
Код:
Worksheets("Sheet1").Range("A1:D10").Delete(-4159)
 

alik86

Lotus team
20.11.2008
465
1
#3
Удаление строки №1 в VBA:
Код:
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Удаление содержимого строки №1 в VBA:
Код:
Rows("1:1").Select
Selection.ClearContents
По поводу объявления переменных полазьте по форуму, найдёте.
К примеру тут: http://codeby.net/forum/threads/37842s0.html
 

susinmn

Well-known member
16.10.2007
529
3
#4
Dim ws As New NotesUIWorkspace
fs = ws.OpenFileDialog( False , "" , "Файлы Excel|*.xls" ,"" , "" )
If Isarray(fs) Then
filename=fs(0)

Set excelAppObject = CreateObject("Excel.Application")
excelAppObject.visible=True
Call excelAppObject.Workbooks.Open(filename)



excelAppObject.Rows("1:3").Select 'выделяем с 1 по 3 строки
excelAppObject.Selection.Delete Shift=xlUp
End If
 
K

Karlosss

#5
Dim ws As New NotesUIWorkspace
fs = ws.OpenFileDialog( False , "" , "Файлы Excel|*.xls" ,"" , "" )
If Isarray(fs) Then
filename=fs(0)

Set excelAppObject = CreateObject("Excel.Application")
excelAppObject.visible=True
Call excelAppObject.Workbooks.Open(filename)



excelAppObject.Rows("1:3").Select 'выделяем с 1 по 3 стрики
excelAppObject.Selection.Delete Shift=xlUp
End If
Да , все получилось , спасибо за помощь!!

Может еще подскажете хороший help по программированию в excel с примерами, а то встроенный не очень понятен.
 

alik86

Lotus team
20.11.2008
465
1
#6
ИМХО лучший хелп по "программированию в excel":
Сервис -> Макрос -> Начать запись -> <ручками делаем то, что хотим запрограммировать> -> Остановить запись
Сервис -> Макрос -> Макросы -> Изменить -> <изучаем полученный код>
 

hosm

* so what *
18.05.2009
2 442
6
#7
sax_ol VBA ему непонятен, написано же выше. Надо тоже, только по-другому)))
Karlosss Запись и корректировка макроса - можно, но хелп VBA вам при этом понадобится, советую все же разобраться с ним.
За литературой по VBA обращаемся в раздел Visual Basic.
 

lmike

нет, пердело совершенство
Премиум
27.08.2008
6 567
263
#8
ИМХО лучший хелп по "программированию в excel":
- гугл, не раз убеждался, находил и редкие конструкции (в т.ч. недокументированные)
родной хэлп настолько убогий, что луча даже и не пробывать юзать :)
 

Mr.Maddog

Well-known member
05.02.2007
87
0
#9
Есть у меня таблица данных в екселе, один столбец содержит цифровые значения (положительные и отрицательные). Мне нужно удалить строки с отрицательныеми значениями и с нулевыми. нашёл такой макрос : Dim Sht As Worksheet
Dim i, RowEnd As Integer

Set Sht = Application.ActiveWorkbook.ActiveSheet
RowEnd = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
i = 4
While i <= RowEnd
If Sht.Cells(i, 3) < 0 Then
Sht.Rows(i ).Delete
Else
i = i + 1
End If
Wend И всё-темный лес-в ехеле включил все макросы,а вот как его запустить или че еще зделать-ума не приложу
 
Статус
Закрыто для дальнейших ответов.