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

Ինչպե՞ս օգտագործել վանդակը Excel- ում շարքերը կամ սյունները թաքցնելու / չթաքցնելու համար:

Ենթադրելով, որ դուք պետք է օգտագործեք վանդակը ՝ որոշակի տողեր կամ սյուններ թաքցնելու կամ ցուցադրելու համար: Օրինակ, երբ նշվում է Active X Control վանդակը, ցուցադրվում են որոշակի շարքեր կամ սյուններ, հակառակ դեպքում դրանք կթաքցվեն: Այս հոդվածը ցույց է տալիս Excel- ում տողերը կամ սյունակները մանրամասներով թաքցնելու / ցուցադրելու համար վանդակը օգտագործելու եղանակը:

Օգտագործեք վանդակը ՝ VBA կոդով տողերը կամ սյունները թաքցնելու / ցուցադրելու համար


Օգտագործեք վանդակը ՝ VBA կոդով տողերը կամ սյունները թաքցնելու / ցուցադրելու համար

Հաջորդ VBA կոդը կարող է օգնել ձեզ թաքցնել / ցուցադրել որոշակի տողեր կամ սյուններ վանդակում:

1. Active X Control վանդակը աշխատանքային էջում տեղադրելուց հետո աջ սեղմեք նշման տուփի վրա և այնուհետև ընտրեք Դիտել կոդը աջ կտտացնելու ցանկից: Տեսեք,

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

VBA կոդ. Տողերը կամ սյունները թաքցնելու / ցուցադրելու համար օգտագործեք վանդակը

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Notes:

1. VBA կոդում [C: D] Ամբողջ սյունակ նշանակում է, որ C և D սյունակները կթաքցվեն կամ կհայտնվեն ՝ համապատասխան վանդակը նշելով կամ ապանշելով:

2. Որոշ շարքեր թաքցնելու կամ ցուցադրելու համար, ինչպիսիք են 6: 9 տողը, խնդրում ենք փոխել [C: D]: Ամբողջ սյունակ դեպի [6: 9]: EntireRow VBA ծածկագրում:

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

4. Այժմ խնդրում եմ անջատել այն Դիզայնի ռեժիմ տակ Երեվակիչ էջանիշը, ինչպես ցույց է տրված ստորև նշված նկարը.

Այսուհետ, երբ վանդակը ստուգվում է, ցուցադրվում են նշված շարքերը կամ սյունակները: Երբ այն չի ընտրվում, նշված տողերը կամ սյունները թաքցվում են:


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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (26)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ միջոց պաշտպանված աշխատաթերթի վրա «Օգտագործել վանդակը VBA կոդով տողերը կամ սյունակները թաքցնելու/ցուցադրելու համար»:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
@Wayne:

Մասնավոր ենթակետի վանդակ1_Click()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Not CheckBox1
ActiveSheet.Protect Գաղտնաբառ:="xxxx"
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Թվում է, թե այս կոդը կգնա միայն մեկ ուղղությամբ, այսինքն՝ միայն կթաքցնի և չի ցուցադրի դրանք սեղմելիս: Սա ուղղելու միջոց կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մենք նույն խնդիրն ունենք, բայց ես պարզեցի, որ մենք օգտագործում ենք Form Controls-ը և ոչ ActiveX Controls-ը: Կոդը հիանալի աշխատում է ActiveX Control Checkbox կոճակում: Պարզապես անջատեք Դիզայնի ռեժիմը, որպեսզի կարողանաք սեղմել նշեք վանդակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մենք ունենք նույն խնդիրը, բայց գտնում ենք այն գործելու միջոց: Խնդրում ենք օգտագործել ActiveX Controls վանդակը և ոչ թե Form Control վանդակում: Կոդը հիանալի աշխատում է ActiveX վանդակի հետ:


Մասնավոր ենթակետի վանդակ1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Ես փորձում եմ օգտագործել այս կոդը՝ վանդակից առանձին թերթիկի վրա թաքցնելու/բացելու համար: Ի՞նչ պետք է ավելացնեմ այս գործը կատարելու համար: Նախապես շնորհակալություն.

Մասնավոր ենթակետի վանդակ1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Ինչպես ցույց է տրված հետևյալ կոդը, խնդրում ենք փոխարինել «Seet4»-ը ձեր առանձին թերթի անունով:

Մասնավոր ենթակետի վանդակ1_Click()
[Sheet4!C:D].EntireColumn.Hidden = Not CheckBox1
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Ողջույն, ես արել եմ կոդը, այն լավ է աշխատում, բայց երբ փորձում եմ նույնը դարձնել նույն թերթիկի մեկից ավելի վանդակներում, նրանք աշխատում են «միասին», միայն թաքցնում կամ ցուցադրում են տողերը, եթե ընտրված են բոլոր երեք վանդակները:
Ես փորձում եմ այնպես անել, որ այս երեք վանդակները աշխատեն միմյանցից անկախ: Եվ թող օգտվողները ժամանակին նշեն միայն մեկ տուփ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Լու,
Խնդրում ենք համոզվել, որ ձեր ստեղծած վանդակները ActiveX Controls-ի վանդակներն են: Այս վանդակներն աշխատում են անկախ ձեր աշխատաթերթում:
Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Միայն մեկ տող թաքցնելու միջոց կա՞։ Եթե ​​ես դնեմ 6:9, բոլոր տողերը թաքնված են, բայց եթե ես դնում եմ միայն 6, ապա ստացվում է որպես սխալ: Գնահատում եմ ձեր օգնությունը, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Խնդրում ենք փոխել կոդի երկրորդ տողը հետևյալի.
[6:6].EntireRow.Hidden = Not CheckBox1:
Շնորհակալություն մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում էի բացահայտել առաջին երեք դերերը, բայց դա չստացվեց: Ինչպես կարող եմ դա անել, ես գիտեմ, որ այն մարդը, ով ուղարկում է ինձ այդ ֆայլը, ուզում է իմանալ իմ հմտությունները, ես կարող եմ լուծել այն, թե ոչ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մայիս,
Կներեք, որ չհասկացա ձեր տեսակետը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն աշխատեց, բայց հետո, երբ ես պահեցի ֆայլը և նորից բացեցի, այն չի աշխատում: Ես փորձեցի պահել այն որպես Macro excel թերթ և որպես սովորական աշխատանքային գրքույկ: Ի՞նչ եմ ես սխալ արել։ Ես ուզում եմ տալ այն ուրիշին, որ օգտագործի և չուզենամ, որ շփոթեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Անգելա, կոդը աշխատանքային գրքում ավելացնելուց հետո սեղմեք Ֆայլ > Պահպանել որպես, ընտրեք, թե որտեղ պետք է պահվի ֆայլը, Save As երկխոսության վանդակում, ընտրեք Excel Macro-Enabled Workbook (*.xlsm) Պահել որպես տիպի բացվող ցանկից: , և վերջապես սեղմեք Պահպանել։ Այնուհետև ուղարկեք այս Excel-ի մակրո-միացված աշխատանքային գիրքը ուրիշներին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ օգտակար է, բայց ինչպե՞ս կարող եմ այն ​​օգտագործել աղյուսակի միայն մի մասը թաքցնելու համար: Նկատի ունեմ օրինակ B2:B11 բջիջները, ինչպե՞ս համատեղել այդ երկու ֆունկցիաները: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ կլիներ, եթե ես ուզենայի օգտագործել 3 տարբեր վանդակներ և ցանկանայի, որ դրանք յուրաքանչյուրը փոխարկեն՝ թաքցնելով տողերի տարբեր խմբեր: Ես փորձել եմ և նայեցի ամբողջը: Երբ ես փորձում եմ փոփոխել այս կոդը, վանդակները կարծես խանգարում են միմյանց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ կլիներ, եթե ես ուզենայի օգտագործել 3 տարբեր վանդակներ և ցանկանայի, որ դրանք յուրաքանչյուրը փոխարկեն՝ թաքցնելով տողերի տարբեր խմբեր: Ես փորձել եմ և նայեցի ամբողջը: Երբ ես փորձում եմ փոփոխել այս կոդը, վանդակները կարծես խանգարում են միմյանց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém pode complementar por favor? Preciso de um codigo para ocultar and reexibir colunas indicadas.

Մասնավոր ենթակետի վանդակ1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
Վերջ Sub

Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ուելինգթոն Մեսկիտա,
Այս VBA կոդը կարող է հասնել.
Երբ վանդակը ստուգվում է 1, ցուցադրվում են C:D սյունակը.
Երբ այն չստուգված է, C:D սյունակը թաքնված է:
Կոդն իմ դեպքում լավ է աշխատում։ Excel-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Good morning!
Espero que todos estejam bem!

Այն պետք է լինի ճշգրիտ օկուլտային / reexibir a coluna utilizando o Control ActiveX quando solecionado or item:

Օրինակ՝ Tenho coluna com os անվանումները՝ Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), ոչ entanto, que poder selecionar individual as colunas intercalando secessário: Ընտրեք մի քանի միավոր Realizado e Variação, mesmo não estando na sequencia:

Desde já agradeço,
Ուելինգտոն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կներեք, ես չեմ հասկանում, թե ինչ նկատի ունեք: Դեմ կլինե՞ք տրամադրել ձեր տվյալների սքրինշոթը:
Հնարավոր է, որ ձեզ անհրաժեշտ լինի կցել սքրինշոթ կամ նմուշ ֆայլ՝ ձեր հանդիպած խնդիրը ավելի հստակ նկարագրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
E para ocultar colunas não sequências?
Օրինակ՝ A e C

Կա՞ արդյոք A e C-ի կիրառման սերիա:

«Sub CheckBox1_Click Privada ()
[C:D].EntireColumn.Hidden = Não CheckBox1
Ավարտել ենթակետը»
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Հետևյալ VBA կոդը կարող է ձեզ լավություն անել: Խնդրում եմ փորձեք:
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Հիլֆե....
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև վարդ,
Հետևյալ VBA կոդը կարող է օգնել.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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