Excelで検索条件つきで日付順に並べたいです。

質問

Excelで検索条件つきで日付順に並べたいです。

同じブックに、
「一覧」「あああ社」「いいい社」「ううう社」
という4つのシートがあり、

「一覧」
　　A　　　　B　　　　　C　　　　　　　D　　
1　日付　所在地　　物件　　　管理会社　
2　3/4　　東京　　みなと荘　あああ社
3　3/7　　埼玉　　彩ハイツ　いいい社
4　3/4　　東京　　みなと荘　ううう社
5　3/1　　千葉　　千葉住宅　あああ社

このようなシートから、
「あああ社」のシートに
　　A　　　　B　　　　　C　　　　　　　D　　
1　日付　所在地　　物件　　　管理会社　
2　3/1　　千葉　　千葉住宅　あああ社
3　3/4　　東京　　みなと荘　あああ社
4
5

と、あああ社の物件を日付順に並べられる、
あああ社!A1～D5のそれぞれのセルに
入れる関数はありますでしょうか。

会社は3社固定です。
できれば関数でやりたかったのですが、
マクロでないと無理だとの事で、
こちらで質問をするようアドバイスを頂きました。

宜しくお願いいたします。

回答No.4

nda23 · ベストアンサー

Sub 仕分け()
Dim 集合 As Sheets
Dim 一覧 As Worksheet
Dim 会社 As Worksheet
Dim 名前 As String
Dim 最終 As Long
Dim 行 As Long
Dim 列 As Long
Dim 先 As Long
Dim 名

Set 集合 = ThisWorkbook.Worksheets
Set 一覧 = 集合("一覧")
最終 = 一覧.Cells(65536, 1).End(xlUp).Row
For 行 = 2 To 最終
　　名 = 一覧.Cells(行, 4)
　　Set 会社 = Nothing
　　On Error Resume Next
　　Set 会社 = 集合(名)
　　On Error GoTo 0
　　If 会社 Is Nothing Then
　　　　Set 会社 = 集合.Add(After:=集合(集合.Count))
　　　　会社.Name = 名
　　End If
　　名 = 名 & vbTab
　　If InStr(名前, 名) = 0 Then
　　　　会社.Cells.Delete
　　　　名前 = 名前 & 名
　　　　For 列 = 1 To 4
　　　　　　会社.Cells(1, 列) = 一覧.Cells(1, 列)
　　　　Next
　　End If
　　先 = 会社.Cells(65536, 1).End(xlUp).Row + 1
　　For 列 = 1 To 4
　　　　会社.Cells(先, 列).Value = 一覧.Cells(行, 列).Value
　　　　会社.Cells(先, 列).NumberFormat = 一覧.Cells(行, 列).NumberFormat
　　Next
Next
For Each 名 In Split(名前, vbTab)
　　If 名 = "" Then Exit For
　　Set 会社 = 集合(名)
　　先 = 会社.Cells(65536, 1).End(xlUp).Row
　　会社.Range("A2:D" & CStr(先)).Sort key1:=会社.Cells(2, 1)
Next
End Sub

本メソッドを該当ブックの標準モジュールにコピペしてください。
この「仕分け」メソッドを実行すると、振り分け＋ソートを行います。

お礼

回答ありがとうございます。

ほぼ理解できていませんが、完璧に狙い通りの動作です。
これをAuto_Openにしておいて、最後にメッセージを出し、
少し待ってもメッセージが出なかったら閉じて再度開いて
マクロを有効にするよう周知すればどうにかなる気がしてきました。

助かりました。ありがとうございます。
この動作も勉強したいと思います。

回答No.5

DOUGLAS_

＞実際運用するのが、PC初心者
＞出来れば関数でやりたかった
＞運用する方々のPCスペックもそれほど良いものではない
とのことでしたら、無条件に
＞上記以上に「補助列」を設けて、四苦八苦すること
になりましょうか。。。

１）[一覧] シート の E2 に
=D2 & COUNTIF(D$1:D2,D2)+1
と入力し、これを下方向に オートフィル します。
２）[一覧] シート Ｅ列 は非表示にします。
３）[あああ社] シート の E1 に「あああ社」、F1 に「0」と入力します。
４）[あああ社] シート の E2:H2 に、それぞれ
=MATCH(E$1&ROW(),一覧!E:E,0)
=IF(ISNA(E2),50000,INDEX(一覧!A:A,$E2))
=MATCH(SMALL(F:F,ROW()),F:F,0)
=INDEX(E:E,$G2)
と入力します。
５）[あああ社] シート の A2 に
=IF(ISNA($H2),"",INDEX(一覧!A:A,$H2))
と入力し、B2:D2 に コピー します。
６）[あああ社] シート の A2:H2 を選択し下方向に オートフィル します。
７）[あああ社] シート の Ｅ列～Ｈ列 を非表示にします。

　Ｄ列 は不要かと存じますので、全て入力して「あああ社」から引っ張ってこられたことが確認できましたら、後からでも Ｄ列 は削除できます。

回答No.3

n-jun

元の質問はリンクしておいた方がよいかも。

http://okwave.jp/qa/q5778423.html

質問するカテゴリは
デジタルライフ > ソフトウェア > MS Office
で良いはずですよ。
関数にせよマクロにせよExcelの質問ですから。

本題ですけど、一覧のシートにあるデータを管理会社毎で且つ
日付順に並び替えてコピー（or　移動？）させるという感じなのでしょうか？

お礼

ご回答ありがとうございます。

元の記事へのリンクありがとうございます。
今後このような形での質問があれば、リンクを貼らせていただきたいと思います。
お手数おかけいたしました。

>本題ですけど、一覧のシートにあるデータを管理会社毎で且つ
>日付順に並び替えてコピー（or　移動？）させるという感じなのでしょうか？

仰るとおりです。
日次での処理で、全件データベースソフトからエクスポートしており、
日々増えていくものなのでコピーでも移動でもかまいません。
これをなにも知識の無い初心者でも数クリックするだけで処理するのが目標です。

回答No.2

DOUGLAS_

＞できれば関数でやりたかったのですが、
＞マクロでないと無理だとの事で、
＞こちらで質問をするようアドバイスを頂きました。
　そんなことはありません。

　関数でもできなくはありませんが、[配列数式] という、難解な数式になるだけの話です。
　で、その [配列数式] という難解な数式を組み立てる間には、マクロ を書いた方が早いというような意味ではないでしょうか？

　例えば、[あああ社] シート の
１）E2 に
=SMALL(IF(一覧!$D$2:$D$1000="あああ社",一覧!$A$2:$A$1000 + ROW(一覧!$D$2:$D$1000)/86400,50000),ROW(A1))
と入力して [Shift] + [Ctrl] + [Enter] で確定します。
２）F2 に
=TEXT(E2,"h:m:s")*86400
と入力して、こちらは [Enter] で確定します。
３）A2 に
=IF($F2=0,"",INDEX(一覧!A:A,$F2))
と入力し、これを B2:D2 に コピー します。
４）A2:F2 を選択し、下方向に必要分以上 オートフィル します。
５）Ｅ列・Ｆ列を非表示にします。

　ちなみに、この方法は、計算量が多くなり、スペック の低い パソコン にはとても負担が掛かりますし、大体、[配列数式] 自体を組み立てるのが一苦労なので、余りお薦めではありませんね。

　[配列数式] を使わない方法でしたら、上記以上に「補助列」を設けて、四苦八苦することもできましょうが、普通は、[一覧] シート で (１)[管理会社] 順、(２)[日付] 順に並べ替えたものを、各シート に配って歩くのが簡単でしょうか。

お礼

回答ありがとうございます。
貼り付ける前に日付ソートをすることを前提として、
=OFFSET(一覧!$A$1,1/LARGE(INDEX((一覧!$D$2:$D$1500=$D$2)/ROW(一覧!$D$2:$D$1500),),ROW(一覧!D1))-1,2)
という配列数式は自分で組んでみたのですが、
ご提示頂いた方法を使えば事前ソート無しで出来ますね。
非常に勉強になりました。

実際運用するのが私ではなく、PC初心者も多いので複数工程を全員に伝えるのはなかなか難しいうえに
最初の画面でマクロをオフにしてしまう人もいるため出来れば関数でやりたかったのですが、
運用する方々のPCスペックもそれほど良いものではないため
（実際やってみたところフリーズはしませんが、計算中画面が数十秒間真っ白になります。）
どちらにしようか迷っております。

回答No.1

ICE_FALCON

他のシートにコピーしなくても
オートフィルタ使えば簡単ですよ？

表のどこでもいいから選択して、
データ→フィルタ→オートフィルタ
を選択すればＯＫ。

どうしても他のシートにコピーしたいなら、

オートフィルタで社名を選択
表を全部選択
可視セルのみコピーして他のシートにペースト

という動作をマクロに記録すれば簡単。

マクロの記録じゃなく自分で書くなら↓なんか参考になりそう。
http://www4.ocn.ne.jp/~yy3/Sub47.html

お礼

回答ありがとうございます。

可視セルのみコピーというマクロが組めるのですね。
参考になりました。