Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование названия листа в ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование названия листа в ячейку (Макросы/Sub)
Копирование названия листа в ячейку
dmtgrs Дата: Четверг, 09.12.2021, 09:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - dmtgrs
Дата добавления - 09.12.2021 в 09:34
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
 
Ответить
СообщениеПопробуйте код из темы: http://www.excelworld.ru/forum/10-31767-1

Автор - svp
Дата добавления - 09.12.2021 в 09:49
svp Дата: Четверг, 09.12.2021, 09:54 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Забыл прикрепить файл.
К сообщению приложен файл: svp.xlsm(17.8 Kb)
 
Ответить
СообщениеЗабыл прикрепить файл.

Автор - svp
Дата добавления - 09.12.2021 в 09:54
китин Дата: Четверг, 09.12.2021, 10:22 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 6687
Репутация: 1020 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
в стандартный модуль
[vba]
Код
Sub TT_()
Dim NN_ As String
NN_ = ActiveSheet.Name
ActiveSheet.Range("A5").Value = NN_
End Sub
[/vba]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениев стандартный модуль
[vba]
Код
Sub TT_()
Dim NN_ As String
NN_ = ActiveSheet.Name
ActiveSheet.Range("A5").Value = NN_
End Sub
[/vba]

Автор - китин
Дата добавления - 09.12.2021 в 10:22
Nic70y Дата: Четверг, 09.12.2021, 10:35 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 7294
Репутация: 1686 ±
Замечаний: 0% ±

Excel 2010
Рекодером макроса такое сделать не получается
решил приколоться :)
[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
 
Ответить
Сообщение
Рекодером макроса такое сделать не получается
решил приколоться :)
[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]

Автор - Nic70y
Дата добавления - 09.12.2021 в 10:35
dmtgrs Дата: Четверг, 09.12.2021, 10:48 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

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

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
 
Ответить
Сообщение
в стандартный модуль

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:48
Nic70y Дата: Четверг, 09.12.2021, 11:02 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 7294
Репутация: 1686 ±
Замечаний: 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
 
Ответить
Сообщение[vba]
Код
Sub u_700()
    For i = 1 To Sheets.Count
        Sheets(i).Range("a1") = Sheets(i).Name
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 09.12.2021 в 11:02
китин Дата: Четверг, 09.12.2021, 11:05 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 6687
Репутация: 1020 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
[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/WM R249698041931; Z239672726538
 
Ответить
Сообщение[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]

Автор - китин
Дата добавления - 09.12.2021 в 11:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование названия листа в ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!