Hirdetés

Keresés

Új hozzászólás Aktív témák

  • [HUN]Zolee
    őstag

    A múltkori problémámat sikerült megoldanom. Mondjuk sejtettem, hogy egy egyszerű ciklus-utasítás révén menni fog a dolog, csak jól meg kellett ''fogalmazni''. :B

    Most viszont egy olyan átfogó kérdésem lenne, hogy miként lehet az egyes Excel táblák határait megállapítani? Érthetőbben kifejezve: az adott munkalapon szereplő táblázat hány soros és hány oszlopos? Ez ugye ránézésre simán megy, de ha automatizálni akarom a folyamatot, akkor már gondban vagyok, mert makrórögzítés révén nem tudom kisilabizálni a dolgot. Ezenkívül van valamilyen függvény vagy utasítás, amely megállapítja, hogy az adott fájl hány munkalapból áll?

    Ha nem teljesen világos a kérdésem, szívesen leírom a segíteni szándékozó kedves emberkének, mi is a pontos feladat, aminek a részeként ezek kellenek. :R

    az első kérdésre, mingyárt megírom a macrot

    a második engem is érdekelne

    Hány cella van egy oszlopba :


    Sub mennyi_van_kitoltve()
    Worksheets(''Munka1'').Select
    Db = 0
    If [A1].Value = '''' Then
    Db = 0
    Else
    If [A2].Value = '''' Then
    Db = 1
    Else
    For Each cella In Range([A1], [A1].End(xlDown))
    Db = Db + 1
    Next
    End If
    End If
    ActiveCell.Value = Db
    End Sub



    [Szerkesztve]

Új hozzászólás Aktív témák