Open Office Basic

11.03.2011, 17:55. **Показов** 4589. **Ответов** 2

С написанием макросов столкнулась впервые. Нужен макрос для удаления текущей строки (не пустой) в таблице. Подскажите как это сделать?

Евгений М. · 12.03.2011, 10:09

Если задача для Calc, то вот макрос:

Visual Basic

Sub MyMacro1
' удаление строки по выделенной ячейке
 
Dim Sheet As Object
Dim Row as Integer
 
Sheet = ThisComponent.CurrentController.ActiveSheet
Row = ThisComponent.CurrentController.getSelection().getCellAddress().Row
 
Sheet.Rows.removeByIndex(Row, 1)
 
End Sub

Если выделить область, состоящей более 1 ячейки - выдаст ошибку.

14.03.2011, 09:49

Спасибо огромное!!! Все замечательно работает! С условиями на удаление я справилась сама!

Wed'mochka
		1
	Open Office Basic 11.03.2011, 17:55. Показов 4589. Ответов 2 Метки нет (Все метки) С написанием макросов столкнулась впервые. Нужен макрос для удаления текущей строки (не пустой) в таблице. Подскажите как это сделать? __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

Wed'mochka
	14.03.2011, 09:49	3
	Спасибо огромное!!! Все замечательно работает! С условиями на удаление я справилась сама!

Опции темы