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

MS Excel

Téma: Makro pro podbarvení buňky na základě podmínky

Zaslal/a Turekh83 29.5.2012 22:02

Ahoj, řeším problém, vytvořil jsem si makro na podbarvení buňky na základě funkce. Ale funguje mi to jen pro jeden řádek. Potřeboval bych radu, jak to upravit, aby to fungovalo pro pro všechny řádky v sloupci.

If Range("G11") < Range("G2") And Range("J11") = "Open" Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If

Díky za radu.

HT

Uzamčeno - nelze přidávat nové příspěvky.

---

Strana:  1 2   další »

Pavlus(29.5.2012 22:20)#008665

Stačí daný kód vložit do modulu a vložit jej mezi znaky:
Sub nazev_makra()
End SubJinak tam máš Selection, takže se ti podbarví aktuální výběr buněk.
P.citovat

Turekh83(29.5.2012 22:44)#008666

Díky, to tam mam jen jsem to nenakopíroval. Ale problem je v tom, že potřebuju, aby mi to fungovalo na cca 1 000 řádků a stim si nevim rady.

HTcitovat

kp57(29.5.2012 22:59)#008667

EXCEL - podmíněné formátování.
VBA - musíš to dát do cyklu.

Sub ProFormat()
Dim rdW As Byte
For rdW = 2 To 20
If Cells(rdW, 1) < Cells(1, 2) And Cells(rdW, 3) = "open" Then
With Union(Cells(rdW, 1), Cells(rdW, 3)).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next rdW
End Sub
citovat

kp57(29.5.2012 23:15)#008669

Pokud chceš měnit výběr řádků pak:

Dim rdR As Long, rdW As Long
rdR = ActiveCell.Row
For rdW = rdR To rdR + Selection.Rows.Count - 1
'příkazy
next rdW
citovat

Turekh83(30.5.2012 8:15)#008670

To: kp57
Díky za radu.

Popravdě jsem to nezprovoznil. Potřebuju, aby mi to fungovalo pro sloupec G a J a nejsem schopný si to upravit.

HTcitovat

RomanX(30.5.2012 11:22)#008673

Zkus toto
If Range("G11") < Range("G2") And Range("J11") = "Open" Then
Set Obl = Application.Union(Columns("G:G"), Columns("J:J"))
Set Barva = Application.Union(Obl.SpecialCells(xlCellTypeFormulas, 23), _
Obl.SpecialCells(xlCellTypeConstants, 23))
Barva.Interior.Color = 6684927
End Ifcitovat

Turekh83(30.5.2012 12:18)#008674

To: RomanX

Zkusil jsem.

Obarví to celý sloupec G a J >> nebere to ohled na tu podmínku IF

I tak ale díky, hodí se to určitě jindy.

HTcitovat

marjankaj(30.5.2012 12:45)#008675

Veď si to predsa chcel pre celé stĺpce G a J

Potřeboval bych radu, jak to upravit, aby to fungovalo pro pro všechny řádky v sloupci.citovat

Turekh83(30.5.2012 12:59)#008676

To: Marjanka

To ano chtěl jsem aby to platilo pro všechny řádky ve sloupci, ale pro každý řádek musí platit podmínka že, G<G2 a zároveň J = Open.

Kód od RomenX obarví všechny řádky bez ohledu na data ve nich.

HTcitovat

RomanX(30.5.2012 13:26)#008678

Já jsem jen opravil tvůj program, jinak přilož tabulku a popiš přesně co se má, kdy udělat tneto program by měl vybarvit obsazené buňky ve sloupcích G a J pokud je splněna podmínka. Podmínku jsem vzal z tvého makra. V programu neříkaš (nepíšeš), co se má dělat, když podmínka není splněná, nedělá se nic. Pokud chceš vyplnit všechny řádky tak oprav makro na:

If Range("G11") < Range("G2") And Range("J11") = "Open" Then Union(Columns("G:G"), Columns("J:J")).Interior.Color = 6684927citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse