投稿日 | : 2004/05/02(Sun) 09:42 |
投稿者 | : nobu |
Eメール | : |
URL | : |
タイトル | : Re^3: MSFlexGridの使い方で…。 |
すでに修正個所のフォローがあるので分かったとは思いますが
> For x = 1 To 4
> For y = 1 To 5
> .TextMatrix(x, y) = a <--- セルに値をセットする時はこの書式
今回の様にセルの値により色を変更する様な時は
セルの値を取得する必要があるので
a = .TextMatrix(x, y) と言う書式にする必要があります。
> Next
> Next
値を判断して色を変えたい訳ですから下記では最後に1回のみしか
判断していません。
> If a <= 35 Then
> .CellForeColor = vbRed
> End If
処理手順を考えて見ましょう。
1.各行に付いての
2.左側のセルから順次右側のセルの値を取得して
3.取得した各セルの値により色を変えて表示する。
4.1行の全てのセルの値の取得、判断、色表示が終わったら
5.次の行へ移る。
これを繰り返して最後の行まで処理する必要がありますので
For x = 1 To 4
For y = 1 To 5
a = .TextMatrix(x, y)
<---- ここの取得した値により色を変えて表示する処理を書く
Next y
Next x
プログラムを書く時には手作業で処理をする時の手順を考えて見ましょう。
フローチャートと言う図を書いてからプログラムする事も必要かも。