Fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per aprire la finestra di editor di VB . Fai clic sul menu "Inserisci" e fare clic su "Modulo " per inserire un nuovo modulo
2
Creare una procedura sub aggiungendo il seguente codice : .
Private Sub checkForBlankCell ( )
3
Creare una variabile Integer e dargli un valore di 1 :
Dim X As Integer
X = 1
4
Aggiungi dati per le prime dieci righe di A1 : .
Range (" A1 ") Selezionare
ActiveCell.FormulaR1C1 = " 1 "
Range (" A2 " . ) Selezionare
ActiveCell.FormulaR1C1 = " 2"
Range (" A1 : A2" . ) Selezionare
Selection.AutoFill Destinazione : = Range (" A1 : A10 " ) , Type : = xlFillDefault
Range (" A1 : " . ) Selezionare
Range (" . A10 A1 ") Selezionare
5
creare un ciclo e verificare se la cella è vuota , utilizzando la funzione delle cellule " IsEmpty " e visualizzare ogni valore della cella attraverso la finestra immediata :
Do Until IsEmpty ( ActiveCell.Value ) per
Range ( " A" & X ) . Scegli
Debug.Print ( ActiveCell.Value ) per
X = X + 1
loop
6
Fine della procedura digitando "End Sub " e premere " Ctrl " e "G" per visualizzare la finestra immediata. Fare clic su "F5" per eseguire la procedura .
software © www.354353.com