Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: Yhteenlasku flexgridillä

Rinka [23.10.2004 17:10:12]

#

Osaisiko joku neuvoa, kuinka voi laskea rivien ja sarakkeiden summan flexgirissä, kun tieto tulee suoraan tietokannasta ja näin ollen rivien määrä voi vaihdella?

BadSource [25.10.2004 07:08:07]

#

FlexGrid:stä löytyy sellaiset ominaisuudet kuin Rows ja Cols, jotka kertovat montako riviä ja saraketta kyseisessä ruudukossa on. FixedRows ja FixedCols ilmoittavat ns. otsikkorivien ja -sarakkeiden määrän.

If MSFlexGrid1.FixedRows > 0 Then
    MsgBox MSFlexGrid1.Rows - MSFlexGrid1.FixedRows & " riviä tietoa"
Else
    MsgBox MSFlexGrid1.Rows & " riviä tietoa"
End If
If MSFlexGrid1.FixedCols > 0 Then
    MsgBox MSFlexGrid1.Cols - MSFlexGrid1.FixedCols & " saraketta tietoa"
Else
    MsgBox MSFlexGrid1.Cols & " saraketta tietoa"
End If

Edit: Vastaus itse kysymykseen
Seuraava summaa ensimmäisen todellisen sarakkeen tiedot, jos ne on lukuja. Rivi- ja sarakenumerot alkavat nollasta.

With MSFlexGrid1
    For i = .FixedRows To (.Rows - 1) '-1 koska rivit alkaa nollasta
        If IsNumeric(.TextMatrix(i, .FixedCols)) Then
            Summa = Summa + Val(.TextMatrix(i, .FixedCols))
        End If
    Next i
End With

Vastaus

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

Tietoa sivustosta