» Poradna » Programy

Kdo zvládne Excel - makro ???

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 2/2
 |   |   |  [160.218.229.---]

Potřeboval bych jen poradit s makrem které vloží názvy všech listů do sloupce pod sebe. (MS Excel)

Díky Jakub


Odpovědi na otázku

 |   |   |  [195.146.138.---]

Sub Nazvy_Listov()
    mojRiadok = ActiveCell.Row - 1
    mojStlpec = ActiveCell.Column
    For Each mojeNazvy In Worksheets
        Cells(mojRiadok + 1, mojStlpec) = mojeNazvy.Name
        mojRiadok = mojRiadok + 1
    Next
End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [195.146.138.---]

alebo takto
Sub Nazvy_Listov()
    mojRiadok = ActiveCell.Row 
    mojStlpec = ActiveCell.Column
    For Each mojeNazvy In Worksheets
        Cells(mojRiadok , mojStlpec) = mojeNazvy.Name
        mojRiadok = mojRiadok + 1
    Next
End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Makro



Určitě si přečtěte


USB-C je konektor, který by chtěl vládnout všem

USB-C je konektor, který by chtěl vládnout všem

** USB-C se tváří jako nejuniverzálnější konektor všech dob ** Pravda je to však jen z části ** Při výběru příslušenství s USB-C dobře studujte parametry

20.  1.  2018 | Stanislav Janů | 61


Aktuální číslo časopisu Computer

Zachraňte nefunkční Windows

Jak nakupovat a prodávat kryptoměny

Otestovali jsme konvertibilní notebooky

Velký test 14 herních myší