エクセルの学校：全文検索：Hyper Estraier：平均平日

Results of 1 - 1 of about 28 for 平均平日 (0.001 sec.)

平均 (1366), 平日 (459)

[[20110709004956]]: #score: 10343; @digest: 7993415f6d190976df3b376ee7dd3aa0; @id: 55178; @mdate: 2011-07-11T13:38:27Z; @size: 7852; @type: text/plain; #keywords: myname (15511), ムネ (8850), 帳") (7852), ボボ (7670), ンボ (5386), 付番 (4921), 台帳 (4203), 者名 (3468), 当者 (3139), 田中 (2686), selection (2670), 担当 (2547), ーオ (2420), ボッ (2381), フィ (1969), コン (1955), select (1954), ルタ (1936), autofilter (1895), クス (1553), ィル (1542), ロ実 (1505), criteria1 (1442), cutcopymode (1434), タオ (1421), 振り (1312), り分 (1293), range (1292), xldown (1263), で選 (1232), オプ (1172), ィー (1160); 『コンボボックスの値で振り分け』（くみ）
Excel2003使用です。いつもお世話になってます。リストからデータを抽出して別シートへ転記したいと考えてます。 1_台帳という名前のシートに A B C D E ・・・・ 1 2 日付番号担当者品名個数・・・・ 3 4/01 001 田中コーラ 1 ・・・・ 4 4/02 002 佐藤サイダー 2 ・・・・ 5 4/02 003 田中ラムネ 1 ・・・・ 6 4/03 004 小島コーヒー 3 ・・・・ 7 4/04 005 佐藤ラムネ 2 ・・・・・・・と入力があります。1年で1500行程のデータになります。例えば、1行目あたりに担当者名を選択できるコンボボックスとマクロ実行ボタンを作って担当者名を選択した後にボタンを押すと、コンボボックスで選択した担当者名で C列をオートフィルターかけて、結果をコンボボックスで選択した担当者名と同じシートに転記したいのです。担当者名と同じ名前のシートは既に作成済です。コンボボックスで「田中」を選択してマクロ実行した場合 sheet名「田中」 A B C D 1 日付番号品名個数 2 4/01 001 コーラ 1 3 4/02 003 ラムネ 1 4 となるようにしたいのです。（振り分け後には、担当者名はいらない）マクロの記録で、オートフィルタかけてコピペするのはできたのですがコンボボックスで選択したのと同じ値でオートフィルタとか同じ名前のシートにペースト…とかなると、どうすればよいのか解りません。一応以下がマクロの記録でできたモジュールです。 Sub 振り分け() Selection.AutoFilter Field:=7, Criteria1:="田中" Range("A3:B3").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("田中").Select Range("A2").Select ActiveSheet.Paste Sheets("1_台帳").Select Range("D3:E3").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets("田中").Select Range("C2").Select ActiveSheet.Paste Range("A3").Select End Sub 何をどのように付け加えればよいのか、ご指導いただけませんか。 ---- 1. 表が1行目からに成るように配置してコンボボックスとマクロ実行ボタンはA列に作るとか別シートに作るとかして。。。フィルタオプションの設定で抽出するのがコードの修正をするのも簡単に成るのではないかと思います。 2. 最後の列が値で終わるなら（サンプルで、表の最後（D列）は個数（値）に成っています）ピボットテーブルで代用出来るかもしれません。 http://www.excel.studio-kazu.jp/lib/e2d/e2d.html ライブラリ「ピボットテーブル入門 [Excel2003版]」ページのフィールド担当者行のフィールド日付番号品名データアイテム個数ページのフィールドで担当者を絞り込んだり出来ますので人数分のページを作る必要が無くなるんじゃないかと思います。データに変更が在った場合は更新が必要ですが。。。現在の作りであればその点の条件は同じ様な気がします。 3. 載せて居られる方法を決行するなら。。。コンボボックスが、フォームのコンボボックスだった場合リンクするセルをA1セルとかにして、B1セルにINDEX関数等で選択している人の名前を表示する。コード内の「"田中"」と成っている所を Range("B1").Value に変更。で動くのではないかと思いますが。あ、データ量が減った時の事を考えてコピー前に貼付先のシートのデータは削除しておくのが良いかもしれません。。。 (HANA) ---- HANAさん、有難うございます。 2.のピボットテーブルは、この先項目数がかなり増える可能性があるのでやめました。元々この台帳の作成管理は他の方がやっており、別シートに振り分けた後に何かやりたいようです。 3.で教えていただいた方法で上手くいきました。なるほど。こういう方法でやればいいのか。とスッキリです。アドバイスいただいた貼付先シートのデータ削除は、おっしゃるとおりですので組み込ませていただきました。勉強になります。 1.のフィルタオプションを使う方法がいまいち解らないのでもう少し自分で試行錯誤して試してみようかと思います。どうしても解らなければ、教えてください。その時はよろしくお願いします。（くみ） ---- おすすめとしてはHANAさんが一番目にあげておられるフィルターオプション。エクセル上の操作でやっても、簡単にできるし、VBA化しておくのも割合と簡単。おなじフィルターでもオートフィルターより扱いやすいと個人的には思う。 (オートフィルタは抽出条件をコードで与えることができるけどフィルターオプションはシート上に検索欄を設ける必要があるのが難点だけど）いずれにしてもエクセルのフィルター機能が優れものだと思う。参考までに、アップされたオートフィルターのそのままのコードに、絞り込み条件を変数にしたものを振り分け2 として。それを、少し整理したものをSample2として、またフィルターオプションを使ったものをSample1として。いずれも、レイアウトは今のまま2行目がタイトル、コンボボックスで選んだ値が、仮にC1 にリンクされているという前提。 Sub 振り分け2() Dim myName As String myName = Range("C1").Value 'コンボボックスで選んだ値のリックされているセル Selection.AutoFilter Field:=3, Criteria1:=myName '★ Range("A3:B3").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets(myName).Select '★ Range("A2").Select ActiveSheet.Paste Sheets("1_台帳").Select Range("D3:E3").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets(myName).Select '★ Range("C2").Select ActiveSheet.Paste Range("A3").Select End Sub Sub Sample1() Dim x As Long, y As Long, z As Long Dim myName As String Dim sh As Worksheet With Sheets("1_台帳") myName = .Range("C1").Value 'コンボボックスで選んだ値のリックされているセル If Not IsObject(Evaluate(myName & "!A1")) Then MsgBox "シート: " & myName & "がありません" Else Set sh = Sheets(myName) x = .Cells(2, .Columns.Count).End(xlToLeft).Column y = .Range("A" & .Rows.Count).End(xlUp).Row z = x + 2 '作業列 .Cells(1, z).Value = .Range("C2").Value '氏名タイトル .Cells(2, z).Value = myName sh.Cells.ClearContents sh.Range("A1:B1").Value = .Range("A2:B2").Value sh.Range("C1:D1").Value = .Range("D2:E2").Value .Range("A2").Resize(y - 1, x).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Cells(1, z).Resize(2), CopyToRange:=sh.Range("A1:D1"), Unique:=False .Cells(1, z).Resize(2).ClearContents Set sh = Nothing End If End With End Sub Sub Sample2() Dim myName As String Dim sh As Worksheet With Sheets("1_台帳") myName = .Range("C1").Value 'コンボボックスで選んだ値のリックされているセル If Not IsObject(Evaluate(myName & "!A1")) Then MsgBox "シート: " & myName & "がありません" Else Set sh = Sheets(myName) sh.Cells.ClearContents sh.Range("A1:B1").Value = .Range("A2:B2").Value sh.Range("C1:D1").Value = .Range("D2:E2").Value .Range("A2").AutoFilter Field:=3, Criteria1:=myName .AutoFilter.Range.Columns("A:B").Copy sh.Range("A1") .AutoFilter.Range.Columns("D:E").Copy sh.Range("C1") Application.CutCopyMode = False .AutoFilterMode = False Set sh = Nothing End If End With End Sub ぶらっと立ち寄り ---- ぶらっと立ち寄りさんコード3つもありがとうございます!!! フィルタオプションは今まであまり使ったことがなかったのですが使ってみると便利ですね。正直、VBA化するとこういう風になるんだ…とキョトンとしていますが。マクロの記録でとったコードも、整理するとずいぶん変わるんですね。やっぱり、変数の宣言とかからちゃんと勉強しないとダメですね。色々勉強になりました。どの方法を使うかは相談して決めたいと思います。今後も役立つので大変助かりました。 HANAさん、ぶらっと立ち寄りさん、有難うございました。 (くみ） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201107/20110709004956.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ