Tengo el componente FlexGrid y a traves de este codigo, agregue algunos valores a diferentes celdas:
Código
Private Sub Command1_Click() Dim lCount As Long grid.Rows = 2 grid.Cols = 2 grid.FixedCols = 0 grid.FixedRows = 0 grid.ColWidth(0) = 400 grid.ColWidth(1) = 400 grid.Height = 100000 lCount = 1 grid.TextMatrix(lCount, 1) = "12" lCount = 0 grid.TextMatrix(lCount, 0) = "11" lCount = 1 grid.TextMatrix(lCount, 0) = "10" lCount = 0 grid.TextMatrix(lCount, 1) = "09" End Sub
Pero me gustaría saber como poder por medio de un IF comprobar un volar, por ejemplo:
If (celda fila1, columna 2) = 12 then
msgbox "es 12"
end if
Espero su ayuda amigos
muchas gracias