Ši pamoka parodys, kaip rodyti visas „Excel“ darbalapio eilutes ir (arba) stulpelius naudojant VBA.
Rodyti visas eilutes
Norėdami parodyti visas „Excel“ lapo eilutes, nustatysime Paslėptas turtas visų eilučių į FALSE.
Mes galime pasiekti visas eilutes naudodami Visos eilės nuosavybė iš Ląstelių objektas:
| 1 | Cells.EntireRow.Hidden = Netiesa |
arba naudojant Visos eilės nuosavybė iš Eilučių objektas:
| 1 | Rows.EntireRow.Hidden = Netiesa |
Rodyti visus stulpelius
Panašiai galime parodyti visus „Excel“ lapo stulpelius, pakoreguodami Paslėptas turtas visų stulpelių.
Visus stulpelius galite pasiekti naudodami Visa stulpelio nuosavybė iš Ląstelių objektas:
| 1 | Cells.EntireColumn.Hidden = Netiesa |
arba naudojant Visa stulpelio nuosavybė iš Stulpeliai Objektas:
| 1 | Columns.EntireColumn.Hidden = Netiesa |
Slėpti visas eilutes ar stulpelius
Žinoma, norėdami paslėpti visas eilutes ar stulpelius, tiesiog nustatykite Paslėptas turtas į TIESA:
| 1 | Columns.EntireColumn.Hidden = Tiesa |
Makrokomandos, kad būtų rodomos visos eilutės ir stulpeliai
Naudokite šią makrokomandą, kad būtų rodomos visos darbalapio eilutės ir stulpeliai:
| 1234 | Subparodyti_visus_eilius_stulpelius ()Columns.EntireColumn.Hidden = NetiesaRows.EntireRow.Hidden = NetiesaPabaiga Sub |
Makrokomanda, kad būtų rodomos visos eilutės ir stulpeliai visuose skaičiuoklėse
Ši makrokomanda parodys visas eilutes ir stulpelius visuose „Excel“ darbaknygės lapuose:
| 12345678 | Antraštė Unhide_All_Rows_Columns_in_Workbook ()Dim ws kaip darbalapisUž kiekvieną ws darbalapiuoseColumns.EntireColumn.Hidden = NetiesaRows.EntireRow.Hidden = NetiesaKitas wsPabaiga Sub |
