Knapp for å farge bestemte tall i Excel-ark

Utgave

Jeg leter etter en måte å lage en knappfarge alle tallene til tallet på knappen ... for eksempel, la oss si at jeg har en rad knapper fra 1 til 10, og i de samme arkceller med tall fra 1 til 10 i ingen rekkefølge. Jeg vil nå raskt kunne identifisere alle 3 og 7-tallet etter farge. "Enkelt: klikk-knapp 3, handling: farg alle cellene med nummer 3 i det og la det være slik før jeg trykker på knappen igjen ...

Løsning

Jeg skal gi en annen løsning skrive ut disse instruksjonene og følg (hvis det passer deg)

ÅPEN EN NY EXCEL-FIL

Nå i vb-editor, kopier denne makroen

 Sub-test () Dim x Som helhet, cfind () Som rekkefølge, j Som helhet, k Som helhet, legg til som strengkolonner ("A: A"). Interior.ColorIndex = xlNone x = Range ("F1"). Verdi j = WorksheetFunction.CountIf (kolonner ("A: A"), x) Hvis j = 0, så er MsgBox "ingen slik verdi tilgjengelig i kolonne A" Exit Sub End Hvis ReDim cfind (1 Til j) For k = 1 Til j Sett cfind (k) = Kolonner ("A: A") .Celler.Find (hva: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Adress Sett cfind (k) = Kolonner ("A: A"). Celler.FindNext (cfind (k)) Hvis cfind (k) Er ingenting deretter Avslutt Gjør hvis cfind (k) .Address = legg til Avslutt Gjør cfind (k). Innside .ColorIndex = 3 Loop Neste k End Sub

Klikk på visningsmeny-verktøylinjer-skjemaet

I listen over skjema verktøylinjer er det en kalt spinner

klikk den og trekk en spinner-knapp

høyreklikk på knappen og klikk på "formatkontroll"

i det vinduet velg kontroll (det siste elementet i toppraden)

skriv 1 mot "minimumsverdi"

skriv 10 mot "maksimal verdi"

"inkrementell endring" blir 1

cellelink vil være $ F $ 1

klikk ok

igjen høyreklikk spinner-knappen og klikk "tilordne makro" navnet "test" kommer opp. markere det og klikk ok antar tallene er i kolonne A for å teste skrive noen heltall mellom 1 og 10 (noen repeterer to ganger eller tre ganger, noen tall mangler) fra A1 til A20 lagre filen nå velg en celle utenfor spinnerknappen og igjen klikk oppover eller nedover pil i spinnerknappen. Se verdien i F1. hvis F1 er 1, vil ingenting skje hvis du klikker nedover pil på samme måte hvis F1 er 10 pil opp, vil ikke gi noe ellers fortsette å klikke nedover eller oppover pilene, pass på F1 og se disse tallene (hvis verdi er F1 verdi) i kolonne A vil bli merket rødt. Vil dette brukes til deg. Du kan endre planen