投稿日 | : 2003/07/04(Fri) 15:58 |
投稿者 | : bingo |
Eメール | : |
URL | : |
タイトル | : MSFlexGridの文字の色 |
いつもお世話になります。
MSFlexGridの個々のセルの色を分けたいのですが
どうすればよろしいのでしょうか?
Dim i As Long 'ループ用カウンター
Dim Cnt As Long '行の総数を取得
Dim MsInfo As MSHFlexGrid
Set MsInfo = Form1.Info
With MsInfo
Cnt = .Rows - 1
.Col = 4
For i = 1 To Cnt
.Row = i
If .Text < 0 Then
.ForeColor = RGB(255, 0, 0)
End If
Next
End With