Použití Range

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Použití Range

Příspěvekod atari » 24 črc 2015 23:49

Do proměnné zadávám pomocí Range řádek jako objekt: radek = Worksheets("list1").Range("2:2"). Potřeboval bych toto udělat tak, aby místo řádku 2, byl vybrán řádek, kde je umístěný kurzor. Nějak se mi to pomocí Range nedaří.

Reklama
d1amond
člen HW spec týmu
Elite Level 12
Elite Level 12
Příspěvky: 16106
Registrován: květen 08
Bydliště: České Budějovice
Pohlaví: Muž
Stav:
Offline

Re: Použití Range

Příspěvekod d1amond » 25 črc 2015 08:59

Ulož si do proměnné hodnotu activecell.row, a použij ji namísto čísla řádku.
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?

guest
Pohlaví: Nespecifikováno

Re: Použití Range

Příspěvekod guest » 25 črc 2015 09:38

Dim rngMujRadek As Range
Set rngMujRadek = ActiveCell.EntireRow

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Použití Range

Příspěvekod atari » 30 črc 2015 09:28

d1amond píše:Ulož si do proměnné hodnotu activecell.row, a použij ji namísto čísla řádku.
Tak tohle nefunguje ("rr" se sice načte, ale promenná "radek" se nepriradi):

Kód: Vybrat vše

rr = ActiveCell.Row
Set radek = Worksheets("tisk").Range("rr:rr")

to xlnc: funguje dobře, díky


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů