Det är viktigt att komma ihåg att inte alla funktioner i ett Excel-ark kan användas i Visual Basic for Applications . Däremot kan den " ÄRTOM " -funktionen kan användas både som en formel i ett kalkylblad och i VBA för att tjäna samma syfte - vilket är att kontrollera om en cell är tom . Denna funktion används ofta i en slinga för att gå igenom en kolumn eller rad av celler tills du kommer till en tom cell . Instruktioner
1
Klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att öppna VB editor fönstret . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny modul
2
Skapa en sub förfarande genom att lägga till följande kod : .
Private Sub checkForBlankCell ( )
3
Skapa ett Integer variabel och ge den ett värde på 1 :
Dim x As Integer
X = 1
4
Lägg till data till de första tio raderna av A1 : .
Range ( " A1 " ) Välj
ActiveCell.FormulaR1C1 = " 1 "
Range ( " A2 " . ) Välj
ActiveCell.FormulaR1C1 = " 2 "
Range ( " A1 : A2 " . ) Välj
Destination
Selection.AutoFill : = Range ( " A1 : A10 " ) , Type : = xlFillDefault
Range ( " A1 : " . ) Välj
Range ( " . A10 A1 " ) Välj
5
Skapa en loop och kontrollera om cellen är tom genom att använda " IsEmpty " cellernas funktion och visar varje cell värdet genom direktfönstret :
göra tills IsEmpty ( ActiveCell.Value ) katalog
Range ( " A " och X ) . Välj
Debug.Print ( ActiveCell.Value ) katalog
X = X + 1
Loop
6
Avsluta proceduren genom att skriva " End Sub " och tryck på " Ctrl " och " G " för att visa Immediate fönstret . Klicka på " F5 " för att köra proceduren .
