Poga, lai izdrukātu dažus skaitļus Excel lapā

Izdevums

Es meklēju veidu, kā padarīt pogas krāsu visus numurus, kas ir vienādi ar pogas ... numuru, teiksim, ka man ir rindu rinda no 1 līdz 10, un tajās pašās lapas šūnās ar cipariem no No 1 līdz 10 bez pasūtījuma. Tagad es gribu ātri noteikt visas 3 un 7 krāsas pēc krāsas. "Vienkāršs: noklikšķiniet uz pogas 3, darbība: krāsainas visas šūnas ar numuru 3 un ļaujiet tam būt līdz brīdim, kad es vēlreiz nospiežu pogu ...

Risinājums

Es sniegšu citu risinājumu izdrukāt šīs instrukcijas un sekot (ja tas jums ir piemērots)

Atvērts jauns eksemplārs

tagad vb redaktorā kopējiet šo makro

 Sub tests () Dim x As Integer, cfind () Kā Range, j Kā Integer, k Kā Integer, pievienojiet kā String Columns ("A: A"). Interior.ColorIndex = xlNone x = Range ("F1"). j = WorksheetFunction.CountIf (kolonnas ("A: A"), x) Ja j = 0 Tad MsgBox "kolonnā A šāda vērtība nav pieejama" Exit Sub End Ja ReDim cfind (1 To j) Par k = 1 To j Set cfind (k) = kolonnas ("A: A"). Cells.Find (kas: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k). (k) = kolonnas ("A: A"). Cells.FindNext (cfind (k)) Ja cfind (k) nav nekas, tad Exit Do if cfind (k). Adress = pievienot, tad Exit Do cfind (k). .ColorIndex = 3 cilpa Nākamais k Beigas beigas

noklikšķiniet uz izvēlnes-rīkjoslas-forma

veidlapu rīkjoslu sarakstā ir viens saucējs

noklikšķiniet uz tā un zīmējiet spinner pogu

ar peles labo pogu noklikšķiniet uz pogas un noklikšķiniet uz "formāta vadība"

šajā logā izvēlieties vadību (pēdējā rinda augšējā rindā)

1. tips pret „minimālo vērtību”

10. tips pret "maksimālo vērtību"

"Papildu izmaiņas" būs 1

šūnu saite būs $ F $ 1

noklikšķiniet uz Labi

vēlreiz ar peles labo pogu noklikšķiniet uz spinner pogas un noklikšķiniet uz "piešķirt makro" nosaukumu "tests" nāks klajā. iezīmējiet to un noklikšķiniet uz Labi pieņemsim, ka skaitļi ir A slejā, lai pārbaudītu dažus veselus skaitļus starp 1 un 10 (daži atkārtojas divreiz vai trīs reizes, daži skaitļi trūkst) no A1 līdz A20, saglabājot failu, tagad atlasiet jebkuru šūnu ārpus spinner pogas un vēlreiz noklikšķiniet uz augšu vai lejupvērstā bultiņa vērpšanas pogā. Skatīt vērtību F1. ja F1 ir 1, nekas nenotiks, ja uzklikšķināt uz lejupvērstās bultiņas līdzīgi, ja F1 ir 10 uz augšu vērsta bultiņa nedos neko citu, noklikšķinot uz lejupvērstās vai augšupvērstās bultiņas, skatieties F1 un skatiet tos numurus (kuru vērtība ir F1 vērtība) slejā A tiks atzīmēts sarkans. Vai tas jums tiks izmantots. Jūs varat mainīt plānu