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

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

Մեզնից շատերի համար կարող է սովորական խնդիր լինել Excel-ում սյունակները թաքցնելը, բայց երբևէ փորձել եք ինքնաբերաբար թաքցնել սյունակները՝ հիմնվելով որոշակի մուտքային արժեքների վրա: Օրինակ, երբ ես վանդակում մուտքագրում եմ «AA» տեքստը, A սյունակը թաքնված է. երբ ես մուտքագրում եմ «BB», B և C սյունակները թաքնված են. «CC» մուտքագրելիս D և E սյունակները թաքնված են. «DD» մուտքագրելիս F սյունակը թաքնված է, ինչպես ցույց է տրված ստորև ներկայացված ցուցադրումը: Այս հոդվածը կստեղծի VBA կոդ Excel-ում այն ​​լուծելու համար:

Թաքցնել կամ ցուցադրել սյունակները իրական ժամանակում՝ հիմնված VBA կոդով օգտվողի մուտքագրման վրա

Թաքցնել կամ ցուցադրել սյունակները՝ VBA կոդով օգտվողի մուտքագրման հիման վրա տվյալները զտելու համար


Թաքցնել կամ ցուցադրել սյունակները իրական ժամանակում՝ հիմնված VBA կոդով օգտվողի մուտքագրման վրա

Մուտքային արժեքների հիման վրա իրական ժամանակում կոնկրետ սյունակները թաքցնելու համար խնդրում ենք կիրառել ստորև նշված VBA կոդը.

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

2, Բացվածքում Microsoft Visual Basic հավելվածների համար պատուհանում, պատճենեք և տեղադրեք հետևյալ VBA կոդը Թերթ (կոդ) պատուհան.

VBA կոդ. Թաքցնել սյունակները իրական ժամանակում՝ օգտատիրոջ մուտքագրման հիման վրա

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
ՆշումՎերոհիշյալ ծածկագրում K1 այն բջիջն է, որտեղ դուք մուտքագրում եք կոնկրետ տեքստը, և դուք պետք է փոխեք տեքստերն ու սյունակների անունները ձեր կարիքի համաձայն: Բացի այդ, դուք կարող եք ավելացնել այլ նոր չափանիշներ՝ պարզապես ավելացնելով ստորև նշված սցենարները.
  • Case "AA": Columns("A").EntireColumn.Hidden = False
  • Columns("A").EntireColumn.Hidden = True

3. Այնուհետև փակեք ծածկագրի պատուհանը: Այժմ K1 բջիջում «AA» մուտքագրելիս և սեղմեք Մտնել բանալին, A սյունակը թաքնված է. «BB» մուտքագրելիս և սեղմեք Մտնել բանալին, B և C սյունակները թաքնված են և այլն: Եթե ​​մուտքագրեք որևէ այլ արժեք կամ ջնջեք բովանդակությունը, թաքնված սյունակները միանգամից կցուցադրվեն, տես ստորև ներկայացված ցուցադրությունը.


Թաքցնել կամ ցուցադրել սյունակները՝ VBA կոդով օգտվողի մուտքագրման հիման վրա տվյալները զտելու համար

Այս օրինակում ես կզտեմ տվյալների տիրույթը՝ հիմնված մուտքագրված ապրանքի անվան վրա: Երբ ես մուտքագրում եմ «Hoodie», ցուցադրվում է միայն Hoodie-ի տեղեկատվությունը, և մյուս սյունակները միանգամից կթաքցվեն. և երբ ես մուտքագրում եմ «Բոլորը», բոլոր սյունակները կցուցադրվեն ստորև ներկայացված ցուցադրման տեսքով.

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

2, Բացվածքում Microsoft Visual Basic հավելվածների համար պատուհանում, պատճենեք և տեղադրեք հետևյալ VBA կոդը Թերթ (կոդ) պատուհան.

VBA կոդ. Թաքցնել կամ ցուցադրել սյունակները՝ օգտվողի մուտքագրման հիման վրա տվյալները զտելու համար

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub
ՆշումՎերոհիշյալ ծածկագրում K1 այն բջիջն է, որտեղ մուտքագրում եք կոնկրետ տեքստը, B1: H1 տողերի վերնագրերը պարունակում են ապրանքի անվանումը, որը ցանկանում եք զտել:

3. Այնուհետև փակեք ծածկագրի պատուհանը: Այժմ, եթե ապրանքի անունը մուտքագրեք K1 բջիջում, կցուցադրվեն միայն համապատասխան սյունակները, մյուսը կթաքցվի; և եթե մուտքագրեք «Բոլորը» տեքստը, բոլոր սյունակները կհայտնվեն ստորև ներկայացված ցուցադրման տեսքով.


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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