Schaltfläche zum Färben bestimmter Zahlen in der Excel-Tabelle

Problem

Ich suche nach einer Möglichkeit, eine Schaltfläche so zu färben, dass alle Zahlen der Zahl auf der Schaltfläche entsprechen. Nehmen wir als Beispiel an, ich habe eine Reihe von Schaltflächen von 1 bis 10 und in denselben Blattzellen die Zahlen von 1 bis 10 in keiner Reihenfolge. Ich möchte jetzt schnell alle 3er und 7er anhand der Farbe identifizieren können. "Einfach: Taste 3 anklicken, Aktion: Alle Zellen mit der Nummer 3 einfärben und so lange warten, bis ich die Taste erneut drücke ...

Lösung

Ich gebe eine andere Lösung, drucke diese Anleitung aus und folge (vorausgesetzt es passt zu dir)

ÖFFNEN SIE EINE NEUE EXCEL-DATEI

Kopieren Sie dieses Makro jetzt in den VB-Editor

 Untertest () Dim x As Integer, cfind () As Range, j As Integer, k Fügen Sie als Ganzzahl As String Columns ("A: A") hinzu. Interior.ColorIndex = xlNone x = Range ("F1"). Value j = WorksheetFunction.CountIf (Spalten ("A: A"), x) Wenn j = 0, dann MsgBox "ist kein solcher Wert in Spalte A verfügbar" Exit Sub End If ReDim cfind (1 To j) Für k = 1 To j Setzen Sie cfind (k) = Columns ("A: A"). Cells.Find (what: = x, lookat: = xlWhole). Cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Set cfind (k) = Spalten ("A: A"). Cells.FindNext (cfind (k)) Wenn cfind (k) nichts ist, dann beende Do If cfind (k) .Address = add Then Exit Do cfind (k) .Interior .ColorIndex = 3 Loop Next k End Sub

Klicken Sie auf Ansicht Menü-Symbolleisten-Formular

In der Liste der Formularsymbolleisten befindet sich eine, die als Drehfeld bezeichnet wird

Klicken Sie darauf und zeichnen Sie einen Drehknopf

Rechtsklicke auf die Schaltfläche und klicke auf "Formatkontrolle"

In diesem Fenster wählen Sie die Steuerung (das letzte Element in der oberen Reihe)

Typ 1 gegen "Minimalwert"

Typ 10 gegen "Maximalwert"

"Inkrementelle Änderung" ist 1

Die Zellenverbindung wird $ F $ 1 sein

OK klicken

Klicken Sie erneut mit der rechten Maustaste auf den Drehknopf und klicken Sie auf "Makro zuweisen". Der Name "Test" wird angezeigt. Markieren Sie dies und klicken Sie auf OK. Angenommen, die Zahlen befinden sich in Spalte A, um zu testen, ob Ganzzahlen zwischen 1 und 10 (einige werden zweimal oder dreimal wiederholt, einige fehlen) von A1 bis A20 gespeichert wurden. Wählen Sie nun eine beliebige Zelle außerhalb der Drehfeldtaste aus und klicken Sie erneut nach oben oder Pfeil nach unten in der Drehfeldtaste. Siehe den Wert in F1. Wenn F1 1 ist, passiert nichts, wenn Sie auf den Abwärtspfeil klicken. Wenn F1 10 ist, gibt der Aufwärtspfeil nichts anderes. Klicken Sie auf den Abwärts- oder Aufwärtspfeil, beobachten Sie F1 und sehen Sie die Zahlen (deren Wert F1-Wert ist) in der Spalte A wird rot markiert. Wird dies von Nutzen für Sie. Sie können den Plan ändern