|
Il est important de garder à l'esprit que toutes les fonctions dans une feuille de calcul Excel peuvent être utilisés dans Visual Basic pour applications. Toutefois, la fonction " isblank " peut être utilisé à la fois comme une formule dans une feuille de calcul et en VBA pour servir le même but - qui est de vérifier si une cellule est vide. Cette fonction est couramment utilisé dans une boucle pour parcourir une colonne ou rangée de cellules jusqu'à ce que vous arrivez à une cellule vide. Instructions
1 Cliquez sur l'onglet « Développeur » et cliquez sur " Visual Basic " pour ouvrir la fenêtre de l'éditeur VB . Cliquez sur le menu "Insertion " et cliquez sur "Module " pour insérer un nouveau module
2 Créer une sous-procédure en ajoutant le code suivant : .
Private Sub checkForBlankCell () < br >
3 Créer une variable Integer et donnez-lui la valeur 1 :
Dim X As Integer
X = 1
4 < p> Ajouter des données aux dix premiers rangs de A1: .
Range (" A1") Sélectionnez
ActiveCell.FormulaR1C1 = "1"
Range (" A2 " . ) Sélectionner
ActiveCell.FormulaR1C1 = "2"
Range (" A1: A2 " ). Sélectionnez
Selection.AutoFill Destination: = Range (" A1 : A10 ») , Type: = xlFillDefault
Range (" A1: " ). Sélectionnez
Range (" . A10 A1 ") Sélectionnez
5 créer une boucle et vérifier si la cellule est vide à l'aide de la fonction de la cellule " EstVide " et afficher la valeur de chaque cellule par la fenêtre immédiate:
Do Until EstVide ( ActiveCell.Value )
Range (" A" et X). Sélectionnez
Debug.Print ( ActiveCell.Value )
X = X + 1
boucle
6 Fin de la procédure en tapant "End Sub " et appuyez sur " Ctrl" et " G " pour afficher la fenêtre Exécution. Cliquez sur " F5" pour exécuter la procédure .
|
