May 2
Microsoft Excel è un foglio di calcolo popolare che fornisce strumenti utili per l'inserimento dei dati, il calcolo, grafici, tabelle pivot e altro ancora. Anche se Excel è un programma complesso, pieno di funzionalità, non dà agli utenti la possibilità di eliminare alternati righe di un foglio di calcolo per difetto. L'aggiunta di questa funzionalità richiede agli utenti di definire un'attività automatizzata chiamato una macro, quindi eseguire la macro sulle righe del foglio di calcolo che desiderano cambiare.
1 Aprire Visual Basic Editor Excel. Con il foglio di calcolo aperto in Excel, fare clic su "Strumenti" dal menu nella parte superiore dello schermo, quindi selezionare "Macro" e "Visual Basic Editor." Se si utilizza Excel 2003 o più anziani, passare alla fase successiva.
gli utenti di Excel 2007 noteranno che il comando precedente non esiste nella versione corrente di Excel, e che non strumenti di editing di macro appare per impostazione predefinita. Attivare l'accesso a questi strumenti facendo clic sul pulsante Office nell'angolo in alto a sinistra dello schermo, quindi fare clic sul pulsante "Opzioni di Excel" nella parte inferiore del menu. Individuare l'intestazione con l'etichetta "Opzioni principali per lavorare con Excel" nella finestra di dialogo risultante, quindi selezionare la casella accanto a "Mostra scheda Sviluppo sulla barra multifunzione" etichetta. Fai clic su "OK". Selezionare la scheda Sviluppo, quindi fare clic sul pulsante "Visual Basic".
2 Aggiungere codice di macro. Fai clic su "Inserisci" dal menu nella parte superiore della finestra di editor di Microsoft Visual Basic e scegliere "modulo". Copia tutto il codice elencato di seguito, poi incollarlo in questo modulo:
Delete_Every_Other_Row Sub ()
'Dimension variables.
Y = False 'Modificare questa True se si desidera
' delete rows 1, 3, 5, and so on.
I = 1
Set XRNG = Selezione
'Loop una volta per ogni riga della selezione.
Per xCounter = 1 Per xRng.Rows.Count
' If Y is True, then...
If Y = True Then
' ...delete an entire row of cells.
xRng.Cells(I).EntireRow.Delete
' Otherwise...
Else
' ...increment I by one so we can cycle through range.
I = I + 1
End If
' If Y is True, make it False; if Y is False, make it True.
Y = Not Y
Successivo xCounter
End Sub
3 Eseguire la macro. Torna al tuo foglio di calcolo senza chiudere l'editor di Visual Basic. Evidenziare le righe per le quali deve essere rimosso fila alternata. In Excel 2003 e versioni precedenti, fare clic sul menu "Strumenti", quindi selezionare "Macro", seguita dall'opzione "Macro". In Excel 2007, selezionare la scheda Sviluppo, quindi fare clic su "Macro". Per eseguire la macro in entrambe le versioni, selezionare la macro etichetta "Delete_Every_Other_Row", quindi fare clic su "Esegui". Ogni fila di numero del foglio di calcolo elimina.