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

artemvas

Новый пользователь
Сообщения
8
Реакции
0
Вопрос: как сделать чтобы для подчиненных ячеек выскакивала надпись родительской. Например ячейка а1 название дрель->b1 сверла ,но сверху всплывала бы подсказка название ячейки а1 (не что похожее на примечание ).
 
Здравствуйте, @artemvas !

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

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

Например ячейка а1 название дрель->b1 сверла ,но сверху всплывала бы подсказка название ячейки а1 (не что похожее на примечание ).
Всплывающая подсказка в Excel так и называется - примечание.
Вы хотите, чтобы макрос автоматически добавил всем ячейкам в определённой области примечание?
 
Кажется понял, о чём вы просите.
У вас некоторые ячейки именованные. И вы хотите вывести их имена в виде примечаний?
 
Хоть, точки и запятые иногда ставьте. Ничего же не понятно.
 
По какому условию должен срабатывать макрос, чтобы заполнить все примечания?

- один раз при его запуске.
- при нажатии на соответствующую ячейку
- как-то по-другому?
 
При нажатии на ячейку:
VB.NET / VBA:
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
(добавить в модуль "Эта книга")

Если вдруг понадобится порасставлять примечания на всех уже существующих именованных ячейках:
VB.NET / VBA:
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)
 
Что в итоге? Как успехи, получилось задуманное?
 
Назад
Сверху Снизу