| |
困っています。ご教授をお願いします。
Sheet1には元データが入っています。
Ａ列（コード） Ｂ列（品名） Ｃ列（価格） Ｄ（個数） Ｅ（仕入先）
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
１ 11111-111 商品Ａ 10,000 5 Ａ社
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
２ 22222-222 商品Ｂ 20,000 3 Ｂ社
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
３ 33333-333 商品Ｃ 30,000 2 Ｃ社
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
４ 44444-444 商品Ｄ 40,000 8 Ｄ社
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
（以下 約２００行）
このうち、該当する行だけを選択してsheet2に貼り付けるマクロを作りました。
sheet3が定められた様式になっていて、sheet2と結ばれています。
sheet3
Ａ列 Ｂ列 Ｃ列 Ｄ列 Ｅ列 Ｆ列
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
１ 11111-111 商品Ａ 10,000 5 Ａ社 Ｂ社
２ Ｃ社 その他
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
３ 22222-222 商品Ｂ 20,000 3 Ａ社 Ｂ社
４ Ｃ社 その他
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
５ 33333-333 商品Ｃ 30,000 2 Ａ社 Ｂ社
６ Ｃ社 その他
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
７ 44444-444 商品Ｄ 40,000 8 Ａ社 Ｂ社
８ Ｃ社 その他
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
以下約１０品目程度記入
Ａ２〜Ｄ２、Ａ４〜Ｄ４、Ａ６〜Ｄ６は
それぞれ上の行と結合されています。
Ａ１セルには＝sheet2!A1
Ｂ１セルには＝sheet2!B1
等の式が入れてあり、マクロでsheet１からsheet2に転記すれば
sheet3に表記されるようになっています。
マクロ実行時に、Ｅ・Ｆ列の該当するセルにオートシェープで丸を付けたいのですが、
うまくいかずに困っています。
商品Ａの場合は、Ｅ１に、商品ＢはＦ３に、商品ＣはＥ６に、また、商品ＤのようにＡ社・Ｂ社・Ｃ社以外から仕入れた商品には、その他に丸を付けたいのです。
今のマクロは以下のとおりです。
Sub ボタン1_Click()
Sheets("sheet2").Select
Cells.Select
Selection.ClearContents
Sheets("sheet1").Select
On Error Resume Next
Range("A1:A65536").SpecialCells(xlCellTypeConstants).EntireRow.Select
Selection.Copy
Sheets("sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("sheet3").Select
End Sub
説明が分かりにくいかもしれませんが、
どうかよろしくお願いします。
|
|
どぢょりん
- 11/10/15(土) 0:11 -
