MSFlexgridで３列目にマイナスの数字があれば赤文字にしたい。 (ID:111694)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

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