Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29846 / 76732 ←次へ | 前へ→

【52160】Re:Addlineで作った図形の塗りつぶしについて
発言  ichinose  - 07/10/25(木) 21:19 -

引用なし
パスワード
   ▼ちゃや さん:
こんばんは。

>   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が本当に適当なのか? よく考えてみてください。
2 hits

【52102】Addlineで作った図形の塗りつぶしについて ちゃや 07/10/21(日) 9:35 質問
【52104】Re:Addlineで作った図形の塗りつぶしについ... ichinose 07/10/21(日) 11:15 発言
【52105】Re:Addlineで作った図形の塗りつぶしについ... ichinose 07/10/21(日) 11:25 発言
【52106】Re:Addlineで作った図形の塗りつぶしについ... ちゃや 07/10/21(日) 13:22 質問
【52111】Re:Addlineで作った図形の塗りつぶしについ... りん 07/10/21(日) 15:16 発言
【52115】Re:Addlineで作った図形の塗りつぶしについ... ちゃや 07/10/21(日) 20:21 質問
【52114】Re:Addlineで作った図形の塗りつぶしについ... ichinose 07/10/21(日) 19:50 発言
【52159】Re:Addlineで作った図形の塗りつぶしについ... ちゃや 07/10/25(木) 18:31 質問
【52160】Re:Addlineで作った図形の塗りつぶしについ... ichinose 07/10/25(木) 21:19 発言

29846 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free