Копирование названия листа в ячейку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование названия листа в ячейку (Макросы/Sub)

dmtgrs

Дата: Четверг, 09.12.2021, 09:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 30

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Возможно ли с помощью макроса скопировать название листа в ячейку? Рекодером макроса такое сделать не получается

Ответить

svp

Дата: Четверг, 09.12.2021, 09:49 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Попробуйте код из темы: http://www.excelworld.ru/forum/10-31767-1

Сообщение отредактировал svp - Четверг, 09.12.2021, 09:51

Ответить

svp

Дата: Четверг, 09.12.2021, 09:54 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Забыл прикрепить файл.

К сообщению приложен файл: svp.xlsm (17.8 Kb)

Ответить

китин

Дата: Четверг, 09.12.2021, 10:22 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

в стандартный модуль
[vba]

Код

Sub TT_()
Dim NN_ As String
NN_ = ActiveSheet.Name
ActiveSheet.Range("A5").Value = NN_
End Sub

[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Nic70y

Дата: Четверг, 09.12.2021, 10:35 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата dmtgrs, 09.12.2021 в 09:34, в сообщении № 1 (

)

Рекодером макроса такое сделать не получается

решил приколоться

[vba]

Код

    ActiveCell.FormulaR1C1 = "=CELL(""filename"",RC)"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="*]", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Application.CutCopyMode = False

[/vba]

ЮMoney 41001841029809

Ответить

dmtgrs

Дата: Четверг, 09.12.2021, 10:48 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 30

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Цитата китин, 09.12.2021 в 10:22, в сообщении № 4 (

)

в стандартный модуль

Sub TT_()
Dim NN_ As String
NN_ = ActiveSheet.Name
ActiveSheet.Range("A5").Value = NN_
End Sub

Спасибо!!!! А возможно ли сделать так, чтобы этот макрос мог срабатывать сразу на всех листах? Т.е. чтобы не открывать каждый лист. Названия листов разные. Лист1 Лист 2 Лист 3, соответственно эти названия попадают в ячейку своего листа. Лист1 A1=Лист1, Лист2 A1=Лист2,Лист3 A1=Лист3

Сообщение отредактировал dmtgrs - Четверг, 09.12.2021, 10:53

Ответить

Nic70y

Дата: Четверг, 09.12.2021, 11:02 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_700()
    For i = 1 To Sheets.Count
        Sheets(i).Range("a1") = Sheets(i).Name
    Next
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

китин

Дата: Четверг, 09.12.2021, 11:05 | Сообщение № 8

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

[vba]

Код

Sub TT_()
Dim NN_ As String
Dim sh As Worksheet
  For Each sh In ActiveWorkbook.Worksheets
    NN_ = sh.Name
    sh.Range("A1").Value = NN_
  Next
End Sub

[/vba]

К сообщению приложен файл: dmtgrs.xlsm (15.5 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Копирование названия листа в ячейку (Макросы/Sub)

Страница 1 из 1
1