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

Sut i guddio colofnau mewn amser real yn seiliedig ar fewnbwn defnyddiwr yn Excel?

Efallai ei bod yn dasg gyffredin i'r rhan fwyaf ohonom guddio colofnau yn Excel, ond, a ydych erioed wedi ceisio cuddio colofnau yn awtomatig yn seiliedig ar rai gwerthoedd mewnbwn penodol? Er enghraifft, pan fyddaf yn nodi'r testun “AA” mewn cell, mae colofn A wedi'i chuddio; pan fyddaf yn mynd i mewn i “BB”, mae colofnau B ac C wedi'u cuddio; wrth fynd i mewn i “CC”, mae colofnau D ac E wedi'u cuddio; wrth fynd i mewn i “DD”, mae'r golofn F wedi'i chuddio fel y dangosir y demo isod. Bydd yr erthygl hon yn creu cod VBA ar gyfer ei ddatrys yn Excel.

Cuddio neu ddatguddio colofnau mewn amser real yn seiliedig ar fewnbwn defnyddiwr gyda chod VBA

Cuddio neu ddatguddio colofnau i hidlo data yn seiliedig ar fewnbwn defnyddiwr gyda chod VBA


Cuddio neu ddatguddio colofnau mewn amser real yn seiliedig ar fewnbwn defnyddiwr gyda chod VBA

I guddio'r colofnau penodol mewn amser real yn seiliedig ar werthoedd mewnbwn, cymhwyswch y cod VBA isod:

1. Yn y daflen waith lle rydych chi am guddio colofnau, cliciwch ar y dde ar y tab taflen, ac yna cliciwch Gweld y Cod o'r ddewislen cyd-destun, gweler screenshot

2. Yn yr agored Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA canlynol yn y Dalen (Cod) ffenestr.

Cod VBA: Cuddio colofnau mewn amser real yn seiliedig ar fewnbwn defnyddiwr

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
Nodyn: Yn y cod uchod, K1 yw'r gell lle rydych chi'n nodi'r testun penodol, a dylech chi newid y testunau ac enwau'r colofnau i'ch angen. Yn ogystal, gallwch ychwanegu meini prawf newydd eraill dim ond trwy ychwanegu'r sgriptiau isod:
  • Achos "AA": Colofnau ("A").EntireColumn.Hidden = Gau
  • Colofnau("A").EntireColumn.Hidden = Gwir

3. Yna, caewch y ffenestr cod. Nawr, wrth fynd i mewn i “AA” yng nghell K1, a gwasgwch Rhowch allwedd, mae'r golofn A wedi'i chuddio; wrth fynd i mewn i “BB”, a gwasgwch Rhowch allweddol, mae'r golofn B a C wedi'u cuddio, ac ati. Os ydych chi'n nodi unrhyw werth arall neu'n dileu'r cynnwys, bydd y colofnau cudd yn cael eu harddangos ar unwaith, gweler y demo isod:


Cuddio neu ddatguddio colofnau i hidlo data yn seiliedig ar fewnbwn defnyddiwr gyda chod VBA

Yn yr enghraifft hon, byddaf yn mynd i hidlo ystod ddata yn seiliedig ar enw cynnyrch a gofnodwyd. Pan fyddaf yn mynd i mewn i “Hoodie”, dim ond gwybodaeth Hoodie sy'n cael ei harddangos a bydd colofnau eraill yn cael eu cuddio ar unwaith; a phan fyddaf yn mynd i mewn i “Pawb”, bydd pob colofn yn cael ei harddangos fel y dangosir y demo isod:

1. Yn y daflen waith lle rydych chi am guddio colofnau, cliciwch ar y dde ar y tab taflen, ac yna cliciwch Gweld y Cod o'r ddewislen cyd-destun, gweler y screenshot:

2. Yn yr agored Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA canlynol yn y Dalen (Cod) ffenestr.

Cod VBA: Cuddio neu ddatguddio colofnau i hidlo data yn seiliedig ar fewnbwn defnyddiwr

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
Nodyn: Yn y cod uchod, K1 yw'r gell lle rydych chi'n mewnbynnu'r testun penodol, B1: H1 yw'r penawdau rhes yn cynnwys enw'r cynnyrch yr ydych am ei hidlo.

3. Yna, caewch y ffenestr cod. Nawr, os rhowch enw'r cynnyrch i mewn i gell K1, dim ond y colofnau cyfatebol fydd yn cael eu harddangos, bydd y llall yn cael ei guddio; ac os rhowch y testun “Pawb”, bydd pob colofn yn ymddangos fel y dangosir y demo isod:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir