Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Апрель 2019, 23:31 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: Координатное выделение 2  (Прочитано 6981 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Донченко Валерий
Участник
**
Offline Offline

Сообщений: 12


« Ответ #31876: 6 Август 2015, 15:56 »

Подскажите пожалуйста, может ли кто перевести код VBA в код OpenOffice Basic? К сожалению, в программировании не силен. Нашел удачный, на мой взгляд, вариант на VBA. На форуме тема обсуждалась достаточно давно (Февраль 2012 года), поэтому создал свою тему.
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim WorkRange As Range
    Dim wi As Window
    Set wi = ActiveWindow
    If Target.Cells.Count > 1 Then Exit Sub  'если выделено больше 1 ячейки - выходим'
    Application.ScreenUpdating = False
    Set WorkRange = wi.VisibleRange 'адрес рабочего диапазона, в пределах которого видно выделение'
    Intersect(WorkRange, Target.EntireRow).Select   'формируем строку диапазон и выделяем'
    Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn)).Select 'формируем крестообразный диапазон и выделяем'
    Target.Activate
End Sub
« Последнее редактирование: 19 Август 2015, 19:15 от Донченко Валерий » Записан
Страниц: 1 2 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!