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

Sut i guddio neu guddio colofnau yn seiliedig ar y rhestr ostwng yn Excel?

Wrth ddefnyddio Excel, gallwch guddio neu guddio colofnau penodol yn seiliedig ar ddewis rhestr ostwng. Er enghraifft, os dewiswch Na yn y rhestr ostwng, bydd colofn C i I yn gudd, ond os dewiswch Ie, bydd y colofnau cudd C i I yn gudd. Gweler isod screenshot a ddangosir.
Yn yr erthygl hon, byddwn yn dangos dull VBA i chi guddio neu guddio colofnau yn seiliedig ar y rhestr ostwng yn Excel.

Cuddio neu guddio colofnau yn seiliedig ar y gwymplen dewis yn Excel


Cuddio neu guddio colofnau yn seiliedig ar y gwymplen dewis yn Excel

Fel y soniwyd uchod, er mwyn cuddio neu ddadorchuddio colofnau C i I yn seiliedig ar y gwymplen, gwnewch fel a ganlyn.

1. Yn gyntaf, crëwch eich rhestr ostwng gyda Ie a Na sydd ei hangen arnoch chi.

2. Yna pwyswch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.

3. Cliciwch ddwywaith ar enw'r ddalen agored gyfredol yn y Prosiect VBA adran i agor golygydd y Cod.

4. Yna copïwch a gludwch islaw cod VBA i mewn i olygydd y Cod.

Cod VBA: cuddio neu guddio colofnau yn seiliedig ar y gwymplen

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
    If Target.Column = 2 And Target.Row = 3 Then
        If Target.Value = "No" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

Nodyn: Yn y cod uchod, Colofn = 2 a Row = 3 yw cyfeirnod celloedd y gwymplen, a'r amrediad C: I yw'r colofnau rydych chi am eu cuddio neu eu cuddio, newidiwch nhw i'ch angen.

5. Gwasgwch Alt + Q allweddi ar yr un pryd i adael y Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.

O hyn ymlaen, pan ddewiswch Na yn y gwymplen, mae'r holl golofnau penodedig wedi'u cuddio.

Ond os dewiswch Ydw yn y gwymplen, mae'r holl golofnau cudd yn cael eu harddangos ar unwaith.


Erthyglau cysylltiedig:


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 (76)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gen i lyfr gwaith ac yn ceisio cael fy mhen o gwmpas cod VBA. Mae gen i god os ydw i'n dewis o gwymplen1 mae'n datguddio taflen waith. Rwy'n edrych am god rwy'n dewis tudalen 1 ac yn dewis ystod o 3-5 o gwymplen mae'n datguddio taflen waith ac yn datguddio 5 colofn yn y daflen waith heb ei chuddio. Ydy hynny'n ymarferol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cael cod gwall pan fyddwch yn dileu'r rhif mewnbwn, a allaf gael help gyda hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi addasu'r cod fel hyn



Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)


Os Target.Column = 3 A Target.Row = 2 A Target.Value = "Na"

yna


Cais.Rows("3:90").Dewiswch


Application.Selection.EntireRow.Hidden = Gwir


arall


Cais.Rows("3:90").Dewiswch


Application.Selection.EntireRow.Hidden = Gau


Gorffennwch Os


Is-End




Ond y broblem sydd yn fy wynebu yw methu ag ateb ie na : gan fod yr holl resi 3 i 90 yn cael eu dewis heb adael i mi ateb y cwestiynau nesaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl harikumar,

Mae'r cod a ddarparwyd gennych yn gweithio'n dda i mi. Wrth ddewis Na o'r gwymplen (sy'n lleoli yng nghell C2), mae rhes 3:90 yn cael eu cuddio ar unwaith. A bydd dewis Ie o'r gwymplen yn eu datguddio i gyd ar unwaith. Mae'n ddrwg gennyf, nid wyf yn cael pwynt yr hyn a ddywedasoch am fethu ag ateb y cwestiwn ie na.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am yr erthygl ddefnyddiol.


Hoffwn fynd â’r macro hwn gam ymhellach: mae angen hyn yn union arnaf, ond gyda’r cafeat nad yw’r colofnau y mae angen imi eu cuddio o reidrwydd mewn amrediad cyffiniol a gellir eu hadnabod gan res benodol o fewn pob colofn.

Yr hyn sydd gennyf mewn golwg yw rhywbeth fel hyn:
os refcell = "a", yna cuddiwch bob colofn ag "a" yn rhes 7, fel arall
os refcell = "b", yna cuddiwch bob colofn gyda "b" yn rhes 7, fel arall
os refcell = "c", yna cuddiwch bob colofn gyda "c" yn rhes 7 arall
dangos pob colofn

Os yw hyn yn bosibl, sut fyddai'r cod VBA yn edrych?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hei! A wnaethoch chi ddod o hyd i ateb ar gyfer hyn? Chwilio am yr un peth :D
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl John,
Gall y cod VBA canlynol eich helpu i ddatrys y broblem. Wrth fynd i mewn i "a" yng nghell A1, bydd pob colofn ag "a" yn rhes 7 yn cael ei chuddio'n awtomatig. Mae hefyd yn gweithio wrth fynd i mewn i b ac c yng nghell A1.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Dim xRgFind As Range
Dim xRgUni Fel Ystod
Dim xFirstAddress Fel Llinynnol
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Rhesi(7).EntireColumn.Hidden = Gau
Os yw Target.Address = Ystod ("A1").Cyfeiriad Yna
Gosod xRg = Croestorri(ActiveSheet.UsedRange, Rhesi(7))
Gosod xRgFind = xRg.Find(Target.Value, , xlValues, xlWhole, , , Gwir)
Os Nid yw xRgFind Yn Dim Yna
xFirstAddress = xRgFind.Address
Do
Gosod xRgFind = xRg.FindNext(xRgFind)
Os yw xRgUni Yn Dim Yna
Gosod xRgUni = xRgFind
arall
Gosod xRgUni = Application.Union(xRgUni, xRgFind)
Gorffennwch Os
Dolen Tra (Nid yw xRgFind yn Dim) A (xRgFind.Address <> xFirstAddress)
Gorffennwch Os
xRgUni.EntireColumn.Hidden = Gwir
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Ryan,
Rhowch gynnig ar y cod VBA canlynol. Wrth fynd i mewn i "a" yng nghell A1, bydd pob colofn ag "a" yn rhes 7 yn cael ei chuddio'n awtomatig. Mae hefyd yn gweithio wrth fynd i mewn i b ac c yng nghell A1.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Dim xRgFind As Range
Dim xRgUni Fel Ystod
Dim xFirstAddress Fel Llinynnol
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Rhesi(7).EntireColumn.Hidden = Gau
Os yw Target.Address = Ystod ("A1").Cyfeiriad Yna
Gosod xRg = Croestorri(ActiveSheet.UsedRange, Rhesi(7))
Gosod xRgFind = xRg.Find(Target.Value, , xlValues, xlWhole, , , Gwir)
Os Nid yw xRgFind Yn Dim Yna
xFirstAddress = xRgFind.Address
Do
Gosod xRgFind = xRg.FindNext(xRgFind)
Os yw xRgUni Yn Dim Yna
Gosod xRgUni = xRgFind
arall
Gosod xRgUni = Application.Union(xRgUni, xRgFind)
Gorffennwch Os
Dolen Tra (Nid yw xRgFind yn Dim) A (xRgFind.Address <> xFirstAddress)
Gorffennwch Os
xRgUni.EntireColumn.Hidden = Gwir
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,
Rwy'n newydd i hyn. Ni allaf ddweud o'ch cod sut rydych chi'n diffinio a, b, ac c fel gwerthoedd yng nghell A1. Yn y bôn, beth i'w wneud yr hyn y mae eich cod yn ei wneud, ond mae angen gwerth A1 arnaf (neu unrhyw gell arall yr wyf am ei ddefnyddio) i fod yn llinyn.
enghraifft:
Mae gen i dabl (ystod o gelloedd) sy'n cynnwys 1 o 3 gwerth yn Rhes 3. Y gwerthoedd yw ("Actif", "Anweithredol", a "Ar gau". Hoffwn i bob colofn sydd ag "Anweithredol" neu "Ar gau " yn Rhes 3 i'w guddio. Daw'r gwerth yn Rhes 3 o ffwythiant MYNEGAI/MATCH sy'n tynnu o ddalen arall yn fy llyfr gwaith. Yn y ddalen arall rwy'n dewis 1 o'r 3 gwerth o gwymplen.

Sut byddwn i'n addasu'r cod hwn i chwilio am "Anweithredol" neu "Ar Gau" yn Rhes 3, a dim ond cuddio'r colofnau hynny?


Diolch yn fawr ymlaen llaw!

Eddie
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Eddie,
Mae'n ddrwg gennyf ni allaf helpu gyda hyn. Gallwch bostio eich cwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html i gael mwy o gefnogaeth gan ein gweithiwr Excel proffesiynol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi ddefnyddio hwn ar gyfer Cuddio 14 colofn bob yn ail yn seiliedig ar werth cell.
ee - Os yw A1 = CAT, yna cuddiwch y colofnau J i V

Os yw A1 = BAT, Yna cuddiwch golofnau I a K i V

Os yw A1 = HAT, Yna cuddiwch golofnau I, J, ac L i P

Yn y bôn, mae fy nata mewn colofnau I til V ac mae angen colofnau cuddio o'r ystod hon ac eithrio'r un a ddewiswyd yn y gell gyfeirio. a datguddio popeth os dewisir "Pawb" yn y gell cyfeirio.

Ceisiais ddefnyddio'r un fformiwla uchod mewn dolen ond rwy'n cael "gwall llunio - " A oes fformiwla wahanol y mae angen i mi ei defnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Ruchi,
Mae'n ddrwg gennyf, nid wyf yn cael eich pwynt o “Yn y bôn, mae fy nata mewn colofnau I tan V ac mae angen colofnau cuddio o'r ystod hon arnaf ac eithrio'r un a ddewiswyd yn y gell gyfeirio. a datguddio popeth os dewisir "Pawb" yn y gell gyfeirio."
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gall unrhyw un helpu:


Os byddaf yn rhoi gwerth i gell A1 fel "Na", rwyf am i golofnau D:E guddio. ac os ydw i'n nodi gwerth fel "Ie", rydw i eisiau i golofnau D:E ddatguddio a cholofnau F: G i'w cuddio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Anish,
Gall y cod VBA hwn eich helpu chi. Rhowch gynnig arni. Diolch i chi am eich sylw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Gosod xRg = Ystod ("A1")
Os xRg.Address = Target.Address And Target.Value = "Na" Yna
Colofnau("D:E").EntireColumn.Hidden = Gwir
ElseIf xRg.Address = Target.Address And Target.Value = "Ie" Yna
Colofnau("D:E").EntireColumn.Hidden = Gau
Colofnau("F:G").EntireColumn.Hidden = Gwir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi angen cymorth gyda macro excel neu fformiwla. All unrhyw un helpu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen cymorth arnaf gyda macro tebyg ond ar gyfer ystodau celloedd penodol, nid colofn gyfan. A ellir gwneud hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Kara,
Ydych chi'n golygu "cuddio cynnwys ystodau celloedd penodedig yn seiliedig ar werth celloedd"? Postiwch eich cwestiwn gyda manylion er mwyn ein helpu i ddatrys y broblem.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo yno! Mae gennyf ddetholiad o 10 eitem ac rwy'n ceisio dangos rhesi 57 i 72 dim ond pan fyddaf yn dewis un ohonynt. Rwy'n defnyddio'r cod canlynol ond rywsut nid yw'n gweithio ac nid yw fy dangosfwrdd yn newid o gwbl. Fodd bynnag, pan fyddaf yn rhoi rhywbeth i mewn i gell ar hap, mae'r dudalen yn ail-lwytho ac yn cuddio rhesi 57:72. Ond wedyn, mae'n aros yr un peth ar draws fy holl ddetholiadau ac ni allaf ei guddio eto trwy'r dewis blwch gollwng. A gaf i wybod a oes gan unrhyw un awgrym arall? Diolch ymlaen llaw!


Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

Os Target.Column = 2 A Target.Row = 3 A Target.Value = "1"

Yna Application.Rows("57:72").Select Application.Selection.EntireRow.Hidden = Gau

Cais Arall.Rows("57:72").Dewis Cais.Selection.EntireRow.Hidden = Gwir

Gorffennwch Os

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Diolch am y cod, os ydw i am ychwanegu trydydd opsiwn beth yw'r gystrawen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Addasais y cod hwn i guddio rhesi yn lle colofnau, ac mae'n gweithio ond gydag un broblem fach. Mae gen i nifer o restrau dilysu data ar yr un daflen waith, a phan fyddaf yn dewis gwerth o'r rhestrau eraill hyn, mae'n ymddangos bod yr holl resi a nodir yn fy nghod yn cuddio'n awtomatig hyd yn oed os yw gwerth y gell darged wedi'i osod i 'Na'. Pam mae hyn yn digwydd a sut gallaf ei drwsio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Janice,
Mae'n ddrwg gennym am y camgymeriad, rhowch gynnig ar y cod newydd isod. Diolch am eich sylw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os yw Target.Column = 2 A Target.Row = 3 Yna
If Target.Value = "Na" Yna
Application.Columns("C:I").Dewiswch
Application.Selection.EntireColumn.Hidden = Gwir
ElseIf Target.Value = "Ie" Yna
Application.Columns("C:I").Dewiswch
Application.Selection.EntireColumn.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'n union beth sydd angen i mi ei wneud, ond nid wyf am i'r golofn gael ei hamlygu pan fyddaf yn cuddio/datguddio. Sut alla i gynnwys y cod i fynd i'r gell nesaf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am yr erthygl ddefnyddiol. Hoffwn fynd â'r macro hwn gam ymhellach: mae angen hyn yn union arnaf, ond nid yw'r colofnau y mae angen i mi eu cuddio / eu cuddio o reidrwydd mewn ystod barhaus. Mae fy ngholofnau'n amrywio o C i CC. Yr hyn yr wyf ei eisiau yw os byddaf yn dewis Gwerth Targed 1, mae'n cuddio AH i NC, ac yn datguddio C i AG, a phan fyddaf yn dewis Gwerth Targed 2, mae'n cuddio C i AG a hefyd BJ i NC, ac yn datguddio AH i BI ac ati. yn amodol ar y Gwerth Targed.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn y bôn, mae angen i mi wybod sut i gyfeirio at ystodau lluosog ar y tro. Ceisiais ond mae'n rhoi gwall. Dyma olwg
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os yw Target.Column = 2 A Target.Row = 4 Yna
If Target.Value = "Ionawr" Yna
Application.Columns("AH:NC").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
ElseIf Target.Value = " Ionawr " Yna
Application.Columns("C:AG").Dewis
Application.Selection.EntireColumn.Hidden = Gau

ElseIf Target.Value = "Chwefror" Yna
Application.Columns("C:AG, BJ:NC").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
ElseIf Target.Value = " Chwefror " Yna
Cais.Colofnau("AH:BI").Dewis
Application.Selection.EntireColumn.Hidden = Gau

Gorffennwch Os
Gorffennwch Os
Is-End

Nodyn: Mae'n gweithio i Target.Value = " Ionawr ", ond ar gyfer Target.Value = "Chwefror" mae'n amlygu gwall ar y llinell hon => Application.Columns("C:AG, BJ:NC").Select

Ar ben hynny, unwaith y bydd yn cuddio ar ddewis gwerth targed, nid yw'n cuddio ar ddewis rhyw werth targed arall
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Maria,
Mae eich cod wedi'i optimeiddio. Rhowch gynnig arni. Gobeithio y gallaf helpu.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRG Fel Ystod
Dim xHRow Fel Cyfanrif
Gosod xRG = Ystod ("B4")
Os Nid yw Croestorri (Targed, xRG) Yn Dim Yna
If Target.Value = "Ionawr" Yna
Application.Columns("AH:NC").Cudd = Gwir
Application.Columns("C:AG").Cudd = Gau
ElseIf Target.Value = "Chwefror" Yna
Application.Columns("C:AG").Cudd = Gwir
Application.Columns("BJ:NC").Cudd = Gwir
Application.Columns("AH:BI").Cudd = Gau
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae fy nghwymplen ar gell B23. Os ydw, dangoswch ac os na, cuddiwch rhes 29. Dyma'r cod rydw i'n ei ddefnyddio:

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
'Diweddarwyd gan Extendoffice 20180822
Os yw Target.Column = 2 A Target.Row = 23 Yna
Os Target.Value = "na" Yna
Cais.Row(29).Dewiswch
Application.Selection.EntireRow.Hidden = Gwir
ElseIf Target.Value = "ie" Yna
Cais.Row(29).Dewiswch
Application.Selection.EntireRow.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End

Ond mae gwall amser rhedeg 438 yn fy marn i - Nid yw Gwrthrych yn cefnogi'r eiddo neu'r dull hwn. Pam? A yw'n rhywbeth o'i le yn y cod uchod?

Diolch ymlaen llaw am y cymorth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Guinther,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Rhowch gynnig arni. Diolch i chi am eich sylw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRG Fel Ystod
Dim xHRow Fel Cyfanrif
Gosod xRG = Ystod ("B23")
xHRow=29
Os Nid yw Croestorri (Targed, xRG) Yn Dim Yna
If Target.Value = "Na" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gwir
ElseIf Target.Value = "Ie" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,


Rwy'n gobeithio y gallech chi fy helpu i guddio / dangos rhesi lluosog. Hoffwn ddangos rhesi 63-73 pan fydd OES yn cael ei ddewis yng nghell D51. Rwy'n defnyddio'r canlynol -


Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRG Fel Ystod
Dim xHRow Fel Cyfanrif
Gosod xRG = Ystod ("D51")
xHRow = ( "63:73")
Os Nid yw Croestorri (Targed, xRG) Yn Dim Yna
If Target.Value = "Na" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gwir
ElseIf Target.Value = "Ie" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End



Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Gab,
Cymhwyswch y cod VBA isod. Diolch i chi am eich sylw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRG Fel Ystod
Dim xHRow Fel Llinyn
Gosod xRG = Ystod ("D51")
xHRow="63:73"
Os Nid yw Croestorri (Targed, xRG) Yn Dim Yna
If Target.Value = "Na" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gwir
ElseIf Target.Value = "Ie" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod a roddir i guddio/datguddio colofnau yn seiliedig ar werth a ddewiswyd o gwymplen colofn arall yn gweithio'n wych. Diolch. Ond dim ond ar gyfer yr un rhes y mae'n gweithio.
Sut i gymhwyso hyn ar gyfer gweddill y nifer o resi a ddewiswyd yn y daenlen. Rwy'n deall efallai y bydd yn rhaid i ni ddiffinio newidyn ar gyfer rhif y rhes ac mewn cynyddiad dolen hynny. Ond ni wn y gystrawen ar ei gyfer. A all rhywun helpu gyda hynny os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Rhowch gynnig ar y cod VBA isod. Gobeithio y gall helpu.
Newidiwch yr ystod yn ôl yr angen.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRG Fel Ystod
Gosod xRG = Ystod ("B3: B30")
Os Nid yw Croestorri (Targed, xRG) Yn Dim Yna
If Target.Value = "Na" Yna
Application.Columns("C:I").Dewiswch
Application.Selection.EntireColumn.Hidden = Gwir
ElseIf Target.Value = "Ie" Yna
Application.Columns("C:I").Dewiswch
Application.Selection.EntireColumn.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Defnyddiais y cod ac mae'n gweithio'n wych, ond pan fyddaf yn teipio i mewn i gell isod ac yn pwyso enter bydd yn symud y cyrchwr yn ôl i'r blwch targed yn awtomatig. A oes ffordd o weithio o gwmpas hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Grant,
Ceisiais fel y soniasoch, ond ni chefais yr un broblem. A allwch chi ddweud wrthyf eich fersiwn Excel? Diolch am roi sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae pob colofn yn fyfyriwr gwahanol (2 yn yr enghraifft hon A a B). Mae gen i ddau gwymplen (ar A1 a B1). Mae pob un wedi "Pasiwyd" "Methu" a "Dewis Un" fel opsiwn. Nawr, llwyddais i wneud iddo weithio wrth ddewis un gwymplen yn unig (naill ai A1 neu B1). Rwyf am allu datguddio'r meysydd a guddiwyd gan A1 pryd bynnag y byddaf yn dewis rhywbeth ar B1. Y nod yw dewis opsiwn ar A1 a llenwi'r rhesi sydd ar ôl. Yna dewiswch B1 a llenwch pa bynnag resi sydd ar ôl (Waeth beth fo'r dewis A1.

Diolch yn fawr!

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

Os yw Croestorri (Targed, Ystod ("A1:B2")) Yn Dim Neu'n Darged.Celloedd.Cyfrif > 1 Yna
Is Allanfa

Ystod ElseIf("A1").Value = "Dewis Un" Yna
Rhesi ("2:15").EntireRow.Hidden = Gau

Ystod ElseIf("A1").Value = "Pasiwyd" Yna
Rhesi("7").EntireRow.Hidden = Gau
Rhesi("8:15").EntireRow.Hidden = Gwir

Ystod ElseIf("A1").Value = "Methu" Yna
Rhesi("7").EntireRow.Hidden = Gwir
Rhesi ("8:15").EntireRow.Hidden = Gau

Ystod ElseIf("B1").Value = "Dewis Un" Yna
Rhesi ("2:15").EntireRow.Hidden = Gau

Ystod ElseIf("B1").Value = "Pasiwyd" Yna
Rhesi("7").EntireRow.Hidden = Gau
Rhesi("8:15").EntireRow.Hidden = Gwir

Ystod ElseIf("B1").Value = "Methu" Yna
Rhesi("7").EntireRow.Hidden = Gwir
Rhesi ("8:15").EntireRow.Hidden = Gau

Gorffennwch Os

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael gwall yn xHRow = (14:24")

Rwy'n ceisio cuddio neu ddangos rhesi lluosog yn dibynnu ar fy newis C4. Allwch chi helpu gyda'r hyn sydd gen i o'i le?

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRG Fel Ystod
Dim xHRow Fel Ystod
Gosod xRG = Ystod ("C4")
xHRow = ( "14:24")
Os Nid yw Croestorri (Targed, xRG) Yn Dim Yna
If Target.Value = "Tynnu" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gwir
ElseIf Target.Value = "Amnewid" Yna
Cais.Rows(xHRow).Dewiswch
Application.Selection.EntireRow.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y gwall yw: Gwall amser rhedeg '91':
Newidyn gwrthrych neu gyda newidyn bloc heb ei osod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi angen help. Pam pan wnes i gopïo'r fformiwla honno i'm VBA eisoes, a cheisio ei chwarae, mae'r tabl cyfan wedi'i guddio nid dim ond colofn rannol yr wyf am ei guddio?
Diolch yn fawr iawn am eich cymorth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Reza G.
Mae'r cod yn gweithio'n dda yn fy achos i. Ydych chi'n meindio atodi sgrinlun o'ch ystod tabl a'r cod VBA ar ôl newid? Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour, j'ai le même problème...

Addasiad cod llais VBA :

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
If Target.Column = 3 A Target.Row = 3 A Target.Value = "Cestion" Yna
Application.Columns("D:E").Dewis
Application.Selection.EntireColumn.Hidden = Gwir

arall

If Target.Value = "Affaire nouvelle" Yna
Application.Columns("D:E").Dewis
Application.Selection.EntireColumn.Hidden = Gau

arall

If Target.Value = "Avenant" Yna
Application.Columns("D:E").Dewis
Application.Selection.EntireColumn.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cod i weithio'n wych. Diolch. Ond pan ddewisais o'r gwymplen mae'n weithredol i'r cod diwethaf neu'n symud i ddata'r golofn olaf. Sut i ddewis cwymplen bob tro(Colofn = 13 A Target.Row = 3 wedyn) ddim yn symud a gall gofnodi data colofn nesaf ?
Diolch yn fawr.
Enghraifft: Is-daflen Waith Breifat_Newid (Targed ByVal Fel Ystod)
'Diweddarwyd gan Extendoffice 20180822
' Os Target.Column = 13 A Target.Row = 3 Yna
Os Targed.Column = 13 Yna
Os Target.Value = "1: Ydw" Yna
Application.Columns("N:O").Dewis
Application.Selection.EntireColumn.Hidden = Gau
Application.Columns("P:S").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
Application.Columns("V:Z").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
Application.Columns("X:Z").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
Application.Columns("AB:AK").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
Application.Columns("AL").Dewis
Application.Selection.EntireColumn.Hidden = Gau
Application.Columns("AC").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
ElseIf Target.Value = "2: Na" Yna
Application.Columns("N").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
Application.Columns("O:Z").Dewis
Application.Selection.EntireColumn.Hidden = Gau
Application.Columns("AB:AK").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
Application.Columns("AL").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
Application.Columns("AC").Dewis
Application.Selection.EntireColumn.Hidden = Gau
ElseIf Target.Value = "" Yna
Application.Columns("N:AN").Dewis
Application.Selection.EntireColumn.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
' Os Target.Column = 16 A Target.Row = 3 Yna
Os Targed.Column = 16 Yna
If Target.Value = "Cat" Yna
Application.Columns("V:W").Dewis
Application.Selection.EntireColumn.Hidden = Gwir
ElseIf Target.Value = "Ci" Yna
Application.Columns("V:W").Dewis
Application.Selection.EntireColumn.Hidden = Gau
Gorffennwch Os
Gorffennwch Os
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir