Im Folgenden sehen wir uns ein Programm in an Excel VBA das hebt die Zeile und Spalte der aktiven Zelle hervor (ausgewählte Zelle). Dieses Programm wird Ihren Chef in Erstaunen versetzen und beeindrucken.
Lage:
Jedes Mal, wenn wir die aktive Zelle in Sheet1 ändern, muss ein Makro ausgeführt werden. Sie können dies erreichen, indem Sie ein Worksheet SelectionChange-Ereignis erstellen.
1. Öffnen Sie den Visual Basic-Editor.
2. Doppelklicken Sie im Projekt-Explorer auf Sheet1 (Sheet1).
3. Wählen Sie Arbeitsblatt aus der linken Dropdown-Liste. Wählen Sie SelectionChange aus der rechten Dropdown-Liste.
Fügen Sie dem Worksheet SelectionChange-Ereignis die folgenden Codezeilen hinzu:
4. Wir deklarieren vier Variablen vom Typ Integer. Einer mit dem Namen rowNumberValue, einer mit dem Namen columnNumberValue, einer mit dem Namen i und einer mit dem Namen j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Zuerst fügen wir die Zeile hinzu, die die Hintergrundfarbe aller Zellen in 'No Fill' ändert.
Cells.Interior.ColorIndex = 0
6. Wir initialisieren die Variable rowNumberValue mit der Zeilennummer der Active Cell und die Variable columnNumberValue mit der Spaltennummer der Active Cell.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Wir markieren die Spalte blau. Das heißt: alle Zellen mit Zeilennummer kleiner oder gleich rowNumberValue und Spaltennummer gleich columnNumberValue
Für i = 1 Zu rowNumberValue
Cells(i, columnNumberValue).Interior.ColorIndex = 37
Als nächstes
Erklärung: Für dieses Beispiel (siehe Bild oben) ist rowNumberValue gleich 12 und columnNumberValue gleich 8. Die Codezeilen zwischen For und Next werden zwölfmal ausgeführt. Für i = 1 färbt Excel VBA die Zelle am Schnittpunkt von Zeile 1 und Spalte 8. Für i = 2 färbt Excel VBA die Zelle am Schnittpunkt von Zeile 2 und Spalte 8 ein usw.
Hinweis: Anstelle der ColorIndex-Nummer 37 (blau) können Sie eine beliebige ColorIndex-Nummer verwenden.
8. Auf ähnliche Weise markieren wir die Zeile blau. Das heißt: alle Zellen mit einer Zeilennummer gleich rowNumberValue und einer Spaltennummer kleiner oder gleich columnNumberValue.
Für j = 1 Bis columnNumberValue
Cells(rowNumberValue, j).Interior.ColorIndex = 37
Nächstes j
9. Jetzt ist es an der Zeit, das Programm zu testen. Laden Sie die Excel-Datei herunter und sehen Sie, wie die Zeile und Spalte der aktiven Zelle jedes Mal hervorgehoben werden, wenn Sie die aktive Zelle ändern.
