Stránka 1 z 1

VBA: Zabarvení určité oblasti

Napsal: 13 pro 2019 09:34
od 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 47 x

Re: VBA: Zabarvení určité oblasti

Napsal: 13 pro 2019 09:44
od atari
Já oblasti definuji přes Cells, to je podle mě jednodušší.

Re: VBA: Zabarvení určité oblasti

Napsal: 13 pro 2019 10:03
od Michremi
dík, funguje to, asi s Cells začnu pracovat radši taky : )

Re: VBA: Zabarvení určité oblasti

Napsal: 13 pro 2019 15:49
od 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.

Re: VBA: Zabarvení určité oblasti

Napsal: 16 pro 2019 12:27
od 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