Excel VBA質問箱 IV

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

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


29853 / 76738 ←次へ | 前へ→

【52159】Re:Addlineで作った図形の塗りつぶしについて
質問  ちゃや  - 07/10/25(木) 18:31 -

引用なし
パスワード
      Set 表3 = Range("p6:p9")  
    For I = 2 To .Rows.Count ' 実データである2行目から
        If Application.Match(I, 表3, 0) Then
          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の番号とPの列にある数値が一致したらというIF文がつくれるでしょうか??何回もすみません。よろしくおねがいします。
0 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 発言

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