< návrat zpět

MS Excel

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

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

stop Uzamčeno - nelze přidávat nové příspěvky.
Strana:  1 2   další »
Pavlus(29.5.2012 22:20)#008665
avatar
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
avatar
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
avatar
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
avatar
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
avatar
To: kp57
Díky za radu.

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

HTcitovat
RomanX(30.5.2012 11:22)#008673
avatar
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
avatar
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
avatar
Veď si to predsa chcel pre celé stĺpce G a J 4

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
avatar
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
avatar
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)
avatar\n

Menu

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.

On-line nástroje