komanda MSHFlexGrid1.TextMatrix(red, col) ti daje vrijednost celije sa koordinata red, col
Nije mi bas najjasnije ono ''sumu celija u koloni koje imaju istu brojcanu vrednost'',
u prethodnom primjeru dobijas zbir citave kolone, a zbir samo za odredjenu vrijednost možeš dobiti
uz jednu if naredbu
Code:
Dim rezultat As Double
Dim red As Integer 'red u MSHFlex
Dim col As Integer 'kolona u MSHFlex
dim TraziVrijednost as Double
TraziVrijednost = 12 'npr 12
MSHFlexGrid1.AddItem "" ' dodajem jos jedan red u koji upisujem rezultate
For col = 0 To MSHFlexGrid1.Cols - 1
rezultat = 0 'reset rezultata
For red = 0 To MSHFlexGrid1.Rows - 2
if CDbl(MSHFlexGrid1.TextMatrix(red, col)) = TraziVrijednost Then
rezultat = rezultat + CDbl(MSHFlexGrid1.TextMatrix(red, col))
end if
Next red
MSHFlexGrid1.TextMatrix(red, col) = rezultat
Next col