< návrat zpět

MS Excel


Téma: Najdi makrem poslední řádek a sloupec stránky rss

Zaslal/a 28.9.2016 9:48

Dobrý den. Je možné makrem najít poslední řádek a poslední sloupec stránky? Tedy "čárkované" hranice po otevření sešitu. Zkusil jsem objasnit v příloze. Díky Vladimír Krist

Příloha: zip32914_najdi_makrem_konec_stranky.zip (13kB, staženo 27x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#032915
Hav-Ran
Do svojho makra zabudujte napr. toto:

Sub poslednySaR()
Dim r As Long
Dim c As Integer
With ActiveSheet.UsedRange
r = .Row + .Rows.Count - 1
c = .Column + .Columns.Count - 1
End With
MsgBox "Riadkov " & r & " ."
MsgBox "Stlpcov " & c & " ."
Cells(r, c).Select
End Subcitovat
#032916
avatar
tych moznosti je Vela :)
Příloha: zip32916_najdi_makrem_konec_stranky.zip (18kB, staženo 28x)
citovat
#032926
avatar
Děkuji pánové za rychlou odpověď. Můj potíž je ale trošičku jinde. Nejde mi o poslední řádek (sloupec) tabulky nebo oblasti, ale o poslední řádek (sloupec) stránky - tisk. V příloze je obrázek, který upřesní, jak jsem to myslel. Moc děkuji.
Příloha: jpg32926_zjisti_makrem_konec_prvni_strany.jpg (49kB, staženo 28x)
32926_zjisti_makrem_konec_prvni_strany.jpg
citovat
#032930
avatar
no toto bude trosku komplikovanesie

kedze areu na tlacenie dostanete z PrintArea
ale tato area moze byt este rozdelena na dalsie casti a tie dostanete z VPageBreak a HPageBreak.

Sub test()
Dim aColumnBreak As VPageBreak
Dim aRowBreak As HPageBreak

With Sheets("Sheet1")
Debug.Print "PrintArea: " & .PageSetup.PrintArea
For Each aColumnBreak In .VPageBreaks
Debug.Print "Column PageBreak: " & aColumnBreak.Location.Column
Next
For Each aRowBreak In .HPageBreaks
Debug.Print "Row PageBreak: " & aRowBreak.Location.Row
Next
End With
End Sub


dufam ze vam tento kod nasmeruje k tomu co potrebujetecitovat
icon #032931
eLCHa
Můžete zkusit kouknout sem, zda vás to navede.
http://elcha-en.blogspot.com/2015/05/horizontal-page-breaks.htmlcitovat
#032950
avatar
Dobrý den pánové. Velice děkuji za pomoc a nasměrování. Už mi vše funguje. Bez vás bych to nedal. Tak ještě jednou díky. Vladimír Kristcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51

Spustit makro v určitý čas

elninoslov • 28.11. 0:31

Spustit makro v určitý čas

Baja • 27.11. 22:22

Spustit makro v určitý čas

Anonym • 27.11. 22:20

Spustit makro v určitý čas

elninoslov • 27.11. 21:11