Note: The other languages of the website are Google-translated. Back to English

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

Pivot Table- ի հետ աշխատելիս դուք կարող եք տեղադրել կտրիչներ `աղյուսակի տեսողականորեն զտման համար: Այս հոդվածում խոսվում է առանցքային սեղանի կտրիչը միշտ տեսանելի պահելու մասին ՝ աշխատանքային թերթիկը ոլորելիս:

Շարունակեք առանցքային սեղանի կտրիչը շարժվել VBA կոդով աշխատանքային թերթիկով շարժվելով


Շարունակեք առանցքային սեղանի կտրիչը շարժվել VBA կոդով աշխատանքային թերթիկով շարժվելով

Հետևյալ VBA սցենարը կարող է օգնել ձեզ առանցքային աղյուսակի կտրող սարքը շարժել աշխատանքային թերթով: Խնդրում եմ, արեք հետևյալ կերպ.

1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս գործառույթը ձախ pրագրի պատուհանում և այնուհետև պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Այս աշխատանքային գիրքը (ծածկագիր) պատուհան Տեսեք,

VBA կոդ. Շարունակեք առանցքային սեղանի կտրիչը շարժվել աշխատանքային թերթիկի ոլորմամբ

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

Notes:

1) Կոդում սյունակ 1-ը և սյունակը 2-ը կտրատիչների անուններ են:

2) Կոդում աշխատաթերթը ոլորելիս կարող եք հստակեցնել կտրիչների դիրքը:

3) Եվ դուք կարող եք ավելի շատ կտրող սարքեր ավելացնել կոդի մեջ կամ հեռացնել կտրող սարքեր նրանից, որքան ձեզ հարկավոր է:

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհանի երկխոսության տուփ:

Այսուհետ, նշված կտորները տեղափոխվելու են ակտիվ բջիջով `աշխատանքային թերթիկը ոլորելիս: Տեսեք,


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


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Շնորհակալություն այս VBA-ի համար:

Ես բացարձակապես ոչ մի պատկերացում չունեմ VBA-ի մասին և հետևաբար իմ հարցը.

Ես օգտագործել եմ այս VBA-ն և մի հարց ունեի.
Ինչպես կարող եմ փոխել այս VBA-ն այնպես, որ այն աշխատի միայն մեկ թերթիկի համար:

Այս պահին ես ունեմ 8 թերթ, և ամեն անգամ, երբ գնում եմ մեկ այլ թերթիկ, այն ձախողվում է և խնդրում է վերջացնել կամ կարգաբերել:
Ես արել եմ ճիշտ այնպես, ինչպես ցույց է տրված վերևում:


Սա իմ VBA-ն է այստեղ..
Մասնավոր ենթաօրենսդրական աշխատանքային գրքույկ_SheetSelectionChange (ByVal Sh որպես օբյեկտ, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
'նշեք կտրատող
Դիմում. ScreenUpdating = Սուտ է
Սահմանել ShF = ActiveSheet.Shapes («Հաճախորդ 1»)
Սահմանել ShM ​​= ActiveSheet.Shapes («Հիշեցում 1»)
«Փոխել կտրիչի դիրքը
Windows-ով (1).VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Ձախ + 475
ShM.Top = .Top + 180
ՇՄ.Ձախ = .Ձախ + 475
Վերջ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub


Please help.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Շնորհակալություն այս VBA-ի համար:

Ես բացարձակապես ոչ մի պատկերացում չունեմ VBA-ի մասին և հետևաբար իմ հարցը.

Ես օգտագործել եմ այս VBA-ն և մի հարց ունեի.
Ինչպես կարող եմ փոխել այս VBA-ն այնպես, որ այն աշխատի միայն մեկ թերթիկի համար:

Այս պահին ես ունեմ 8 թերթ, և ամեն անգամ, երբ գնում եմ մեկ այլ թերթիկ, այն ձախողվում է և խնդրում է վերջացնել կամ կարգաբերել:
Ես արել եմ ճիշտ այնպես, ինչպես ցույց է տրված վերևում:


Սա իմ VBA-ն է այստեղ..
Մասնավոր ենթաօրենսդրական աշխատանքային գրքույկ_SheetSelectionChange (ByVal Sh որպես օբյեկտ, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
'նշեք կտրատող
Դիմում. ScreenUpdating = Սուտ է
Սահմանել ShF = ActiveSheet.Shapes («Հաճախորդ 1»)
Սահմանել ShM ​​= ActiveSheet.Shapes («Հիշեցում 1»)
«Փոխել կտրիչի դիրքը
Windows-ով (1).VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Ձախ + 475
ShM.Top = .Top + 180
ՇՄ.Ձախ = .Ձախ + 475
Վերջ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub


Please help.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Johnոն,
Անցեք այն աշխատաթերթին, որի համար ցանկանում եք, որ միայն VBA կոդը աշխատի, այնուհետև աջ սեղմեք «Թերթ» ներդիրին և ընտրեք «Դիտել կոդը» համատեքստի ընտրացանկից:
Եվ այնուհետև պատճենեք և տեղադրեք VBA կոդի տակ գտնվող կոդի բացման պատուհանում: Տես ստորև սքրինշոթը.

Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Dim ShF As Shape
Dim ShM As Shape
'նշեք կտրատող
Դիմում. ScreenUpdating = Սուտ է
Սահմանել ShF = ActiveSheet.Shapes («Մրգեր»)
Սահմանել ShM ​​= ActiveSheet.Shapes («Վաճառք»)
«Փոխել կտրիչի դիրքը
Windows-ով (1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Ձախ + 300
ShM.Top = .Top
ՇՄ.Ձախ = .Ձախ + 100
Վերջ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Կրիստալ,

Շատ շնորհակալ եմ կոդի համար:
Ես արեցի ճիշտ այնպես, ինչպես դու ասացիր, և այն աշխատում է հմայքի պես:

Իսկապես գնահատեք այն:
Շնորհավոր :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես թարմացրել եմ իմ կոդը, ինչպես դուք նշել եք: Կտրիչն այլևս չի պտտվում պատուհանի հետ միասին, սակայն եթե ես սեղմեմ նոր բջիջ, ապա կտրիչը կտեղափոխվի: Սա ճի՞շտ պահվածք է։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ է ցույց տալիս առաջին տողը և ինչպե՞ս ենք այն հարմարեցնում մեր կտրիչին համապատասխանելու համար:
Ես շատ շփոթված եմ այդ հարցում հիմնականում յուրաքանչյուր տողում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Քեթի
Ես չգիտեմ, թե արդյոք ես լիովին հասկանում եմ ձեր հարցը:
Ինչպես նշեցի վերևի նշումներում, դուք պետք է փոխարինեք Column1-ը և Column2-ը կոդի մեջ ձեր slicers-ի անուններով, որպեսզի ձեր կտրիչն աշխատաթերթի հետ պտտվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ 4 slicers, որոնք խմբավորվել են միասին՝ ընտրելով բոլոր 4-ը և աջ սեղմելով խմբի հրամանն օգտագործելու համար:

Հնարավո՞ր է այս VBA-ն նշանակել խմբի կողմից: Ինչպե՞ս եք պիտակավորում խմբին և գրել VBA, որպեսզի այն ճանաչվի որպես մեկ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Michael,
Ներողություն չեմ կարող օգնել այս հարցում: Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ, այնպես որ վերնագրում ասվում է «Ինչպես պահել առանցքային աղյուսակի կտրատողը շարժվել աշխատանքային թերթիկով Ոլորումը Excel-ում», բայց այս VBA կոդը դա անում է միայն ընթացիկ ընտրված բջիջի համար, ինչպես կարող ենք դա անել դրա համար գույն աշխատանքային գրքույկի, և ոչ միայն ընտրված բջիջի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից