Gumb za bojenje određenih brojeva u Excelovom listu

Problem

Tražim način da gumb napravim da boji sve brojeve koji su jednaki broju na gumbu ... kao primjer, recimo da imam red gumba od 1 do 10, te u istim pločama s brojevima od 1 do 10 bez redoslijeda. Sada želim brzo identificirati sva tri i sedam po boji. "Jednostavno: kliknite gumb 3, akcija: obojite sve ćelije s brojem 3 u njemu i pustite da bude tako sve dok ponovno ne pritisnem gumb ...

Riješenje

Dati ću drugo rješenje i ispisati ove upute i slijediti (ako vam to odgovara)

OTVORITE NOVU EXCEL DATOTEKU

sada u vb uređivaču kopirajte ovu makronaredbu

 Sub test () Dim x As Integer, cfind () Kao Range, j As Integer, k As Integer, dodajte As String Columns ("A: A"). Interior.ColorIndex = xlNone x = Raspon ("F1"). j = WorksheetFunction.CountIf (Stupci ("A: A"), x) Ako j = 0 Zatim MsgBox "takva vrijednost nije dostupna u stupcu A" Izlaz Sub End Ako je ReDim cfind (1 do j) Za k = 1 To j Postavi cfind (k) = Stupce ("A: A") Cells.Find (što: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Set cfind (k) = Stupci ("A: A"). Cells.FindNext (cfind (k)) Ako cfind (k) nije ništa, onda izađite Do ako cfind (k) .Address = add Zatim Exit Do cfind (k) .Interior .ColorIndex = 3 Petlja Sljedeće k Kraj sub

kliknite prikaz izbornika-alatne trake-oblik

u popisu alatnih traka oblika nalazi se jedan koji se zove spinner

kliknite ga i nacrtajte gumb za vrtnju

kliknite desnom tipkom i kliknite "Formatiraj kontrolu"

u tom prozoru odaberite kontrolu (posljednja stavka u gornjem retku)

upišite 1 prema "minimalnoj vrijednosti"

upišite 10 prema "maksimalnoj vrijednosti"

"inkrementalna promjena" bit će 1

veza ćelija će biti $ F $ 1

kliknite U redu

ponovno kliknite desnom tipkom na gumb za centrifugiranje i kliknite "dodijeliti makronaredbu", pojavit će se naziv "test". označite to i kliknite OK pretpostavimo da su brojevi u stupcu A za testiranje unesite neke brojeve između 1 i 10 (neki ponavljaju dvaput ili tri puta, neki brojevi nedostaju) od A1 do A20 spremite datoteku sada odaberite bilo koju ćeliju izvan gumba za centrifugiranje i ponovno kliknite prema gore ili strelicu prema dolje na gumbu za centrifugiranje. Pogledajte vrijednost u F1. ako je F1 1, ništa se neće dogoditi ako kliknete strelicu prema dolje slično ako je F1 10 strelica prema gore neće dati ništa inače će krenuti na strelice prema dolje ili prema gore, držati stražu u F1 i vidjeti one brojeve (čija je vrijednost F1) u stupcu A će biti označen crvenom bojom. Hoće li vam ovo biti od koristi. Možete izmijeniti plan