Knappen for at farve bestemte tal i Excel-ark

Problem

Jeg leder efter en måde at lave en knapfarve på alle tal svarende til nummeret på knappen ... for eksempel, lad os sige, at jeg har en række knapper fra 1 til 10 og i de samme arkceller med tal fra 1 til 10 i ingen rækkefølge. Jeg vil nu hurtigt kunne identificere alle 3'erne og 7'erne efter farve. "Simple: click button 3, action: farve alle celler med nummer 3 i det og lad det være sådan, indtil jeg trykker på knappen igen ...

Opløsning

Jeg skal give en anden løsning udskriv disse instruktioner og følg (hvis det passer dig)

ÅBEN EN NY EXCEL FIL

nu i vb editor kopiere denne makro

 Sub-test () Dim x Som helhed, cfind () Som rækkevidde, j Som helhed, k Som helhed, tilføj som strengkolonner ("A: A"). Interior.ColorIndex = xlNone x = Range ("F1"). Værdi j = WorksheetFunction.CountIf (kolonner ("A: A"), x) Hvis j = 0 Så er MsgBox "ingen sådan værdi tilgængelig i kolonne A" Exit Sub End Hvis ReDim cfind (1 Til j) For k = 1 Til j Indstil cfind (k) = Kolonner ("A: A") .Celler.Find (hvad: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Set cfind (k) = Kolonner ("A: A") .Celler.FindNæste (cfind (k)) Hvis cfind (k) Er Intet Så Afslut Gør Hvis cfind (k) .Address = Tilføj Så Afslut Gør cfind (k). .ColorIndex = 3 Loop Næste k Slut Sub

klik visning menu-værktøjslinjer-formularen

i listen over form værktøjslinjer er der en kaldet spinner

klik på det og tegne en spinner-knap

højreklik på knappen og klik på "format kontrol"

i det vindue vælg kontrol (det sidste punkt i øverste række)

type 1 mod "minimumsværdi"

type 10 mod "maksimumsværdi"

"trinvis ændring" bliver 1

celler link vil være $ F $ 1

klik ok

igen højreklik på spinner knappen og klik på "tildel makro" navnet "test" vil komme op. fremhæv det og klik ok, antag tallene er i kolonne A for at teste skrive nogle heltal mellem 1 og 10 (nogle gentages to gange eller tre gange, nogle tal mangler) fra A1 til A20 gem filen, vælg nu en celle uden for spinner knappen og klik igen opad eller nedad pil i spinner knappen. Se værdien i F1. hvis F1 er 1, vil der ikke ske noget, hvis du klikker på pil ned på samme måde, hvis F1 er 10 opadgående pil, vil ikke give noget ellers fortsæt med at klikke på pilene nedad eller opad, hold øje med F1 og se disse tal (hvis værdi er F1 værdi) i kolonne A vil blive markeret rødt. Vil det være nyttigt for dig. Du kan ændre planen