Results of 1 - 1 of about 19641 for 20�����������������������... (0.004 sec.)
- [[20120807171352]]
- #score: 2681
- @digest: a563eb3b9e92296e36309748a5b7869e
- @id: 59833
- @mdate: 2012-08-07T14:33:01Z
- @size: 2897
- @type: text/plain
- #keywords: dtlsh (69558), ab0001c1 (67484), best5 (36556), 名lt (22862), 文no (19821), datash (17139), abooo1c1 (15497), ズ開 (15497), ltdata (15241), 日量 (12470), サガ (10356), アdt (7380), 記行 (5585), 細シ (5070), ガス (4182), 列ク (3649), 出完 (3500), アfo (3438), 注文 (3004), lt (2489), 詳細 (2101), ーオ (1613), 行空 (1302), 始日 (1038), workbooks (775), 指導 (744), clearcontents (715), ル名 (600), 一覧 (561), ルタ (553), リア (539), screenupdating (539)
- 『詳細をマクロで作成』（サガス）
LTのBEST5のA2からA5の注文No,をLTdataの一覧から探し出しBCD列を連れてLT 詳細のように表したいのですが、マクロでご指導お願いします。注文No,の境目は3行 空けたいとおもいます。 それか、LT BEST5のA2をクリックしたら、またはボタンを押したら 下記に表すようなLT 詳細が出てくるようにしたいのですが、初心者にとって 簡単な方をご指導お願いします。 ファイル名 LT.xls ファイル名 LTdata.xls ファイル名 LT.xls シート名 BEST5 シート名 一覧 シート名 詳細 A A B C D A B C D 1 注文No, 1 注文No, サイズ開始日 量 1 注文No, サイズ 開始日 量 2 AB0001C1 2 BC0003C1 L 8/1 30 2 AB0001C1 S 7/20 20 3 AB0002C1 3 DE0001C2 M 8/3 20 3 AB0001C1 S 7/21 20 4 AB0003C1 4 AB0001C1 S 7/20 20 4 AB0001C1 S 8/1 20 5 AB0004C1 5 AB0001C1 S 7/21 20 5 AB0001C1 S 8/4 20 6 AB0005C1 6 ABOOO1C1 S 8/1 20 6 AB0001C1 S 8/7 20 7 ABOOO1C1 S 8/4 20 8 AB0001C1 S 8/7 20 9 EF1234C2 M 7/18 40 ---- エクセル標準機能のフィルターオプションを使う例。 実行時には2つのブックが開かれていることが前提。 Sub Sample() Dim c As Range Dim BEST5 As Worksheet Dim DtlSh As Worksheet Dim DataSh As Worksheet Dim i As Long Application.ScreenUpdating = False Set DataSh = Workbooks("LTdata.xls").Sheets("一覧") Set BEST5 = Workbooks("LT.xls").Sheets("BEST5") Set DtlSh = Workbooks("LT.xls").Sheets("詳細") DtlSh.Cells.ClearContents '作業前に詳細シートの全セルをクリア '詳細シートのE列を作業列として使用 DtlSh.Range("E1").Value = DataSh.Range("A1").Value '注文No タイトル i = 1 '転記行番号 'BEST5のA2からA列最終行までセルを1つずつ取り出す For Each c In BEST5.Range("A2", BEST5.Range("a" & BEST5.Rows.Count).End(xlUp)) DtlSh.Range("E2").Value = c.Value 'フィルター抽出キー 'フィルターオプションによる抽出実行 DataSh.Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DtlSh.Range("E1:E2"), _ CopyToRange:=DtlSh.Range("A" & i), Unique:=False i = DtlSh.Range("A1").CurrentRegion.Rows.Count + 1 '次の転記行 Next 'フィルターで抽出したデータの2番目以降のタイトル行をクリア For Each c In DtlSh.Range("A2", DtlSh.Range("A" & DtlSh.Rows.Count).End(xlUp)) If c.Value = DtlSh.Range("E1").Value Then c.Resize(, 4).ClearContents Next '作業列クリア DtlSh.Columns("E").ClearContents DtlSh.Parent.Activate DtlSh.Activate Application.ScreenUpdating = True MsgBox "抽出完了しました" End Sub (ぶらっと) ---- ぶらっとさん、希望どおりのものが出来ました。一つ一つゆっくり見させて いただきます。ご指導ありがとうございました。 (サガス)... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201208/20120807171352.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97004 documents and 608067 words.
訪問者：