| |
▼どぢょりん さん：
おはようございます。
前にこの質問が出た時も思いましたが、
「セルにオートシェープで丸を付け」る処理そのものはマクロ記録で
基本が得られます。
>Sheet1には元データが入っています。
> Ａ列（コード） Ｂ列（品名） Ｃ列（価格） Ｄ（個数） Ｅ（仕入先）
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>１ 11111-111 商品Ａ 10,000 5 Ａ社
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>２ 22222-222 商品Ｂ 20,000 3 Ｂ社
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>３ 33333-333 商品Ｃ 30,000 2 Ｃ社
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>４ 44444-444 商品Ｄ 40,000 8 Ｄ社
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
> （以下 約２００行）
>
>
>このうち、該当する行だけを選択してsheet2に貼り付けるマクロを作りました。
>sheet3が定められた様式になっていて、sheet2と結ばれています。
これはフィルタで抽出しているわけですか？
つまり、
「商品Ａ」 といったら 「A社」が返ってくるような、LOOKUPテーブルを
メモリ上につくっておけば、
>sheet3
> Ａ列 Ｂ列 Ｃ列 Ｄ列 Ｅ列 Ｆ列
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>１ 11111-111 商品Ａ 10,000 5 Ａ社 Ｂ社
>２ Ｃ社 その他
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>３ 22222-222 商品Ｂ 20,000 3 Ａ社 Ｂ社
>４ Ｃ社 その他
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>５ 33333-333 商品Ｃ 30,000 2 Ａ社 Ｂ社
>６ Ｃ社 その他
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>７ 44444-444 商品Ｄ 40,000 8 Ａ社 Ｂ社
>８ Ｃ社 その他
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>Ｅ・Ｆ列の該当するセルにオートシェープで丸を付けたい
という目的のために「商品 - 仕入れ先」対応表をLOOKUPすることができる
のではないかと思います。
LOOKUPテーブルといったのは、具体的には Dictionaryオブジェクトのこと
です。
Sheet2に出現している「商品と対応する仕入れ先名」をDicに格納していけば
LOOKUPテーブルは簡単につくれます。
Dim dic As Object
Set dic =CreateObject("Scripting.Dictionary")
dic("商品Ａ") = "Ａ社"
〜
イメージとしては こういう感じです。
これができあがったら、
Sheet3 の「商品」の列をうえから順にみていって、
If dic.Exists("商品Ａ") Then
'dic("商品Ａ") で"Ａ社" が返るから、
E,F列の その行.Range(E1:F2)に書いてある仕入れ先名のなかで
"Ａ社"のセルに 丸を描く
といったLoop処理をしていけばいいと思います。
|
|
kanabun
- 11/10/15(土) 8:46 -
