MS Excel

Ahoj. Potřeboval bych poradit s barevným formátováním grafu.
Potřebuji, aby barva sloupce grafu vždy odpovídala barvě určité buňky. Písmeno C v buňce znamená vždy zelenou, B modrou, A žlutou. Díky za nápady.

Zaslat odpověď >

Roman(9.6.2011 14:01)#005227

Do listu ADC si vsuň toto makro
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Row
Case 13, 10
For i = 1 To 500
ActiveSheet.ChartObjects("Graf 2").Activate
ActiveChart.SeriesCollection(3).Points(i).Select
With Selection.Format.Fill
Select Case UCase(Range("C10").Offset(0, i))
Case "A"
.ForeColor.RGB = RGB(255, 255, 0)
Case "B"
.ForeColor.RGB = RGB(0, 176, 240)
Case "C"
.ForeColor.RGB = RGB(146, 208, 80)
Case Else
Exit For
End Select
End With
Next i
Case Else
End Select
End Sub
citovat

Rozmy(9.6.2011 16:51)#005230

No to je ono. Děkuji moc. Bohužel to má jednu chybičku. Zadám písmeno, které označuje barvu, dám enter, nebo šipku pro přechod na další buňku, ale k přechodu nedojde. Musím kliknout myší. S tabulkou budou dělat absolutní analfabeti (větší, než já), takže je potřeba jim to co nejvíc zjednodušit. Šlo by tohle ještě nějak vychytat? Nebo jsem to makro vložil špatně? Vložil jsem ho po stisku ALT+F11 přímo do listu ADC.citovat

Roman(9.6.2011 17:02)#005231

Mi to v 2007 funguje normálně, nevím, jak máš nastaveny makra. Povolit jecitovat

Rozmy(10.6.2011 10:32)#005232

Já tu mám W7 a Office 2010 ... makra mám povolena, protože dost často dělám se soubory, které je obsahují. Mohl bys to zkusit? Ještě jsem takhle přímo do listu makro nevkládal, tak jestli jsem to nevložil blbě. Vždycky jen používám ty makra, který nahrávaj to, co v excelu dělám, maximálně jsem schopný si tam lehce upravit nějaký kroky ručně, ale jinak s tím moc zkušeností nemám. Díky moc.

Příloha: zip

5232_program-2-63111-992n-test-makro1.zip (16kB, staženo 21x)

citovat

Roman(10.6.2011 11:03)#005233

Vše máš OK jen Excel se trochu jinak chová u mne u tebe je korektní, proč to nevím, možná mám někde něco nastavené. Řešení:
do druhého řádku za "private sub ..." a před "Select .. vlož
Set a = ActiveCell
do předposledního řádku za "End select" a před "End sub" vlož
a.Selectcitovat

Rozmy(10.6.2011 11:49)#005234

Vloženo, vyzkoušeno - šlape to výborně.
Vřelé díky.citovat

Rozmy(30.6.2011 11:15)#005403

Všechno šlapalo naprosto dokonale až do dnes. Potřeboval jsem přidat jeden sloupec abych měl kam napsat 30.6. . Po přidání sloupce jsem upravil i zdrojová data grafu. Makro funguje, ale vyhazuje nějaký error. Bohužel jsem nezjistil, kam do makra šáhnout, abych to opravil. Prosím o pomoc. Děkuji.

Příloha: zip

5403_program-11-671112-990n.zip (18kB, staženo 20x)

citovat

Miky.Miguel(20.6.2012 12:15)#008855

Ahoj.
Prosím o pomoc. Snažím se vytvořit makro na automatickou změnu barvy sloupce v grafu dle barvy buňky. Snažím se to udělat podle tohoto příkladu, ale nedaří se mi to. V listě "Data" mám tabulku a z ní na druhém listě "Graf" vytažená data do grafu. Potřeboval bych, aby se podle aktuálních hodnot v tabulce, podle rozmezí, zbarvoval sloupec u každé hodnoty. V souboru je popsáno jak by to mělo fungovat.

Děkuji za pomoc

Příloha: zip

8855_test.zip (30kB, staženo 17x)

citovat

Téma: Barva grafu dle buňky

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

VBA - Automatické přidání a pojmenování listů

Určení kraje dle databáze PSČ na základě adresy

Určení kraje dle databáze PSČ na základě adresy

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Vynásobit hodnoty kurzem - Power Query

Vynásobit hodnoty kurzem - Power Query