Come disattivare una riga su due con una macro
Vuoi rendere invisibile ogni secondo o ogni ennesima riga di una tabella? Puoi farlo con il comando "Nascondi". Ma se vuoi farlo per un gran numero di righe, diventa noioso.
Una macro fa il lavoro per te. Ecco il codice:
Sotto la seconda riga nascondi ()
Dim Row quanto più a lungo
Riga = 1
Mentre la linea <1000
Celle (riga, 1) .EntireRow.Hidden = True
Linea = linea + 2
Wend
Fine sottotitolo
La macro nasconde ogni altra riga nel foglio di lavoro attivo dalla riga 1 alla riga 1000. Se vuoi un ambito diverso, inserisci il limite inferiore 1 nel comando Riga = 1 e cambia il limite superiore 1000 nel comando Mentre la linea <1000. Sostituisci semplicemente 1 e 1000 con i numeri che preferisci.
Se non vuoi nascondere ogni seconda riga, puoi anche aggiungere un valore diverso per 2 al comando Linea = linea + 2 accedere. Un valore di 4 nasconde solo ogni quarta riga, un numero di 10 ogni decima riga e così via.
Per mostrare di nuovo le linee nascoste, sostituisci il comando Vero nella macro falso e riavviare la macro.
