CONTAS A RECEBER

USUARIO.EXCLUIDOS 25/08/2006 16:01:31
#167366
Para vc somar uma coluna do FlexGrid, vc pode fazer assim:

  
DIM Resultado as Double
Dim a as Intenger
RESULTADO = 0
For a = 1 To Flx.Rows - 1 
    If Flx.TextMatrix(a, 1) <> "" Then  'o Numero 1 é a coluna q vc qr somar
       RESULTADO = RESULTADO + CDbl(Flx.TextMatrix(a, 1))
    End If
Next
MsgBox RESULTADO


Abraços
USUARIO.EXCLUIDOS 25/08/2006 17:21:28
#167430
ai maumau,.valew... mas eu quero é somar as que tem linha vermelha....
mas primeiro tenho que saber como pintar um linha do flexgrid...


qual ai sabe?
USUARIO.EXCLUIDOS 25/08/2006 17:36:08
#167435
Dê uma olhada no arquivo em anexo, o mesmo faz o que vc deseja no duplo clique do mouse...ele pinta de vermelho a linha na qual você executou o duplo clique..
USUARIO.EXCLUIDOS 25/08/2006 17:43:32
#167441
Fiz mais um exemplo inclusive somando uma coluna do grid de acordo com a cor...

Dê uma olhada, é só marcar as linhas que quisser somar e clicar no botão soma.
RONALD.OTAVIO 25/08/2006 19:25:15
#167460 Resposta escolhida
Tente fazer isto :

Private Sub Command1_Click()
Dim Resultado As Double
Resultado = 0
For wa = 1 To MSHFlexGrid1.Rows - 1
    MSHFlexGrid1.Row = wa
    If MSHFlexGrid1.CellBackColor = &HFF& Then
    If MSHFlexGrid1.TextMatrix(wa, 1) <> "" Then  'o Numero 1 é a coluna q vc qr somar
       Resultado = Resultado + CDbl(MSHFlexGrid1.TextMatrix(wa, 1))
    End If
    End If
Next
MsgBox Resultado
End Sub


Private Sub Form_Load()
   MSHFlexGrid1.Rows = 10: MSHFlexGrid1.FixedCols = 0
   MSHFlexGrid1.TextMatrix(1, 1) = 10
   MSHFlexGrid1.TextMatrix(2, 1) = 3
   MSHFlexGrid1.TextMatrix(3, 1) = 5
End Sub


Private Sub MSHFlexGrid1_Click()
   MSHFlexGrid1.CellBackColor = &HFF&
End Sub
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar