Excel sayfasındaki belirli sayıları renklendirmek için kullanılan düğme

Konu

Bir düğmeyi tüm sayıları düğmedeki sayıya eşit yapmanın bir yolunu arıyorum ... bir örnek olarak, 1'den 10'a kadar bir düğme satırına sahip olduğumu ve aynı sayfa hücrelerinde sayıları 1 ile 10 arasında sırada değil. Şimdi hızlı bir şekilde tüm 3'leri ve 7'leri renkli olarak tanımlayabilmek istiyorum. "Basit: 3 tuşunu tıklat, işlem: içinde 3 rakamı olan tüm hücreleri renklendir ve butona tekrar basana kadar böyle olmasını sağla ...

Çözüm

Bu talimatları basıp başka bir çözüm vereceğim ve izleyeceğim (size uyması koşuluyla)

YENİ BİR MÜKEMMEL DOSYAYI AÇ

şimdi vb editörde bu makroyu kopyala

 Alt test () Dim x Tam Sayı olarak, cfind () Aralık, j Tam Sayı, k Tam Sayı olarak, Dize Sütun olarak ("A: A") ekleyin. Interior.ColorIndex = xlNone x = Aralık ("F1"). Değer j = WorksheetFunction.CountIf (Sütunlar ("A: A"), x) Eğer j = 0 ise MsgBox "A" sütununda böyle bir değer yoktur. "Eğer ReDim cfind ise Alt Sontan Çık Set cfind (k) = Sütunlar ("A: A") .Cells.Find (ne: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Set cfind (k) = Sütunlar ("A: A") .Cells.FindNext (cfind (k)) Eğer cfind (k) Yok ise O Zaman Çıkın Cfind (k) YapınAdres = ekleyin Sonra Çıkın cfind (k) .Iç .ColorIndex = 3 Döngü Sonraki k Son Alt

menü-araç çubukları-formunu tıklayın

Form araç çubukları listesinde spinner denilen bir tane var.

tıklayın ve döndürme düğmesini çizin

düğmesine sağ tıklayın ve "format kontrolü" üzerine tıklayın

o pencerede kontrolü seçin (en üst satırdaki son öğe)

"minimum değer" e karşı 1 yazın

"maksimum değer" e göre 10 yazın

"Artımlı değişim" olacak 1

hücre bağlantısı $ F $ 1 olacak

Tamam'ı tıklayın

tekrar döndürücü düğmesine sağ tıklayın ve "makro ata" yı tıklayın, "test" ismi görünecektir. Vurgulayın ve Tamam’ı tıklayın. Sayıların A ile A20 arasındaki bazı tam sayılarını (bazıları iki kez veya üç kez tekrarlayarak, bazı sayılar eksik, bazı rakamlar eksik), A1 ile A20 arasındaki tiplerini test etmek için A sütununda olduğunu varsayalım. veya döner düğmedeki aşağı ok. F1'deki değere bakınız. Eğer F1 1 ise, aşağı yukarı oka benzer şekilde basarsanız F1 10 yukarı ok ise başka bir şey vermeyecekse, aşağı veya yukarı okları tıklatmaya devam ederseniz, F1'de izlemeye devam edin ve bu sayıları (değeri F1 değeri) sütunda görün. A kırmızı olarak işaretlenecektir. Bu size yarar sağlayacak mı? Planı değiştirebilirsin