Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

Conas sraitheanna nó colúin shonraithe a cheilt nó a cheilt nuair a dhéantar cill a chliceáil faoi dhó in Excel?

De ghnáth, is féidir sraitheanna agus colúin a chur i bhfolach nó a thaispeáint trí chliceáil ar dheis agus an rogha Folaigh nó Unhide a roghnú ón roghchlár comhthéacs. San Airteagal seo, táimid ag caint faoi shraitheanna nó cholúin shonraithe a cheilt nó a thaispeáint go tapa trí chill a chliceáil faoi dhó in Excel.

Folaigh nó folaigh sraitheanna nó colúin shonraithe agus tú ag cliceáil dúbailte ar chill le cód VBA

Cluaisín Oifige Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed in Oifig, agus Déan Do Obair i bhfad Níos Éasca ...
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
  • Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
  • Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
  • Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
  • Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
  • Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
  • Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
  • Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2019 agus 365; Tacaíochtaí le gach teanga; Imscaradh éasca i d’fhiontar nó d’eagraíocht.

Folaigh nó folaigh sraitheanna nó colúin shonraithe agus tú ag cliceáil dúbailte ar chill le cód VBA


Is féidir leis na cóid VBA seo a leanas cabhrú leat sraitheanna nó colúin shonraithe a cheilt nó a cheilt i mbileog oibre trí chliceáil faoi dhó ar chill áirithe. Déan mar a leanas le do thoil.

1. Oscail an bhileog oibre a theastaíonn uait sraitheanna nó colúin a cheilt istigh. Cliceáil ar dheis ar an táb bileog agus ansin cliceáil Féach an cód ón roghchlár comhthéacs.

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil an cód VBA seo isteach i bhfuinneog an Chóid.

VBA: Folaigh / folaigh sraitheanna sonraithe trí chealla a chliceáil faoi dhó sa bhileog oibre:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA: Folaigh / folaigh colúin shonraithe trí chealla a chliceáil faoi dhó sa bhileog oibre:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

nótaí: Sa chód, A1: A4, 10: 13 agus D: E. tabhair le fios, nuair a chliceálfar faoi dhó ar aon chill den raon A1: A4, go mbeidh an tsraith 10:13 nó colún D: E i bhfolach go huathoibríoch.

3. Brúigh an Eile + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, nuair a chliceálfar faoi dhó aon chill i raon A1: A4, beidh sraith 10:13 nó colún D: E i bhfolach go huathoibríoch. Agus cliceáil faoi dhó ar an gcillín arís chun na sraitheanna nó na colúin fholaithe uile a thaispeáint láithreach.


Airteagail ghaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Donzel Paul · 1 months ago
    This helped a lot but i'm trying to do this but everything starts hidden and hide and unhide isolated cells rather than a range? thanks!
  • To post as a guest, your comment is unpublished.
    Donzel Paul · 1 months ago
    how do you do this but everything starts hidden and how do you hide and unhide isolated cells rather than a range?
  • To post as a guest, your comment is unpublished.
    mjoakim · 8 months ago
    This is very cool and extremely helpful. However, I want to repeat the same code for different sets of rows to hide when clicking on different cells. How can I use the same code multiple times in one sheet so that the code name is not the same? Thank you!
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi,
      If you want to hide different sets of rows when clicking on different cells, please try to modify the cells and row numbers in below code.
      The below code can achieve: when double clicking A1, the row "10:13" will be hidden; when double clicking A2, the row "15:20" will be hidden, and double clicking A3 will hide row "22:23".
      If you want to add more conditions, please copy the code lines from If to End If and modify the cells and row numbers as you need.
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Updateby20210409 Dim xRgHidden As Range If (Not Intersect(Target, Range("A1")) Is Nothing) And (Target.Count = 1) Then Set xRgHidden = Range("10:13") xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden End If If (Not Intersect(Target, Range("A2")) Is Nothing) And (Target.Count = 1) Then Set xRgHidden = Range("15:20") xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden End If If (Not Intersect(Target, Range("A3")) Is Nothing) And (Target.Count = 1) Then Set xRgHidden = Range("22:23") xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden End If End Sub
      • To post as a guest, your comment is unpublished.
        via · 3 months ago
        This is so helpful! I'm wondering if their is anyway to be able to add additional 'hidden' rows over time without having to shift all the numbers in the code to make everything line up properly? Thanks so much!