MS Excel

Dobrý den, dalo by se makrem obarvit na střídačku řádky podle sl.A?

tzn pokud je v sl.A stejná hodnota na řádcích jako o řádek níže,obarvit Barvou 1, a na střídačku, viz příloha.

Počet stejných hodnot sl.A se může různě lišit.
Nekdy třeba jen jeden ř, někdy třeba až xxx.

Děkuji

Zaslat odpověď >

Začátečník(25.1.2024 18:53)#056052

Jedno z možných řešení, ale nevýhoda při velkém počtu řádků bude pomalé.
Předpoklad, že sloupec A je seřazen.Sub ObarviRadek()

Dim barva As Long, barva1 As Long, barva2 As Long, i As Long
Dim hodnota As String

barva1 = vbYellow
barva2 = vbGreen

hodnota = Cells(1, 1)
barva = barva1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> hodnota Then
If barva = barva1 Then
barva = barva2
Else
barva = barva1
End If
End If
Rows(i).Interior.Color = barva
hodnota = Cells(i, 1)
Next i

End Sub
citovat

PavDD(26.1.2024 7:27)#056053

Skvělé, děkujicitovat

PavDD(26.1.2024 18:41)#056059

dalo by se nezbarvit celý řádek ale jen od sl.1 do 20 ?

Range(Cells(i, 1), Cells(i, 20)) ???citovat

Začátečník(26.1.2024 18:48)#056060

Dalo.
Rows(i) nahradit uvedeným Rangecitovat

PavDD(26.1.2024 19:12)#056062

Děkujicitovat

PavDD(26.1.2024 19:17)#056063

Použil jste základní barvy.
Zkouším třeba různé odstíny. ale kod hází chyby.
Jak vygenerovat správně to označení pro jiné barvy.
Já třeba cvaknu na form a Backcolor tam zkopíruju , ale to nefunguje.

barva1 = &H0080FFFF& 'jiná žlutácitovat

Začátečník(26.1.2024 19:28)#056065

Interior.ColorIndexhttps://learn.microsoft.com/cs-cz/office/vba/api/excel.interior.colorindex citovat

PavDD(26.1.2024 21:36)#056067

supercitovat

elninoslov(30.1.2024 9:39)#056084

Ak by ste toho mali veľa, použite najskôr načítanie hodnôt do poľa naraz, potom zlúčenie oblastí cez UNION, a hromadné vyfarbenie 2 oblastí.
Farba v HEX tvare má vo VBA vymenené R s B. Teda namiesto &HRRGGBB je &HBBGGRR. Prípadne použite fnc RGB(Rint,Gint,Bint).

Příloha: zip

56084_barva-nastridacku-2.zip (17kB, staženo 6x)

citovat

Téma: barva řádku dle bunky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje