[VBA] Vybrání spojité oblasti

C++, C#, Visual Basic, Delphi, Perl a ostatní

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod z.a.p.r.t.e.k 8. 4. 2008 19:48

..Ahoj všem programátorům..
Mám menší problém potřeboval bych kod, kterej vybere spojitou oblast počínaje od buňky A1. Takže pokud bude něco napsáno v bunce D8 tak se vybere oblast A1 až D8. Ale nesmím použít speciální vlastnosti objektu application a také žádné funkce Excelu.

Pomůže mi s tím někdo?

Předem děkuji
z.a.p.r.t.e.k
Junior

Odeslat příspěvekod obcasny_navstevnik 8. 4. 2008 21:25

v procedure asi takto:

Set Cell = Worksheets(1).UsedRange.Resize(1, 1)
' alternativne: Set Cell = ActiveCell.Resize(1, 1)
Range("a1:" & Cell.Address(0, 0)).Select
obcasny_navstevnik
Junior

Odeslat příspěvekod z.a.p.r.t.e.k 8. 4. 2008 21:30

jj to by chodilo .. ale asi jsem tam nenapsal ještě jeden dotatek .. když budeš mít například něco napsáno v D8 a poté ještě C18 .. tak to musí vybrat buňky A1 až D18 a to s tímto nejde :(
z.a.p.r.t.e.k
Junior

Odeslat příspěvekod obcasny_navstevnik 8. 4. 2008 21:34

je to uz vsechno nebo prijdes s jeste necim dalsim?
obcasny_navstevnik
Junior

Odeslat příspěvekod z.a.p.r.t.e.k 8. 4. 2008 21:36

heh no mělo by to bejt asi vše no :-) omlouvám se .. možná ještě přes smyčky se to řešit nedá? :) .. opravdu se omlouvám :(
z.a.p.r.t.e.k
Junior

Odeslat příspěvekod obcasny_navstevnik 8. 4. 2008 21:53

Set Cell = Worksheets(1).UsedRange
adr = Cell.Resize(1, 1).Offset(Cell.Rows.Count - 1, Cell.Columns.Count - 1).Address(0, 0)
Range("a1:" & adr).Select
obcasny_navstevnik
Junior


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků