[VBA] Скопировать название ячейки в примечание

[artemvas]

Вопрос: как сделать чтобы для подчиненных ячеек выскакивала надпись родительской. Например ячейка а1 название дрель->b1 сверла ,но сверху всплывала бы подсказка название ячейки а1 (не что похожее на примечание ).

 

[Dragokas]

Здравствуйте, @artemvas !

Добро пожаловать на SafeZone!

В первый раз слышу о подчинённых ячейках. Это понятие из нового офисного пакета?

Например ячейка а1 название дрель->b1 сверла ,но сверху всплывала бы подсказка название ячейки а1 (не что похожее на примечание ).

Всплывающая подсказка в Excel так и называется - примечание.
Вы хотите, чтобы макрос автоматически добавил всем ячейкам в определённой области примечание?

 

[artemvas]

На макросах excel я

 

[Dragokas]

Я у вас не об этом спрашивал.

 

[artemvas]

да нужно чтобы макрос внутри excel таблицы автоматически присваивал примечание.... например ячейкам в строке.

 

[Dragokas]

Кажется понял, о чём вы просите.
У вас некоторые ячейки именованные. И вы хотите вывести их имена в виде примечаний?

 

[artemvas]

да верно.

 

[artemvas]

ячейка а1 в ней текст наименование- ячейка b1-с1-в1 автоматом в строке примечание.

 

[Dragokas]

Хоть, точки и запятые иногда ставьте. Ничего же не понятно.

 

[Dragokas]

По какому условию должен срабатывать макрос, чтобы заполнить все примечания?

- один раз при его запуске.
- при нажатии на соответствующую ячейку
- как-то по-другому?

 

[artemvas]

При нажатии на ячейку.

 

[Dragokas]

При нажатии на ячейку:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Dim sName As String
    sName = Target.Name.Name
    If Err.Number = 0 Then Target.NoteText sName
End Sub

(добавить в модуль "Эта книга")

Если вдруг понадобится порасставлять примечания на всех уже существующих именованных ячейках:

Option Explicit

Public Sub Имена_в_примечания()
    Dim CellName As Name
   
    For Each CellName In ThisWorkbook.Names
   
        If Not (CellName.RefersToRange Is Nothing) Then CellName.RefersToRange.NoteText CellName.Name
       
    Next
End Sub

(добавить в обычный модуль Module1.bas)

 

[Dragokas]

Что в итоге? Как успехи, получилось задуманное?

 

[artemvas]

Заранее спасибо!Пока не делал.