MSFlexGridで3列目の中でマイナスの数字が表示されたら、その数字を赤文字にしたいのですが、どのようにしたらいいのかわかりません。
教えてください。お願いします。
過去ログを『グリッド』で検索すれば…って微妙なコードしか
載ってないかなぁ…。
1,MSFlexGrid の3列目のデータを1行目から順に取り出す。
2,数値が負である事を判断する。
3,セルの文字色の変更。
…全部分かりませんか?。
こんな感じかな・・・
適当にセルに印字させてから
セルの値を比較してセルを指定しています
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
With MSFlexGrid1
.Cols = 3
.Rows = 1
For a = 1 To 4
.Rows = .Rows + 1
.TextMatrix(a, 1) = a + 1
.TextMatrix(a, 2) = a + 1
Next a
.TextMatrix(3, 2) = -5
For b = 1 To 4
If .TextMatrix(b, 1) < 0 Or _
.TextMatrix(b, 2) < 0 Then
.Col = 2
.Row = b
.CellForeColor = vbRed
End If
Next b
End With
End Sub