投稿日	： 2007/01/12(Fri) 12:47
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： 全ての行で比較したいなら

もう一つの問題は、LESIA さんの回答の通り、比較している "A" に問題があるから
です。

If .TeamChar = "A" Then　とすれば、全部のセル(全ての行のすべての列)のデータに対
して同じ条件で比較している事になりませんか？
If frmMain.grdJournal.TextMatrix(Ro, 2) = "A" Then　のように特定の列のデータと
比較しないと同じ答えになってしまいますよ。

コードが都度変っているようですが、貼り付けた行だけ検査したいのか？
すべての行のTeamChar のデータが入力されている列を検査したいかどちらなの
ですか？
次回からコードを投稿される場合は、行毎に意図する事をコメントで記入して
ください。
コードが間違っているのか、仕様なのか判断できません（基本的な事で勘違いして
おられると）

# 誤解されると困るので、全部のセルとはループで回して比較してしているセルの
　事でループ以外は、黒になっているのでは。

全ての行に対して比較したいなら下記を試して見て下さい。

   Dim Ro As Long, Co As Long
   With frmMain.grdJournal
      .Visible = False
      For Ro = .FixedRows To .Rows - .FixedRows
         For Co = .FixedCols To .Cols - .FixedCols
            .Row = Ro
            .Col = Co
            If .TextMatrix(Ro, 2) = "A" Then
               .CellForeColor = vbRed
            Else
               .CellForeColor = vbBlue
            End If
         Next Co
      Next Ro
      .Visible = True
   End With

★ - MSFlexGridの行を色分けするには？ - tea 01/12-00:16No.8069
• Re: MSFlexGridの行を色分けするには？ - 花ちゃん 01/12-00:34 No.8070
  • Re^2: MSFlexGridの行を色分けするには？ - tea 01/12-08:14 No.8071
    • Re^3: MSFlexGridの行を色分けするには？ - 花ちゃん 01/12-08:28 No.8072
      • Re^4: MSFlexGridの行を色分けするには？ - tea 01/12-09:05 No.8073
        • Re^5: MSFlexGridの行を色分けするには？ - 魔界の仮面弁士 01/12-09:19 No.8074
          • Re^6: MSFlexGridの行を色分けするには？ - tea 01/12-09:53 No.8075
            • Re^7: MSFlexGridの行を色分けするには？ - 水無月 01/12-10:24 No.8076
              • Re^8: MSFlexGridの行を色分けするには？ - tea 01/12-10:53 No.8078
                • Re^9: MSFlexGridの行を色分け... - LESIA 01/12-11:49 No.8079
        • 違いますよ - 花ちゃん 01/12-11:57 No.8080
          • Re: 違いますよ - tea 01/12-12:13 No.8081
            • 全ての行で比較したいなら - 花ちゃん 01/12-12:47 No.8082
              • Re: 全ての行で比較したいなら - tea 01/12-14:18 No.8084
                • 出来ました！ - tea 01/12-14:37 No.8085