Текстовое поле, которое видно на всех листах

У меня есть книга Excel с 8 листами. Я хочу создать TextBox с прикрепленной к нему стрелкой и поместить его в нижний левый угол, прямо над именами листа. Я хочу, чтобы это текстовое поле было видно даже при переходе на следующий лист. Это будет использоваться в качестве комментария, который является общим для всех листов.

microsoft-excel worksheet-function microsoft-excel-2010

— Priyanka
источник

Как насчет создания листа, поместите комментарий в название и выделите его цветом, чтобы он был отчетливо виден? Я знаю, не совсем то, что вы спрашиваете, но если вы не хотите создавать это текстовое поле на каждом листе, на самом деле не будет выбора.

— LPChip

Является ли текст одинаковым для всех текстовых полей? Где будет указывать стрелка? На вкладку спецификаций? Может быть, в одну ячейку на каждом листе? в разные ячейки на каждом листе?

— Mark Fitzgerald

Я могу предложить вам код VBA (Macro) для создания текстового поля на всех листах одним щелчком мыши & amp; тогда после того, как вы найдете его на листах, подтвердите через комментарии, будет ли работа для вас?

— Rajesh S

@MarkFitzgerald: текст одинаков для всех листов. Пример: 3 из 8 рабочих листов являются базовыми. Я хочу поставить фигурную скобку на все 3 листа и написать «Базовый лист данных» в текстовом поле. Когда я перехожу к любому другому рабочему листу, это текстовое поле также должно отображаться. Как вкладки рабочего листа, которые всегда видны независимо от активного рабочего листа.

— Priyanka

@LPChip: Да, я могу попытаться сделать это для всех листов базы данных. Просто хочу, чтобы TextBox сделал его более понятным и быстрым.

— Priyanka

@Priyanka, я хотел бы предложить вам код VBA (Macro), который создаст текстовое поле на всех листах (на всех 8 листах) над именами листов.

Sub CreateTXTBox()
    For I = 1 To 8
        Sheets(I).Select
        ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=50, Top:=270, Width:=100, Height:= _
        40).Select
    Next
End Sub

Нотабене

Вставьте этот код как модуль с рабочей книгой и запустите для создания текстового поля на всех 8 листах в одном месте
For I = 1 to 8 редактируемый вы можете изменить 8 если хочет создать текстовое поле в более или менее чем 8 Sheets,
Размеры текстового поля также доступны для редактирования.

— Rajesh S
источник