Ինչպե՞ս առանցքային աղյուսակի կտրիչը շարժվել 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- ում պաշտպանված աշխատանքային թերթում տեղադրելով սեղանի տողը:
- Ինչպե՞ս միավորել բջիջները և պահպանել բջիջների ձևաչափումը Excel- ում:
- Ինչպե՞ս հեռացնել կրկնօրինակները, բայց Excel- ում պահպանել առաջին ատյանները:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: