Det er vigtigt at huske på, at ikke alle funktioner i et Excel-regneark kan bruges i Visual Basic for Applications . Dog kan " ER.TOM "-funktionen bruges både som en formel i et regneark, og i VBA til at tjene samme formål - som er at kontrollere, om en celle er tom. Denne funktion er almindeligt anvendt i en løkke til at gå gennem en kolonne eller række af celler , indtil du kommer til en tom celle. Instruktioner
1
Klik på " Udvikler " fanen og klik på " Visual Basic " for at åbne VB editor vinduet. Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte et nyt modul
2
Opret en sub procedure ved at tilføje følgende kode : .
Private Sub checkForBlankCell () < br >
3
Opret en heltalsvariabel og give det en værdi på 1:
Dim X As Integer
X = 1
4 < p > Tilføj data til de første ti rækker af A1: .
Range (" A1" ) Vælg
ActiveCell.FormulaR1C1 = "1 "
Range (" A2 " . ) Vælg
ActiveCell.FormulaR1C1 = "2 "
Range (" A1: A2 " ). Vælg
Selection.AutoFill Destination: = Range (" A1: A10 " ) , Type: = xlFillDefault
Range (" A1: " ). Vælg
Range (" . A10 A1 " ) Vælg
5
Opret en løkke og kontrollere, om cellen er tom ved at bruge " IsEmpty " celle funktion og vise hver celle værdi gennem den Immediate -vinduet : Hej
Gør Indtil IsEmpty ( ActiveCell.Value )
Range (" A" & X) . Vælg
Debug.Print ( ActiveCell.Value )
X = X + 1
Loop
6
End proceduren ved at skrive " End Sub " og tryk på " Ctrl" og "G " for at vise Immediate -vinduet. Klik på " F5 " for at køre proceduren.