Painike tiettyjen numeroiden värittämiseksi Excel-arkille

Ongelma

Etsin tapaa tehdä painikkeesta kaikki numerot, jotka ovat yhtä suuret kuin numeron painikkeella ... sanotaanpa, että minulla on rivin painikkeita 1: stä 10: een ja samoissa arkkeissa, joiden numerot ovat 1 - 10 ilman järjestystä. Haluan nyt nopeasti tunnistaa kaikki 3: n ja 7: n värit. "Yksinkertainen: napsauta painiketta 3, toiminta: väritä kaikki solut siinä olevalla numerolla 3 ja anna sen olla sellainen, kunnes painan painiketta uudelleen ...

Ratkaisu

Annan toisen ratkaisun tulostaa nämä ohjeet ja seuraan (jos se sopii sinulle)

AVAA UUSI EXCEL-TIEDOSTO

nyt vb-editorissa kopioi tämä makro

 Sub-testi () Dim x As Integer, cfind () Asetusalueena, j Aseta kokonaislukuna, k Aseta kokonaislukuna merkkijonoina ("A: A"). Interior.ColorIndex = xlNone x = Range ("F1"). j = WorksheetFunction.CountIf (sarakkeet ("A: A"), x) Jos j = 0 Sitten MsgBox "ei tällaista arvoa ole saatavilla sarakkeessa A" Exit Sub End Jos ReDim cfind (1 To j) K = 1 To j) Aseta cfind (k) = Sarakkeet ("A: A"). Cells.Find (mitä: = x, lookat = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k). (k) = Sarakkeet ("A: A"). SolutFindNext (cfind (k)) Jos cfind (k) ei ole mitään, sitten Exit Do Jos cfind (k) .Adress = lisää sitten Exit Do cfind (k). .ColorIndex = 3 Silmukka Seuraava k Lopeta al

valitse Näytä valikko-työkalurivit-muoto

lomakkeen työkalurivien luettelossa on yksi nimeltään spinner

napsauta sitä ja piirtää spinner-painike

Napsauta hiiren kakkospainikkeella painiketta ja valitse "Muotoile ohjaus"

tässä ikkunassa valitse ohjaus (viimeinen rivi ylimmässä rivissä)

tyyppi 1 "vähimmäisarvoa" vastaan

tyyppi 10 vastaan "suurin arvo"

"inkrementaalinen muutos" on 1

solujen linkki on $ F $ 1

valitse OK

napsauta hiiren kakkospainikkeella kehräyspainiketta ja napsauta "Määritä makro" nimi "testi" tulee esiin. korosta, että napsauta ok. Oletetaan, että numerot ovat sarakkeessa A testataksesi joitakin kokonaislukuja välillä 1–10 (jotkut toistuvat kahdesti tai kolmesti, jotkut numerot puuttuvat) A1: stä A20: een. tai alaspäin osoittava nuoli kehruupainikkeessa. Katso arvo F1. jos F1 on 1, mitään ei tapahdu, jos napsautat alaspäin osoittavaa nuolta samalla tavalla, jos F1 on 10 ylöspäin osoittava nuoli ei anna mitään muuta mennä napsauttamalla alas- tai ylösnuolia, katsele F1: ssä ja näe ne numerot (joiden arvo on F1-arvo) sarakkeessa A merkitään punaiseksi. Aikooko tämä käyttää sinua. Voit muokata suunnitelmaa