投稿日	： 2004/04/30(Fri) 13:06
投稿者	： 除菌ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: MSFlexGridの使い方で…。

IF文で条件を設定して、
CellForeColor=vbRed
みたいにしたらどうでしょうか？


簡単なサンプルです。

値が１００未満は黒字
値が１００以上１５０未満は赤字
値が１５０以上は緑字にするです。

______________________________________________________________

Private Sub Form_Load()
Dim i As Integer
Dim Atai As Integer

i = 1
Atai = 50


With MSFlexGrid1
.Col = 1
.Row = 0
.CellAlignment = flexAlignCenterCenter
.Text = "適当な値"
.ColWidth(1) = 2000

    Do
        .Row = i
        .CellAlignment = flexAlignCenterCenter
        .Text = Atai
        
        
        If Atai >= 100 And Atai < 150 Then
            .CellForeColor = vbRed
        ElseIf Atai >= 150 Then
            .CellForeColor = vbGreen
        End If
        
        .Rows = .Rows + 1
        
        i = i + 1
        Atai = Atai + 10
        
        
    Loop While (i < 20)
.Col = 0
.Row = 0

End With

End Sub
______________________________________________________________

★ - MSFlexGridの使い方で…。 - 初心者です。 04/30-01:28No.8818
• Re: MSFlexGridの使い方で…。 - nobu 04/30-05:51 No.8819
  • Re^2: MSFlexGridの使い方で…。 - 初心者です。 04/30-10:06 No.8821
• Re: MSFlexGridの使い方で…。 - 除菌ちゃん 04/30-13:06 No.8823
  • Re^2: MSFlexGridの使い方で…。 - 初心者です。 05/01-15:20 No.8829
    • Re^3: MSFlexGridの使い方で…。 - 除菌ちゃん 05/02-01:02 No.8831
    • Re^3: MSFlexGridの使い方で…。 - nobu 05/02-09:42 No.8832
      • ありがとうございます。 - 初心者です。 05/02-18:53 No.8834
        • MSFlexGirdの保存について - 初心者です。 05/05-17:28 No.8842
          • Re: MSFlexGirdの保存について - nobu 05/05-20:05 No.8843
          • Re: MSFlexGirdの保存について - 除菌ちゃん 05/05-21:37 No.8844
          • 投稿されたコードで保存できていますよ - 花ちゃん 05/05-22:34 No.8845
          • 解決しました。 - 初心者 05/11-16:52 No.8929