Wie wählt man diagonale Zellen in Excel aus und hebt sie hervor?

In Excel müssen wir normalerweise mehrere Zellen auswählen, aber haben Sie jemals versucht, die diagonalen Zellen in einem Bereich auszuwählen und hervorzuheben? In diesem Artikel stelle ich Ihnen einen VBA-Code vor, mit dem Sie schnell diagonale Zellen auswählen können.

Diagonale Zellen auswählen und hervorheben

Diagonale Zellen auswählen und hervorheben

Um diagonale Zellen auszuwählen, können Sie einen Makro-Code verwenden.

1. Wählen Sie die Zelle aus, mit der Sie die diagonale Auswahl beginnen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Skript ein.

VBA: Diagonale Zellen auswählen

Sub selectDiag()
'UpdatebyExtendoffice20171128
    Dim I As Long
    Dim xCount As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = ActiveCell
    If xRg Is Nothing Then Exit Sub
    xCount = Val(InputBox("How many cells do you want to select diagonally?", "KuTools For Excel"))
    If xCount = 0 Then Exit Sub
    For I = 1 To (xCount - 1)
        Set xRg = Union(xRg, ActiveCell.Offset(I, I))
    Next I
    xRg.Select
End Sub

3. Drücken Sie F5 Taste und ein Dialogfenster erscheint, das Sie auffordert, Zellen auszuwählen. Geben Sie die Anzahl der diagonalen Zellen, die Sie auswählen möchten, in das Textfeld ein.

4. Klicken Sie auf OK. Die diagonalen Zellen in der Auswahl wurden ausgewählt.

Anschließend können Sie die Zellen mit einer Hintergrundfarbe hervorheben.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Verwandte Artikel

• Wie wendet man bedingte Formatierung für Werte an, die nicht zwischen zwei Zahlen liegen, in Excel?
• Wie hebt man doppelte und sich überschneidende Daten in Excel hervor?