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

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

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

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

Сообщений: 1 516


« Ответ #58534: 26 Май 2021, 10:05 »

Ну и вот "ленивое" решение на VBA, если мы говорим про одиночные имен. ячейки (нужна та же функция getActiveCell)

Код:
Option VBASupport 1

Sub ActiveCellName
For Each nm In ActiveWorkbook.Names
ac_adr = mid(getActiveCell(ThisComponent.CurrentController).AbsoluteName,2)
ac_adr = "=" & replace(ac_adr, ".", "!") ' привели к Excel-адресу, настройки LO кмк не влияют 
if ac_adr = nm.RefersTo then msgbox nm.Name ' имя акт яч
Next
End sub
Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Страниц: 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!