Добрый день Прошу помощи, тк нигде не могу найти инфо...

[ForumOOo (бот)]

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

Добрый день

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

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

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

--
Подпись: Lanse
Эл. почта: dbulanov2@live.com

[economist]

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


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