戻る  □VBAのサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
複数範囲のセルの中から日付を順番に表示

    [131261] 複数範囲のセルの中から日付を順番に表示-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ Dat -(2020/04/16(14:53))
    □U R L/

      A2〜A13セルの範囲の中から、特定の月を抽出して、A15〜A26セルに表示し
      抽出した日付のB,C列をB15〜A26セルC15〜A26セルに表示したいのですが
      関数でできますでしょうか?
      また、複数ある場合は、日付の若い順にA15から順番に表示したいのですが
      可能でしょうか?
      日付が同じの場合は、B列のセルの上のほうを優先して表示したいです。


      A     B   C
      1 日付   氏名  数量
      2 2020/1/2 名前A 10
      3 2020/1/3 名前B 20
      4 2020/1/4 名前C 30
      5 2020/7/15 名前D 40
      6 2020/1/26 名前E 15
      7 2020/8/7 名前F 25
      8 2020/2/8 名前G 35
      9 2020/1/4 名前H 45
      10 2020/5/10 名前I 55
      11 2020/8/11 名前J 70
      12 2020/1/12 名前K 80
      13 2020/12/23 名前L 90




    [131262] Re[1]: 複数範囲のセルの中から日付を順番に表示-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2020/04/16(16:15))
    □U R L/

      囘答する前に“答案”の適否/正否を檢證する爲に、貴方が期待する並べ替えの結果表を示して下さい。




    [131263] Re[2]: 複数範囲のセルの中から日付を順番に表示-

    記事引用/メール受信=OFF■

    □投稿者/ Dat -(2020/04/16(17:13))
    □U R L/
      Mike様
      ご返信ありがとうございます。
      
      ------------------------------------
      
      A  B          C       D
      1   日付       氏名   数量
      2   2020/1/2    名前A   10
      3   2020/1/3    名前B   20
      4   2020/1/4    名前C   30
      5   2020/7/15   名前D   40
      6   2020/1/26   名前E   15
      7   2020/8/7    名前F   25
      8   2020/2/8    名前G   35
      9   2020/1/4    名前H   45
      10  2020/5/10   名前I   55
      11  2020/8/11   名前J   70
      12  2020/1/12   名前K   80
      13  2020/12/23  名前L   90
      
      ------------------------------------
      
      上の場合ですと、特定の月を1月とすると以下のようにしたいです。
      宜しくお願い致します。
      
      
      15  2020/1/2    名前A   10
      16  2020/1/3    名前B   20
      17  2020/1/4    名前C   30
      18  2020/1/4    名前H   45
      19  2020/1/12   名前K   80
      20  2020/1/26   名前E   15
      21
      22
      23
      24
      25
      26
      
      
      




    [131264] Re[3]: 複数範囲のセルの中から日付を順番に表示-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2020/04/17(00:56))
    □U R L/
      Sheet1           Sheet2
         A   B  C        A   B  C    D   E
      1 日付 氏名 数量    1 01/02 名前A  10 43832.001 1
      2 01/02 名前A  10    2 01/03 名前B  20 43833.002 2
      3 01/03 名前B  20    3 01/04 名前C  30 43834.003 3
      4 01/04 名前C  30    4 01/26 名前E  15 43856.004 5
      5 07/15 名前D  40    5 01/04 名前H  45 43834.005 6
      6 01/26 名前E  15    6 01/12 名前K  80 43842.006 4
      7 08/07 名前F  25    7
      8 02/08 名前G  35    8
      9 01/04 名前H  45    9
      10 05/10 名前I  55    10
      11 08/11 名前J  70    11
      12 01/12 名前K  80    12
      13 12/23 名前L  90    13
      14   1 月
      15 01/02 名前A  10
      16 01/03 名前B  20
      17 01/04 名前C  30
      18 01/04 名前H  45
      19 01/12 名前K  80
      20 01/26 名前E  15
      21
      22
      23
      24
      25
      26
      
      Sheet2 において、
      1.次式を入力したセル A1 を右に2列、下に11行オートフィル
       ̄ ̄=IFERROR(INDEX(Sheet1!A$2:A$13,SMALL(IF(MONTH(Sheet1!$A$2:$A$13)=Sheet1!$A$14,ROW(Sheet1!A$2:A$13)),ROW(Sheet1!A1))-1),"")
       ̄ ̄【御斷り】上式は必ず配列數式として入力のこと
      2.次の各セルにそれぞれ右側の式を入力
       ̄ ̄ D1: =IF(A1="","",A1+ROW(A1)/1000)
       ̄ ̄ E1: =IF(A1="","",ROUND(MOD(SMALL(D$1:D$13,ROW(A1)),1)*1000,0))
      3.範囲 D1:E1 のフィルハンドルを「エイヤッ!」とダブルクリック
      
      Sheet1 において、
      4.式 =IFERROR(INDEX(Sheet2!A:A,Sheet2!$E1),"") を入力したセル A15 を右に2列、下にズズーッとオートフィル




    [131266] Re[4]: 複数範囲のセルの中から日付を順番に表示-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2020/04/20(10:19))
    □U R L/
           A     B     C
      1  日付  氏名   数量
      2  01/02 名前A    10
      3  01/03 名前B    20
      4  01/04 名前C    30
      5  07/15 名前D    40
      6  01/26 名前E    15
      7  08/07 名前F    25
      8  02/08 名前G    35
      9  01/04 名前H    45
      10 05/10 名前I    55
      11 08/11 名前J    70
      12 01/12 名前K    80
      13 12/23 名前L    90
      14     1 指定月   
      15 01/02 名前A    10
      16 01/03 名前B    20
      17 01/04 名前C    30
      18 01/04 名前H    45
      19 01/12 名前K    80
      20 01/26 名前E    15
      21
      
      囘答しても“無しの礫”ですか(;^_^;)
      私自身の爲の別解です。(*^_^*)
      
      先ず、下準備から
      1.範囲 A1:C13 を選択⇒Alt+MC⇒“上端行”のみにチェック入れ⇒[OK]
      2.範囲 A14:B14 を選択⇒Alt+MC⇒“右端行”のみにチェック入れ⇒[OK]
      3.次式を入力したセル A15 を選択⇒Ctrl+C⇒範囲 B15:C15 を選択⇒
       ̄ ̄Ctrl+Alt+V⇒“數式”に目玉入れ⇒[OK]
       ̄ ̄=IFERROR(INDEX(INDIRECT(A$1),MOD(SMALL(IF(MONTH(日付)=指定月,日付+ROW(日付)/10000),ROW(A1)),1)*10000-1),"")
       ̄ ̄【御斷り】上式は必ず配列數式として入力の事
      4.範囲 A15:C15のフィルハンドルをマウスで掴んで下方にズズーッと
       ̄ ̄ドラッグ&ペースト



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G