Tlačítko pro barvení určitých čísel v Excelu
Tlačítko pro barvení určitých čísel v Excelu
Problém
Hledám způsob, jak změnit barvu tlačítka na všechna čísla odpovídající číslu na tlačítku ... jako příklad, řekněme, že mám řadu tlačítek od 1 do 10 a ve stejných buňkách s čísly od čísla 1 až 10 v žádném pořadí. Chci rychle rychle identifikovat všechny 3 a 7 barevně. "Jednoduché: klikněte na tlačítko 3, akce: zbarvte všechny buňky číslem 3 a nechte to tak, dokud znovu nestisknu tlačítko ...
Řešení
Vytisknu tyto pokyny a dodám další řešení (za předpokladu, že vám to vyhovuje)
OTEVŘTE NOVÝ EXCELOVÝ SOUBOR
nyní v editoru vb kopírovat toto makro
Sub test () Dim x Integer, cfind () As Range, j jako Integer, k jako Integer, přidejte As String Columns ("A: A") Interior.ColorIndex = xlNone x = Range ("F1"). j = WorksheetFunction.CountIf (Sloupce ("A: A"), x) Pokud j = 0 Pak MsgBox "žádná taková hodnota není k dispozici ve sloupci A" Konec Sub End Pokud ReDim cfind (1 To j) Pro k = 1 To j Nastavit cfind (k) = Sloupce ("A: A") Cells.Find (co: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Set cfind (k) = Sloupce ("A: A") Cells.FindNext (cfind (k)) Pokud cfind (k) není nic, pak ukončete Do If cfind (k) .Address = add Pak Exit Do cfind (k). .ColorIndex = 3 Loop Další k End Sub
klepněte na tlačítko Zobrazit menu-panely nástrojů-formulář
v seznamu panelů nástrojů je jeden nazvaný spinner
klikněte na něj a nakreslete tlačítko spinner
klikněte pravým tlačítkem myši na tlačítko a klikněte na položku "ovládání formátu"
v tomto okně zvolte ovládací prvek (poslední položka v horním řádku)
typ 1 proti "minimální hodnotě"
typ 10 proti "maximální hodnotě"
"přírůstková změna" bude 1
odkaz na buňky bude $ F $ 1
klepněte na tlačítko OK
opět pravým tlačítkem myši na tlačítko spinner a klikněte na tlačítko "přiřadit makro" jméno "test" přijde. zdůraznit, že a klepněte na tlačítko OK předpokládejme, že čísla jsou ve sloupci A k testování typu některá celá čísla mezi 1 a 10 (některé opakování dvakrát nebo třikrát, některá čísla chybí) z A1 do A20 uložte soubor nyní vyberte libovolnou buňku mimo tlačítko spinner a znovu klikněte nahoru nebo šipka dolů v tlačítku spinneru. Viz hodnota v F1. pokud F1 je 1, nic se nestane, když kliknete na šipku dolů podobně, pokud F1 je 10 šipka nahoru nebude dávat nic jinak, když kliknete na šipky dolů nebo nahoru, sledujte ve F1 a uvidíte čísla (jejichž hodnota je hodnota F1) ve sloupci A bude označena červeně. Bude to pro vás užitečné. Plán můžete upravit
Poznámka
Řešen venkat1926