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

Question

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

Answer 1

@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

NB

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