Mygtukas, skirtas tam tikriems skaičiams spalvoti spalvotame lape

Problema

Aš ieškojau būdų, kaip padaryti, kad mygtuko spalva būtų visi skaičiai, lygūs mygtuko ... skaičiui, tarkime, aš turiu mygtukų eilę nuo 1 iki 10 ir tose pačiose lapo ląstelėse, kurių numeriai yra nuo Nuo 1 iki 10 be užsakymo. Dabar noriu greitai sugebėti atpažinti visus 3 ir 7 pagal spalvą. „Paprasta: spustelėkite mygtuką 3, veiksmas: spalvas visus langelius su 3 numeriu ir leiskite jam būti panašus, kol dar kartą paspausiu mygtuką ...

Sprendimas

Pateiksiu kitą sprendimą išspausdinti šias instrukcijas ir laikykitės (jei tai jums tinka)

ATIDARYTA NAUJĄ EXCEL FILE

dabar vb redaktoriuje nukopijuokite šį makrokomandą

 Sub testas () Dim x As Integer, cfind () Kaip Range, j Kaip Integer, k Kaip Integer, pridėkite kaip String Columns ("A: A"). Interjeras.ColorIndex = xlNone x = Range ("F1"). j = WorksheetFunction.CountIf (stulpeliai ("A: A"), x) Jei j = 0 Tada MsgBox "kolonoje A nėra tokios reikšmės" Išeiti iš sub End, jei ReDim cfind (1 To j) K = 1 To j Nustatyti cfind (k) = stulpeliai („A: A“). „Cells.Find“ (kas: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k). (k) = stulpeliai („A: A“). „Cells.FindNext“ (cfind (k)) Jei cfind (k) nėra, tada Exit Do if cfind (k) .Adress = add Tada Exit Do cfind (k). .ColorIndex = 3 kilpos seka k Pabaigos pabaiga

spustelėkite peržiūros meniu įrankių juostas

formų įrankių juostų sąraše yra vienas vadinamasis verpėjas

spustelėkite jį ir nupieškite verpimo mygtuką

dešiniuoju pelės mygtuku spustelėkite mygtuką ir spustelėkite „formato valdymas“

šiame lange pasirinkite valdymą (paskutinis elementas viršutinėje eilutėje)

1 tipas nuo „minimalios vertės“

10 tipas nuo „didžiausios vertės“

„papildomas pakeitimas“ bus 1

ląstelių nuoroda bus $ F $ 1

spustelėkite Gerai

dar kartą dešiniuoju pelės mygtuku spustelėkite verpimo mygtuką ir spustelėkite „priskirti makrokomandą“, kai bus pateiktas „testas“. paryškinkite, kad ir spustelėkite Gerai, jei skaičiai yra A stulpelyje, kad išbandytumėte kai kuriuos sveikuosius skaičius nuo 1 iki 10 (kai kurie kartojami du kartus arba tris kartus, kai kurių numerių trūksta) nuo A1 iki A20 išsaugoti failą dabar pasirinkite bet kurį langelį už spinner mygtuko ir dar kartą spustelėkite aukštyn arba žemyn rodyklės mygtukas. Žr. Reikšmę F1. jei F1 yra 1, nieko neįvyks, jei spustelėsite žemyn rodyklę panašiai, jei F1 yra 10 aukštyn rodyklė neduos nieko kito, paspaudus žemyn arba į viršų rodykles, stebėkite F1 ir žiūrėkite tuos numerius (kurių vertė F1 vertė) stulpelyje A bus pažymėta raudona. Ar tai jums naudinga. Galite keisti planą