VBA: Zabarvení určité oblasti

[Michremi]

Ahoj,
chtěl bych se zeptat možná na banalitu, ale nevím si s tím rady. Potřebuji v excelu zvýraznit určitou oblast, ale nevím nikdy, kde přesně a jak velká bude.

klasický kód na zabarvení oblasti:
Range("B6:H10").Interior.Color = 65535 jsem prvně upravil tak, aby se automaticky doplnil až do konce takto:

Range("B6:H" & konec).Interior.Color = 65535

ale když chci určit i začátek, tak už je kód nefunkční viz:

Range(zacatek & "B:H" & konec).Interior.Color = 65535

zkoušel jsem i jiné kombinace, kam dát ty uvozovky, ale nemůžu to trefit, ani na internetu nic najít, neporadil by mi s tím někdo?

barvici dotaz.xlsm

(13.28 KiB) Staženo 44 x

[Reklama]

[atari]

Já oblasti definuji přes Cells, to je podle mě jednodušší.

[Michremi]

dík, funguje to, asi s Cells začnu pracovat radši taky : )

[guest]

No "6B" vám opravdu neprojde jako adresa buňky. A rada typu "cpěte do Range ještě Cells" je taky bezva. Ach jo.

[elninoslov]

Kód: Vybrat vše

Sub Zapis1()
Dim Zacatek As Long, Konec As Long

    Zacatek = 6
    Konec = 10

    Worksheets("pokus").Cells(Zacatek, 2).Resize(Konec - Zacatek + 1, 7).Interior.Color = 65535
    '2. parameter Cells() je číslo prvého stĺpca oblasti = 2 (B:B)
    '1. parameter Resize() je počet riadkov = Konec - Zacatek + 1 = 5 (6:10)
    '2. parameter Resize() je počet stĺpcov = 7 (B:H)
End Sub

Kód: Vybrat vše

Sub Zapis2()
Dim Zacatek As Long, Konec As Long

    Zacatek = 6
    Konec = 10
   
    Worksheets("pokus").Range("B" & Zacatek & ":H" & Konec).Interior.Color = 65535
End Sub