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

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

18 Октябрь 2017, 12:03 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 597


« Стартовое сообщение: 9 Апрель 2017, 19:55 »

Компонент: Calc
Версия продукта: 4.x
Сборка:  OpenOffice.
ОС: W7

Добрый день

Прошу помощи, тк нигде не могу найти информацию

Есть книга Опен Офис, в ней 10 листов.
На первом листе вводится фио сотрудника в столбце в ячейка начиная с  А1  А9

Как сделать так, чтобы при вводе фио к примеру в ячейку А1 на первом листе, автоматически этим же именем назывался Лист2 в книге, при вводе
фио в ячейку А2, этим же именем назывался Лист3 и так далее

--
Подпись: Lanse
Эл. почта: dbulanov2@live.com
Записан
economist
Ветеран
*****
Offline Offline

Сообщений: 713


« Ответ #1: 10 Апрель 2017, 08:11 »

F2 - Home - Shift+End - Ctrl+C - двойной клик по ярлычку нужного Листа - Ctrl+V.
Итого - 3 секунды на лист, 30 секунд на 10 листов.

Можно и макросом, но это из пушки по воробьям, так как на макрос я потратил 2 минуты:
Код:
Option VBASupport 1
Option Compatible

Sub RenameExistsSheetsByRangeCellsValue()
k=1
For each n in [A1:A9]
k=k+1
Sheets(k).Name=n.value
Next
End Sub

Запускать макрос можно по-разному, в т.ч. по событию заполнения ячеек.
Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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