COMO FORMATAR COLUNAS NO MSHFLEXGRID?
Boa Tarde, galerinha....
Como que eu faço pra formatar uma COLUNA no MSHFLEXGRID via código. Têm como fazer isso??
Como que eu faço pra formatar uma COLUNA no MSHFLEXGRID via código. Têm como fazer isso??
algum destes dois códigos lhe ajuda (ambos foram pegos em respostas a posts recentes sobre flexgrid, e precisam ser adaptados):
For i = 1 To FlexGridEstoqueFinal.Rows - 1
FlexGridEstoqueFinal.TextMatrix(i, 14) = Format(FlexGridEstoqueFinal.TextMatrix(i, 14), "###,##0.00")
Next
ou então
Sub CordeFundo(NomedoGrid As MSFlexGrid)
Dim L As Integer: Dim C As Integer
With NomedoGrid
.FillStyle = flexFillSingle
'Supondo que a coluna á ser verificada seja a 3
For L = 1 To .Rows - 1
For C = 1 To .Cols - 1
.Col = C: .ColSel = .Col: .Row = L
Select Case C
Case Is = 3
If CDate(.TextMatrix(L, C)) < Date Then
.CellBackColor = vbRed ' Cor de Fundo
'Fica um pouquinho melhor se usar .CellForeColor = vbRed ' Cor da Fonte
Else
.CellForeColor = vbBlue
End If
End Select
Next
Next
.FillStyle = flexFillRepeat
End With
End Sub
For i = 1 To FlexGridEstoqueFinal.Rows - 1
FlexGridEstoqueFinal.TextMatrix(i, 14) = Format(FlexGridEstoqueFinal.TextMatrix(i, 14), "###,##0.00")
Next
ou então
Sub CordeFundo(NomedoGrid As MSFlexGrid)
Dim L As Integer: Dim C As Integer
With NomedoGrid
.FillStyle = flexFillSingle
'Supondo que a coluna á ser verificada seja a 3
For L = 1 To .Rows - 1
For C = 1 To .Cols - 1
.Col = C: .ColSel = .Col: .Row = L
Select Case C
Case Is = 3
If CDate(.TextMatrix(L, C)) < Date Then
.CellBackColor = vbRed ' Cor de Fundo
'Fica um pouquinho melhor se usar .CellForeColor = vbRed ' Cor da Fonte
Else
.CellForeColor = vbBlue
End If
End Select
Next
Next
.FillStyle = flexFillRepeat
End With
End Sub
VarColuna = 2
For a = 0 to flex.rows
Flex.Row = a
Flex.Col = VarColuna
Flex.CellBackColor = VbRed
Flex.CellFontName = "Verdana"
Flex.CellFontSize = "12"
Next a
é isso?
Valeu...
AS duas respostas me ajudaram a resolver o meu problema.
AS duas respostas me ajudaram a resolver o meu problema.
Tópico encerrado , respostas não são mais permitidas