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

Тема в разделе "Lotus - Программирование", создана пользователем Karlosss, 19 окт 2010.

Статус темы:
Закрыта.
  1. Karlosss

    Karlosss Гость

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

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

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Посмотрите значение константы xlShiftToLeft (можно в vba нажать F2 и найти её объявление), замените числовым значением.
    Код (Text):
    Worksheets("Sheet1").Range("A1:D10").Delete(-4159)
     
  3. alik86

    alik86 Lotus team
    Lotus team

    Регистрация:
    20 ноя 2008
    Сообщения:
    465
    Симпатии:
    0
    Удаление строки №1 в VBA:
    Код (Text):
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Удаление содержимого строки №1 в VBA:
    Код (Text):
    Rows("1:1").Select
    Selection.ClearContents
    По поводу объявления переменных полазьте по форуму, найдёте.
    К примеру тут: http://codeby.net/forum/threads/37842s0.html
     
  4. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    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
     
  5. Karlosss

    Karlosss Гость

    Да , все получилось , спасибо за помощь!!

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

    alik86 Lotus team
    Lotus team

    Регистрация:
    20 ноя 2008
    Сообщения:
    465
    Симпатии:
    0
    ИМХО лучший хелп по "программированию в excel":
    Сервис -> Макрос -> Начать запись -> <ручками делаем то, что хотим запрограммировать> -> Остановить запись
    Сервис -> Макрос -> Макросы -> Изменить -> <изучаем полученный код>
     
  7. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    sax_ol VBA ему непонятен, написано же выше. Надо тоже, только по-другому)))
    Karlosss Запись и корректировка макроса - можно, но хелп VBA вам при этом понадобится, советую все же разобраться с ним.
    За литературой по VBA обращаемся в раздел Visual Basic.
     
  8. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.080
    Симпатии:
    300
    - гугл, не раз убеждался, находил и редкие конструкции (в т.ч. недокументированные)
    родной хэлп настолько убогий, что луча даже и не пробывать юзать :)
     
  9. Mr.Maddog

    Mr.Maddog Well-Known Member

    Регистрация:
    5 фев 2007
    Сообщения:
    87
    Симпатии:
    0
    Есть у меня таблица данных в екселе, один столбец содержит цифровые значения (положительные и отрицательные). Мне нужно удалить строки с отрицательныеми значениями и с нулевыми. нашёл такой макрос : 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 И всё-темный лес-в ехеле включил все макросы,а вот как его запустить или че еще зделать-ума не приложу
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей