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: zip

41180_zmena-farby-podla-indexu.zip (38kB, staženo 27x)

citovat

WiXoo(14.8.2018 15:27)#041183

Díky moccitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.