Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս միշտ Excel- ում աշխատանքային թերթիկի վրա սավառնել հրամանի կոճակը:

Որոշ դեպքերում ձեզ կարող է անհրաժեշտ լինել լողացող հրամանի կոճակ (ActiveX հսկիչ) ՝ ձեր աշխատանքային թերթիկով շարժվելու համար, անկախ նրանից, թե ինչպես եք ոլորում աշխատանքային թերթիկը վեր կամ վար: Այս հոդվածը ցույց կտա ձեզ դրան հասնելու մեթոդը:

Միշտ լողալով հրամանի կոճակը VBA կոդով աշխատաթերթի վրա


Միշտ լողալով հրամանի կոճակը VBA կոդով աշխատաթերթի վրա

Խնդրում ենք արեք հետևյալը ՝ հրամանի կոճակը միշտ աշխատաթերթում լողալու համար:

1. ActiveX Controls հրամանի կոճակը պարունակող աշխատանքային թերթում, որը ցանկանում եք, որ այն լողացող լինի, աջ կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Դիտել կոդը համատեքստի ընտրացանկից:

2. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և կպցրեք ստորև նշված VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Կազմեք հրամանի կոճակ, որը միշտ սավառնում է աշխատանքային թերթում

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        On Error GoTo 0
        With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
            CommandButton1.Top = .Top + 100
            CommandButton1.Left = .Left + 300
        End With
End Sub

Նշումabovde կոդում CommandButton1 կոճակի անունն է, որը ցանկանում եք միշտ տեսանելի պահել: Խնդրում եմ փոխեք այն ձեր կարիքի վրա:

3. Այնուհետեւ սեղմեք ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, Հրահանգի կոճակը միշտ լողալու է աշխատաթերթի վերին կենտրոնում `ակտիվ կտտացրած բջիջը տեղափոխելով, ինչպես ցույց է տրված նկարում:

ՆշումԱյս VBA- ն աշխատում է միայն ActiveX Controld հրամանի կոճակների համար:


Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
it works fine in one workbook, now i tried to do the same thing in another workbook and i got a compiling error because of the selectionchange. i'm pretty new in vba - maybe it's because i already got a private sub worksheet_selectionchange? do you know how i can fix this? 
This comment was minimized by the moderator on the site
I think it should specify that the button has to be an ActiveX one to the code work. ^.^'
This comment was minimized by the moderator on the site
Hi,
Thank you for your reminder.
This comment was minimized by the moderator on the site
I think it should specify that the button has to be an ActiveX one to the code work. ^.^'
This comment was minimized by the moderator on the site
Does not work :-(
This comment was minimized by the moderator on the site
Hi,
When you scrolling down the worksheet, please click to change the active cell to the visible area to make it work. Thank you for your comment.
This comment was minimized by the moderator on the site
see it, not working, i'm scrolling down and also command button down, i want to fix on the top of right side of sheet.
This comment was minimized by the moderator on the site
Hi,
When you scrolling down the worksheet, please click to change the active cell to the visible area to make it work. Thank you for your comment.
This comment was minimized by the moderator on the site
not working
This comment was minimized by the moderator on the site
Thanks a lot ... It worked...
This comment was minimized by the moderator on the site
Works fine for me. Thx
This comment was minimized by the moderator on the site
Thanks its good with cellselecting
This comment was minimized by the moderator on the site
Not good QA - check your name on the button. If this is what gets published for the Web community to see, what goes in behind the scenes with the code? :-)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations