Переименование книги и листа при нажатии кнопки

Пожалуйста, найдите прикрепленный лист.

Демо.xlsm

У меня есть демонстрационный лист. В нем у меня есть «Основная» рабочая книга, которая содержит кнопку «Следующая неделя», которая при нажатии изменит дату в ячейке листа «abc» C1 на дату следующей недели (т.е. с 14 июня 2015 г. до выбранной даты.)

Я хотел, чтобы рабочие книги с именем "лист1, лист2... лист7" изменили имя в соответствии с датой в соответствующем c1, E1... O1

т.е. c1 датой валютирования будет имя рабочей книги лист1, т.е. лист1 будет переименован в 14-Jun-15 E1 датой валютирования будет имя рабочей книги лист1, т.е. лист1 будет переименован в 15-июнь-15 G1 датой валютирования будет имя рабочей книги лист1, т.е. лист1 будет переименован в 16 -15 июня и т.д..

Дополнительная вещь — переименование того же файла/листа Excel в «ABC 14 июня — 20 июня», где ABC — фиксированное значение, а 14 июня исходит из C1, а 20 июня — из O1.


excel vba renaming
person Mohan Singh    schedule 21.06.2015    source источник
comment
Убедитесь, что вы ответили на оба сообщения. excelforum.com/excel-programming- vba-макросы/   -  person Davesexcel    schedule 21.06.2015

Ответы (1)


arrow_upward
0
arrow_downward

Прокрутите листы и переименуйте, этот код войдет в вашу кнопку Command 2.

Private Sub CommandButton2_Click()
    Dim sh As Worksheet
    Dim ws As Worksheet
    Dim rng As Range, x
    Set ws = Sheets("abc")
    Set rng = ws.Range("A1")

    x = 2
    rng.Offset(0, x) = rng.Offset(0, x) + 7

    For Each sh In Sheets
        If sh.Name <> "Main" Then
            If sh.Name <> "abc" Then
                sh.Name = Format(rng.Offset(0, x), "dd-mmm-yy")
                x = x + 2
            End If
        End If
    Next sh

End Sub
person Davesexcel    schedule 21.06.2015