• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Macro na výběr barvy označené buňky

Zaslal/a WiXoo 14.8.2018 12:41

Ahoj chtěl bych Vás poprosit o pomoc. Chtěl bych u označené buňky zvolit barvu z pěti vybraných barev dle palety excelu. Barvy májí číselný název, podle které excel víte o kterou barvu se jedná (33,3,6,47 a 45). Každou jednotlivou barvu bych chtěl přiradit na tlačítko a ke každému tlačítku pouze jednu barvu.

Napadlo mě toto:

Selection.Interior.ColorIndex = číslo barvy

Ale nenapadá mě jak to zakomponovat celé do makra, respektive jak vytvořit 5 maker, a ty přiřadit k tlačítkům. Díky za odpověď

Zaslat odpověď >

---

elninoslov(14.8.2018 13:49)#041180

Skupina pomenovaných prepínačov, a je to:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Poz As Byte
On Error Resume Next
Poz = WorksheetFunction.Match(Selection.Cells(1).Interior.ColorIndex, Array(-4142, 33, 3, 6, 47, 45), 0)
Cells(1, 1).Value = IIf(Poz = 0, Empty, Poz)
End Sub

Sub ZmenBarvu()
Selection.Interior.ColorIndex = Array(-4142, 33, 3, 6, 47, 45)(CInt(Right$(ActiveSheet.Shapes(Application.Caller).Name, 1)) - 1)
End Sub

Příloha: 41180_zmena-farby-podla-indexu.zip (38kB, staženo 26x)

citovat

WiXoo(14.8.2018 15:27)#041183

Díky moccitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse