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

artemvas

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

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,098
Реакции
5,880
Баллы
648
Здравствуйте, @artemvas !

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

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

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

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,098
Реакции
5,880
Баллы
648
Я у вас не об этом спрашивал.
 

artemvas

Новый пользователь
Сообщения
8
Реакции
0
Баллы
11
да нужно чтобы макрос внутри excel таблицы автоматически присваивал примечание.... например ячейкам в строке.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,098
Реакции
5,880
Баллы
648
Кажется понял, о чём вы просите.
У вас некоторые ячейки именованные. И вы хотите вывести их имена в виде примечаний?
 

artemvas

Новый пользователь
Сообщения
8
Реакции
0
Баллы
11
ячейка а1 в ней текст наименование- ячейка b1-с1-в1 автоматом в строке примечание.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,098
Реакции
5,880
Баллы
648
Хоть, точки и запятые иногда ставьте. Ничего же не понятно.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,098
Реакции
5,880
Баллы
648
По какому условию должен срабатывать макрос, чтобы заполнить все примечания?

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

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,098
Реакции
5,880
Баллы
648
При нажатии на ячейку:
VB.NET:
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:
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

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,098
Реакции
5,880
Баллы
648
Что в итоге? Как успехи, получилось задуманное?
 

artemvas

Новый пользователь
Сообщения
8
Реакции
0
Баллы
11
Заранее спасибо!Пока не делал.
 
Сверху Снизу