Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

OpenOffice присвоение листу текущей даты

Автор Pligovka, 06.02.2014, 17:59

« назад - далее »

Pligovka

На работе OpenOffice :-\
Помогите начинающему) нужен макрос для копирования предыдущего листа и переименования его в текущую дату.

cheshiki1

#1
для экселя код такой
Sub Макрос2()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = Date Then MsgBox "Лист с именем текущей даты существует": Exit Sub
Next
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Date
End Sub

копирует активный лист. Для OpenOffice подойдет или нет не скажу.

TimSha

Цитата: cheshiki1 от 07.02.2014, 10:23
для экселя код такой...
копирует активный лист. Для OpenOffice подойдет или нет не скажу.
Для Calc'a LibO (последней версии) подойдет.
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

Pligovka

#3
Спасибо за отзывчивость. В понедельник буду на работе, по результату отпишусь.

Pligovka

Ругается с самого начала объявления переменной. я так понимаю на синтаксис. вообщем не получается.

TimSha

Цитата: Pligovka от 10.02.2014, 18:27
Ругается с самого начала...
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Sub Макрос2()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = Date Then MsgBox "Лист с именем текущей даты существует": Exit Sub
Next
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Date
End Sub

Как вариант, однако - работает в LibO...
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)