|
▼ちゃや さん:
こんばんは。
> Set 表3 = Range("p6:p9")
> For I = 2 To .Rows.Count ' 実データである2行目から
'まず、Application.Match(I, 表3, 0) この式
' 検索値のIは本当に正しいのか?検討してみてください。
' このままだとP列に1があっても1には、色は付きませんよ!!
If Not iserror(Application.Match(I, 表3, 0)) Then
'直接原因は、IがP列の要素ではなかった場合にエラーが発生しています。
'エラー値はTrueでもFalseでもないから、型が一致しない となります
'上記のようにしてみてください。
> Call mk_triangle(Base左 + 座標X節点1 * Ratio _
> , Base下 - 座標Y節点1 * Ratio _
> , Base左 + 座標X節点2 * Ratio _
> , Base下 - 座標Y節点2 * Ratio _
> , Base左 + 座標X節点3 * Ratio _
> , Base下 - 座標Y節点3 * Ratio)
> End If
>
>にしてやってみました。
>しかしPの列には2,3,12,13と書いてあるのに、実際には1,2の要素番号の三角形が塗りつぶされます。それから、型が一致しませんとエラーもでます。
あとは、検索値としてIが本当に適当なのか? よく考えてみてください。
|
|