MSFlexgridで3列目にマイナスの数字があれば赤文字にしたい。


ひろ  2004-02-05 20:19:46  No: 111692  IP: [192.*.*.*]

MSFlexGridで3列目の中でマイナスの数字が表示されたら、その数字を赤文字にしたいのですが、どのようにしたらいいのかわかりません。
教えてください。お願いします。

編集 削除
特攻隊長まるるう  2004-02-06 09:01:14  No: 111693  IP: [192.*.*.*]

過去ログを『グリッド』で検索すれば…って微妙なコードしか
載ってないかなぁ…。
1,MSFlexGrid の3列目のデータを1行目から順に取り出す。
2,数値が負である事を判断する。
3,セルの文字色の変更。
…全部分かりませんか?。

編集 削除
さくら  2004-02-06 11:03:16  No: 111694  IP: [192.*.*.*]

こんな感じかな・・・
適当にセルに印字させてから
セルの値を比較してセルを指定しています
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

編集 削除