Živě.cz

Přeji pěkný den,

v Excelu 2003 bych chtěl pomocí VBA vymazat hodnoty v buňkách umístěných v obdélníku, jehož

• levá horní buňka má souřadnice (3, 1)
• pravá dolní buňka má souřadnice (u, 6)

To u je proměnná hodnota odvislá od toho, kolik bude vyplněných řádků. Vždy ale bude tabulka začínat na třetím řádku.

Zkoušel jsem to přes kód

Kód: Vybrat vše

List9.Range(Cells(3, 1), Cells(u, 6)).Select
    Selection.ClearContents

leč vždy se mi zobrazila hláška

a v kódu se zvýrazní řádek

Kód: Vybrat vše

List9.Range(Cells(3, 1), Cells(u, 6)).Select

Poradíte mi, prosím, v čem je problém?

Děkuji.

Uz v tematu viewtopic.php?f=958&t=1076210 jsi mel problemy s nazvy listu, a uvadel jsem ti:

Neni to jedno.
List3.Select - je vybran objekt List3("nejakynazev"), koukni v editoru VBA na pole Project - VBAProject

Worksheets("Ahoj").Select - je vybran list s nazvem "Ahoj" bez ohledu na jeho poradi v okne Excelu

Worksheets(1).Select - je vybral list, ktery je v okne Excelu v poradi prvni zleva (bez ohledu na jeho nazev nebo objekt)

Pokud chces pouzit objekt List9, nejprve musis v teto programove konstrukci tento objekt vybrat a pak vybrat blok bunek:

Kód: Vybrat vše

List9.Select
Range(Cells(3, 1), Cells(u, 6)).Select
    Selection.ClearContents

Navic tato konstrukce bude adresovat blok bunek takto:
u=1 > $A$1:$F$3
u=2 > $A$2:$F$3
u=3 > $A$3:$F$3
...
u=6 > $A$3:$F$6
coz asi nechces; jiste to lze upravit (a take zjednodusit: Range(Cells(3, 1), Cells(u, 6)).ClearContents), ale VBA je objektove orientovany, tak to vyuzij :

Kód: Vybrat vše

Dim Blk As Range
...
Set Blk = Worksheets("list3").Range("a3") ' zaciname na radku 3 ve sloupci A
Blk.Resize(u, 6).ClearContents ' odstrani blok s u radky a 6 sloupci: A3:F(3+u-1)
...
Set Blk = Nothing ' odstranit objektovou promennou z pameti

a podle nazvu listu vim, kde jsem.

Občasný návštěvníku, díky.

Holt jsem tam neměl ten řádek List9.Select

Nakonec jsem to však udělal tím Tvým návrhem kódu, který efektně funguje. Díky za to.

Pokud mi něco ve VBA nefunguje, tak to zkusím vytvořít pomocí Záznamu makra a pak se podívám, jak je to makro napsané a tu potřebnou část kódu zkopíruji do svého makra.

Petr Filipi

petrfilipi píše:Pokud mi něco ve VBA nefunguje, tak to zkusím vytvořít pomocí Záznamu makra a pak se podívám, jak je to makro napsané a tu potřebnou část kódu zkopíruji do svého makra.

Ano, po dřívějším upozornění na tuto skutečnost Občasným návštěvníkem, volím stejný postup.