Ինչպե՞ս տեղադրել Excel- ի աշխատանքային թերթում լողացող աղյուսակը կամ տեքստային տուփը:

Եթե ​​ունեք մի սեղան կամ տեքստային տուփ `մի քանի կարևոր տվյալներով, որոնք ցանկանում եք միշտ տեսանելի լինել աշխատանքային թերթի էկրանին, չնայած այն ժամանակ, երբ ոլորում եք աշխատանքային թերթիկը վեր կամ վար: Սա կարող է լինել հետաքրքիր խնդիր, այս հոդվածը, ես կներկայացնեմ այն ​​արագ լուծելու լուծումը:

Տեղադրեք լողացող սեղան Excel- ում `VBA կոդով

Տեղադրեք լողացող տեքստային տուփ Excel- ում `VBA կոդով

Տեղադրեք լողացող սեղան Excel- ում `VBA կոդով

Լողացող աղյուսակը տեղադրելու համար ուղղակի եղանակ չկա, այնպես որ հարկավոր է աղյուսակի տվյալները վերածել պատկերի, այնուհետև կիրառել ծածկագիր այն ավարտելու համար, արեք հետևյալ կերպ.

1, Ընտրեք տվյալների աղյուսակը, որը ցանկանում եք տեսանելի պահել, ապա կտտացրեք պատճեն > Պատճենել որպես նկար տակ Գլխավոր ներդիր, տես նկարի նկարը.

2, Դուրս ցցված Պատճենել նկարը երկխոսության տուփ, ընտրեք Ինչպես ցույց է տրված էկրանին - ից Հայտնվելը բաժինը և ընտրել Պատկեր տակ Ֆորմատ բաժին, սեղմեք OK երկխոսությունը փակելու համար, ապա կտտացրեք բջիջը, որպեսզի պատկերը դուրս գա, վերջապես, սեղմեք Ctrl + V այս նկարը տեղադրելու համար տես նկարի նկարը.

3, Աղյուսակը նկարի վերափոխելուց հետո, աջով կտտացրեք թերթիկի ներդիրին, որը պարունակում է սեղանի նկարը, որը ցանկանում եք միշտ տեսանելի պահել, և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Excel- ում տեղադրեք լողացող սեղան.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Նշում: Այս օրենսգրքում, Նկար 1 ձեր ստեղծած պատկերի անունն է, խնդրում եմ փոխեք այն ըստ ձեր կարիքի:

4, Ապա պահեք և փակեք ծածկագրի պատուհանը, այժմ, երբ ոլորեք աշխատանքային թերթիկը և կտտացրեք բջիջը, սեղանի նկարը միշտ պահվում է աշխատանքային թերթի վերևի աջ անկյունում:

Բացեք Excel Magic-ը Kutools AI-ով

• Խելացի կատարումԿատարեք բջիջների գործողություններ, վերլուծեք տվյալները և ստեղծեք գծապատկերներ՝ այս ամենը պայմանավորված է պարզ հրամաններով:
• Պատվերով բանաձևերՍտեղծեք հարմարեցված բանաձևեր՝ ձեր աշխատանքային հոսքերը հեշտացնելու համար:
• VBA կոդավորումԳրեք և կիրառեք VBA կոդը առանց ջանքերի:
• Բանաձևի մեկնաբանությունՀասկացեք բարդ բանաձևերը հեշտությամբ:
• Տեքստի թարգմանությունՃեղքեք լեզվական խոչընդոտները ձեր աղյուսակներում:

Ընդլայնեք ձեր Excel-ի հնարավորությունները AI-ով աշխատող գործիքներով: Download Now և փորձիր արդյունավետություն, ինչպես երբեք:

Տեղադրեք լողացող տեքստային տուփ Excel- ում `VBA կոդով

Լողացող տեքստային տուփ տեղադրելու համար ահա նաև VBA կոդ ՝ այս խնդիրը լուծելու համար:

1, Նախ, դուք պետք է տեղադրեք տեքստային տուփ ՝ Երեվակիչ էջանշանը, սեղմեք Երեվակիչ > Տեղադրել > Տեքստային տուփ (ActiveX հսկողություն), ապա նկարեք տեքստային տուփը և մուտքագրեք տեղեկատվությունը տեքստային տուփի մեջ ՝ ըստ ձեզ անհրաժեշտ: Տեսեք,

2, Ապա աջով կտտացրեք թերթիկի ներդիրին, որը պարունակում է տեքստային տուփ, որը ցանկանում եք միշտ տեսանելի պահել, և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկի մեջ Մոդուլներ:

VBA կոդ: Excel- ում տեղադրեք լողացող տեքստային տուփ:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Նշում: Այս օրենսգրքում, TextBox1 ձեր տեղադրած տեքստային տուփի անունն է, խնդրում ենք փոխեք այն ըստ ձեր կարիքի:

3, Ապա պահեք և փակեք ծածկագրի պատուհանը, այժմ, երբ աշխատանքային թերթը ոլորում եք ցանկացած տեղ, տեղադրված տեքստային տուփը միշտ պահվում է աշխատանքային թերթի վերևի աջ անկյունում: