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

0

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

Priyanka
источник
1
Как насчет создания листа, поместите комментарий в название и выделите его цветом, чтобы он был отчетливо виден? Я знаю, не совсем то, что вы спрашиваете, но если вы не хотите создавать это текстовое поле на каждом листе, на самом деле не будет выбора.
LPChip
Является ли текст одинаковым для всех текстовых полей? Где будет указывать стрелка? На вкладку спецификаций? Может быть, в одну ячейку на каждом листе? в разные ячейки на каждом листе?
Mark Fitzgerald
Я могу предложить вам код VBA (Macro) для создания текстового поля на всех листах одним щелчком мыши & amp; тогда после того, как вы найдете его на листах, подтвердите через комментарии, будет ли работа для вас?
Rajesh S
@MarkFitzgerald: текст одинаков для всех листов. Пример: 3 из 8 рабочих листов являются базовыми. Я хочу поставить фигурную скобку на все 3 листа и написать «Базовый лист данных» в текстовом поле. Когда я перехожу к любому другому рабочему листу, это текстовое поле также должно отображаться. Как вкладки рабочего листа, которые всегда видны независимо от активного рабочего листа.
Priyanka
@LPChip: Да, я могу попытаться сделать это для всех листов базы данных. Просто хочу, чтобы TextBox сделал его более понятным и быстрым.
Priyanka

Ответы:

0

@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
источник