Keskustelu: Ohjelmointikysymykset: [VBA] excel-taulukon rivimäärä?

orriz [21.09.2009 12:27:35]

Hei,

miten saan Excel-taulukon rivimäärän selville? Minulla on tietokanta samassa Excelissä, missä itse ohjelmakin. Rivimäärä vaihtelee, joten pitäisi alue saada määritettyä automaattisesti. Tällä hetkellä olen syöttänyt sen range:n avulla, koska tiedän rivien määrän.

Set toimittaja2 = Application.Sheets(3).Range("D2:D9281")

neau33 [21.09.2009 20:45:49]

Moikka orriz!

tässä eräs tapa...

Private Sub CommandButton1_Click()

    Dim rivit, sarakkeet
    rivit = Sheets("Taul1").UsedRange.Rows.Count
    sarakkeet = Sheets("Taul1").UsedRange.Columns.Count

    Dim sarake1rivit, rivi1sarakkeet

    For i = rivit To 1 Step -1
        sarake1rivit = i
        If Not IsEmpty(Cells(i, 1)) Then Exit For
    Next i

    For i = sarakkeet To 1 Step -1
        rivi1sarakkeet = i
        If Not IsEmpty(Cells(1, i)) Then Exit For
    Next i

    MsgBox "Koko taulu (käytössä):" & _
    vbCrLf & rivit & " riviä" & _
    " ja " & sarakkeet & " saraketta" _
    & vbCrLf & vbCrLf & _
    "Sarakkeen 1 rivit: " & sarake1rivit & _
    vbCrLf & "Rivin 1 sarakkeet: " & rivi1sarakkeet

End Sub

orriz [23.09.2009 10:56:33]

Kiitti! Kokeilen tuota...

orriz [24.09.2009 11:14:48]

Hyvin pelas. Laitoin homman näin. Kiitti nopeasta vastauksesta!

Set toimittaja2 = Application.Sheets(3).Range("D2:D" & Application.Sheets(3).UsedRange.Rows.Count)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen