戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
担当不明物件への担当振り分け

    [194637] 担当不明物件への担当振り分け-

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

    □投稿者/ VAB -(2022/01/17(22:46))
    □U R L/

      使用環境:Win10, Excel2013

      お世話になります。
      VBAを使用して下記のようなことを行いたいです。
      お力をお貸しいただきたいです。


      @毎日、担当者不明のリスト(ブック1)が送られてくる。
      A物件ごとの担当者がわかるようになっているリスト(ブック2)がある
      B@で送られてきた物件の担当をブック2を見ながら探すのは数量が多く大変なので       
      VBAを使用してブック3のような結果をボタン一つで出力したい。
      ※ブック2に担当が載っていなかった場合は担当不明と返してほしい

      -----------------------------

      ■ブック1【担当不明の物件リスト】
         A     B  
      1   物件 
      2  Aマンション
      3  Bマンション
      4  Cマンション
      5  Dマンション
      6  Eマンション

      ■ブック2【物件と担当を突合させてあるリスト】
         A     B  
      1   物件     担当
      2  Aマンション  田中
      3  Bマンション  斎藤
      4  Cマンション  渡辺
      5  Dマンション  田中


      ■ブック3【ブック1とブック2を使って担当を振り分けたリスト(出力結果)】
         A     B  
      1   物件     担当
      2  Aマンション  田中 
      3  Bマンション  斎藤
      4  Cマンション  渡辺
      5  Dマンション  田中
      6  Eマンション  不明





      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [194638] Re[1]: 担当不明物件への担当振り分け-

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

    □投稿者/ マナ -(2022/01/17(22:57))
    □U R L/

      ブック1のB列に、数式(VLOOKUP関数)で結果を表示できますが
      それでは不十分ですか。




    [194644] Re[2]: 担当不明物件への担当振り分け-

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

    □投稿者/ VAB -(2022/01/19(22:33))
    □U R L/

      マナ様

      早速のご回答ありがとうございました。
      すみません質問内容がよくありませんでした。
      質問の内容だとVLOOKUPでできそうですね。

      質問を少し変えます。↓
      よろしくお願いいたします。


      @毎日、担当者不明のリスト(ブック1)が送られてくる。
      A物件ごとの担当者がわかるようになっている条件リスト(ブック2)がある
      B@で送られてきた物件の担当をブック2を見ながら探すのは数量が多く大変なので       
      VBAを使用してブック3のような結果をボタン一つで出力したい。
      ※「き」のようにブック2に担当が載っていなかった場合は「担当不明」と返してほしい


      ■ブック1【担当不明の物件リスト】
      A B C D
      1 物件     製品 仕様 備考  
      2 Aマンション え
      3 Aマンション お
      4 Bマンション い 大分工場
      5 Cマンション あ
      6 Dマンション え
      7 Eマンション う
      8 Cマンション か イトウサン
      9 Bマンション き




      ■ブック2【担当条件】

      ○条件                                 ○担当
      ・あ                                  田中
      ・製品が「え」であり、「え」の1行下に「お」がある          田中
      ・製品が「え」であり、「え」の1行下に「う」がある          伊藤
      ・物件、製品、仕様、備考のどこかにに「イトウ」と言う文字含まれている  伊藤
      ・物件、製品、仕様、備考のどこかにに「大分」と言う文字含まれている  渡辺
      ・う                                  伊藤
      ・物件、製品、仕様、備考のどこかにに「Zマンション」と言う文字含まれている 小林


      ■ブック3【出力結果】
      A B C D       E
      1 物件     製品 仕様 備考   担当
      2 Aマンション え    田中
      3 Aマンション お       田中
      4 Bマンション い 大分工場       渡辺
      5 Cマンション あ       田中
      6 Dマンション え       伊藤
      7 Eマンション う       伊藤
      8 Cマンション か イトウサン   伊藤
      9 Bマンション き                   担当不明








    [194645] (削除)-

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

    □投稿者/ / -(2022/01/19(22:42))
    □U R L/

      この記事は削除されました




    [194646] (削除)-

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

    □投稿者/ / -(2022/01/19(22:46))
    □U R L/

      この記事は削除されました




    [194647] Re[5]: 質問変更(送信し直し)-

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

    □投稿者/ VAB -(2022/01/19(22:50))
    □U R L/
      マナ様
      
      早速のご回答ありがとうございました。
      すみません質問内容がよくありませんでした。
      質問の内容だとVLOOKUPでできそうですね。
      
      質問を少し変えます。↓
      よろしくお願いいたします。
      
      
      @毎日、担当者不明のリスト(ブック1)が送られてくる。
      A物件ごとの担当者がわかるようになっている条件リスト(ブック2)がある
      B@で送られてきた物件の担当をブック2を見ながら探すのは数量が多く大変なので       
      VBAを使用してブック3のような結果をボタン一つで出力したい。
      ※「き」のようにブック2に担当が載っていなかった場合は「担当不明」と返してほしい
      
      
      ■ブック1【担当不明の物件リスト】
            A             B            C                 D
      1    物件      製品       仕様       備考  
      2 Aマンション     え
      3 Aマンション     お
      4 Bマンション     い     大分工場
      5 Cマンション     あ
      6 Dマンション     え
      7 Eマンション     う
      8 Cマンション     か                       イトウサン
      9 Bマンション     き
      10Zマンション
      
      
      
      ■ブック2【担当条件】
      
      ○条件                                  ○担当
      ・あ                                     田中
      ・製品が「え」であり、「え」の1行下に「お」がある                田中
      ・製品が「え」であり、「え」の1行下に「う」がある                伊藤
      ・物件、製品、仕様、備考のどこかにに「イトウ」と言う文字含まれている     伊藤
      ・物件、製品、仕様、備考のどこかにに「大分」と言う文字含まれている       渡辺
      ・う                                     伊藤
      ・物件、製品、仕様、備考のどこかにに「Zマンション」と言う文字含まれている 小林
      
      
      ■ブック3【出力結果】
            A             B            C                 D              E
      1    物件      製品       仕様       備考           担当
      2 Aマンション     え                      田中
      3 Aマンション     お                      田中
      4 Bマンション     い     大分工場              渡辺
      5 Cマンション     あ                      田中
      6 Dマンション     え                                            伊藤
      7 Eマンション     う                      伊藤
      8 Cマンション     か                       イトウサン    伊藤
      9 Bマンション     き                      担当不明
      10Zマンション                          小林




    [194652] Re[6]: 質問変更(送信し直し)-

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

    □投稿者/ マナ -(2022/01/20(17:52))
    □U R L/

      ブック2【担当条件】は、そのままだと使えません。
      使いやすい形式に変更することは可能ですか。






    [194653] Re[7]: 質問変更(送信し直し)-

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

    □投稿者/ マナ -(2022/01/20(18:33))
    □U R L/
      例えば、こんな感じに表を3つ作成します
      
      条件1		
      製品     担当	
      あ       田中	
      う       伊藤
      	
      条件2		
      製品    1行下      担当
      え       お        田中
      え       う        伊藤
      
      条件3		
      含む          担当	
      イトウ        伊藤	
      大分          渡辺	
      Zマンション   小林	
      
      




    [194656] Re[8]: 質問変更(送信し直し)-

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

    □投稿者/ VAB -(2022/01/20(22:16))
    □U R L/
      マナ様
      
      毎度ご返信ありがとうございます。
      担当条件ですが、マナ様にコメントいただいた形式に変更可能です。
      
      
      条件1		
      製品     担当	
      あ       田中	
      う       伊藤
      	
      条件2		
      製品    1行下      担当
      え       お        田中
      え       う        伊藤
      
      条件3		
      含む          担当	
      イトウ        伊藤	
      大分          渡辺	
      Zマンション   小林
      
      
      
      よろしくお願いいたします。
      




    [194665] Re[9]: 質問変更(送信し直し)-

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

    □投稿者/ マナ -(2022/01/21(17:08))
    □U R L/
      ・ブック1とブック2のシートをブック3にコピーしておいてください。
      :シート名は、Sheet1、条件1、条件2、条件3とします。
      
      Sub test()
          Dim r As Range, b As Range
          Dim c1 As Range, c2 As Range, c3 As Range
       
          Set r = Worksheets("Sheet1").Range("A1").CurrentRegion.Columns(5)
          Set c1 = Worksheets("条件1").Range("A1").CurrentRegion
          Set c2 = Worksheets("条件2").Range("A1").CurrentRegion
          Set c3 = Worksheets("条件3").Range("A1").CurrentRegion
       
          On Error Resume Next
          Set b = r.SpecialCells(xlCellTypeBlanks)
          b.FormulaR1C1 = "=iferror(vlookup(rc[-3]," & c1.Address(, , xlR1C1, True) & ",2,false),"""")"
          r.Value = r.Value
       
          Set b = r.SpecialCells(xlCellTypeBlanks)
          b.FormulaR1C1 = "=xlookup(rc[-3]&r[1]c[-3]," _
              & c2.Columns(1).Address(, , xlR1C1, True) & "&" & c2.Columns(2).Address(, , xlR1C1, True) _
              & "," & c2.Columns(3).Address(, , xlR1C1, True) & ","""")"
          r.Value = r.Value
       
          Set b = r.SpecialCells(xlCellTypeBlanks)
          b.Formula2R1C1 = "=iferror(index(filter(" & c3.Columns(2).Address(, , xlR1C1, True) _
              & ",iferror(xmatch(""*""&" & c3.Columns(1).Address(, , xlR1C1, True) & "&""*""," & "rc[-3]:rc[-1],2),0),""""),1),"""")"
          r.Value = r.Value
          
          r.SpecialCells(xlCellTypeBlanks).Value = "担当不明"
          On Error GoTo 0
       
      End Sub
      
      
      
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [194667] Re[10]: 質問変更(送信し直し)-

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

    □投稿者/ VAB -(2022/01/22(01:35))
    □U R L/
      マナ様
      
      お世話になっております。
      コードの作成ありがとうございました。
      
      1つのブックの中に下記のようにsheet1、条件1、条件2、条件3の4シートを作成しました。
      ご作成頂いたコードをそのまま標準モジュールに貼り付けて、実行を行ってみたのですがSheet1のE列が#NAME?
      となりました。
      
      すみませんが実行するまでの過程を教えていただけませんでしょうか?
      
      お手数おかけしますがよろしお願いいたします。
      
      【Sheet1に記入してあるもの】
            A             B            C                 D
      1    物件      製品       仕様       備考  
      2 Aマンション     え
      3 Aマンション     お
      4 Bマンション     い     大分工場
      5 Cマンション     あ
      6 Dマンション     え
      7 Eマンション     う
      8 Cマンション     か                       イトウサン
      9 Bマンション     き
      10Zマンション
      
      
      【条件1】
        A    B
      1 製品   担当
      2  あ     田中
      3  う    伊藤
      
      
      【条件2】
        A     B    C
      1 製品   1行下  担当
      2  え     お      田中
      3  え    う    伊藤
      
      
      【条件3】
        A       B    
      1 含む     担当  
      2 イトウ     伊藤     
      3 大分    渡辺
      4Zマンション 小林  
      




    [194668] Re[11]: 質問変更(送信し直し)-

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

    □投稿者/ マナ -(2022/01/22(09:02))
    □U R L/
      下記数式を入力し、下方向にフィルコピーでどうなりますか。
      
      F2:=XLOOKUP(B2&B3,条件2!$A$1:$A$3&条件2!$B$1:$B$3,条件2!$C$1:$C$3,"")
      G2:=XLOOKUP(B2&B3,条件2!$A$1:$A$3&条件2!$B$1:$B$3,条件2!$C$1:$C$3,"")
      H2:=IFERROR(INDEX(FILTER(条件3!$B$1:$B$4,IFERROR(XMATCH("*"&条件3!$A$1:$A$4&"*",A2:D2,2),0),""),1),"")
      
      XLOOKUP関数が使えないのかもしれません。
      エクセルのバージョンを教えて下さい。
      
      
      
      




    [194669] Re[12]: 質問変更(送信し直し)-

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

    □投稿者/ VAB -(2022/01/22(10:43))
    □U R L/

      マナ様

      使用環境はwin10、Excel2013です。
      この環境は暫く変えることはできないのですが、
      Xlookup関数を使用しない方法はありますでしょうか?

      お手数をおかけしてすみませんがよろしくおねがいします。




    [194670] Re[13]: 質問変更(送信し直し)-

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

    □投稿者/ マナ -(2022/01/22(12:02))
    □U R L/
      では、条件2に列を追加して
      
      条件2:
      製品	1行下	結合	担当
      え	お	=A2+B2	田中
      え	う	=A3+B3	伊藤
      
      Sheet1;
      F2:=IFERROR(VLOOKUP(B2,条件1!$A$1:$B$3,2,FALSE),"")
      G2:=IFERROR(VLOOKUP(B2&B3,条件2!$C$1:$D$3,2,FALSE),"")
      H2:=IFERROR(LOOKUP(0,0/FIND(条件3!$A$1:$A$4,A2&B2&C2&D2),条件3!$B$1:$B$3),"")
      
      H2は、Ctl+Shift+Enterで入力
      ht tps://excelkamiwaza.com/vlookup_area_wildcard.html
      
      E2:=IF(LEN(F2&G2&H2),F2&G2&H2,"担当者不明")
      
      
      
      




    [194671] (削除)-

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

    □投稿者/ / -(2022/01/22(16:53))
    □U R L/

      この記事は削除されました




    [194672] Re[15]: 質問変更(送信し直し)-

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

    □投稿者/ VAB -(2022/01/22(16:59))
    □U R L/
      マナ様
      
      お世話になってます。
      Sheet1 の各セルに下記の数式を入力していますが[194670] で仰っていることと合っていますでしょうか。
      条件2シートのセルには下記【条件2】のように入力しています。(#VALUE! と表じされている)
      
      実行すると【実行結果】のようになります。
      
      
      
      数式1 F2:=IFERROR(VLOOKUP(B2,条件1!$A$1:$B$3,2,FALSE),"")
      数式2 G2:=IFERROR(VLOOKUP(B2&B3,条件2!$C$1:$D$3,2,FALSE),"")
      数式3 H2:=IFERROR(LOOKUP(0,0/FIND(条件3!$A$1:$A$4,A2&B2&C2&D2),条件3!$B$1:$B$3),"")
      数式4 E2:=IF(LEN(F2&G2&H2),F2&G2&H2,"担当者不明")
      
      
      ----------------------------------------------------------------------------------
      【Sheet1に記入してあるもの】
             A             B            C                D            E     F     G    H
      1    物件       製品         仕様     備考  
      2 Aマンション     え                           数式4   数式1   数式2  数式3
      3 Aマンション     お
      4 Bマンション     い      大分工場
      5 Cマンション     あ
      6 Dマンション     え
      7 Eマンション     う
      8 Cマンション     か                          イトウサン
      9 Bマンション     き
      10Zマンション   け
      
      
      【条件1】
        A    B
      1 製品   担当
      2  あ     田中
      3  う    伊藤
      
      
      【条件2】
        A    B    C     D
      1 製品  1行下  結合    担当
      2  え     お    =A2+B2   田中
      3  え   う   =A3+B3   伊藤
      
      
      【条件3】
        A         B   
      1 含む       担当  
      2 イトウ       伊藤
      3 大分      渡辺
      4Zマンション   小林
      
      
      
      【実行結果】
            A              B           C                 D          E       F       G     H
      1    物件        製品     仕様       備考              担当
      2 Aマンション       え                       #NAME?                
      3 Aマンション       お                      #NAME?              
      4 Bマンション       い     大分工場              #NAME?
      5 Cマンション       あ                      田中
      6 Dマンション       え                      #NAME?
      7 Eマンション       う                      伊藤
      8 Cマンション       か                 イトウサン          #NAME?
      9 Bマンション       き                      #NAME?
      10Zマンション    け                       #NAME?




    [194673] Re[16]: 質問変更(送信し直し)-

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

    □投稿者/ マナ -(2022/01/22(17:06))
    □U R L/
      失礼しました
      条件2で追加した式は、=A2&B2 でした。(+でなく&)
      
      条件2:
      製品	1行下	結合	担当
      え	お	=A2&B2	田中
      え	う	=A3&B3	伊藤




    [194674] Re[16]: 質問変更(送信し直し)-

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

    □投稿者/ VAB -(2022/01/22(17:31))
    □U R L/
      いつもお世話になっております。
      
      
      [194665]でご作成いただいたコードは、
      
      @  条件1、条件2、条件3のシートが含まれているブックが1つ存在している。
      A  @のブックに毎日送られてくる担当不明のリストをSheet1として貼り付ける
      B sheet1の2行目のE〜Hのセルに数式を入れる
      C マクロを実行するとsheet1に担当者が記載される
      
      
      というものでしょうか?
      
      
      sheet1は担当者不明のリストで毎日送られてきますので
      sheet1に毎回手を加えることは難しいのですが。。。
      
      
      
      条件2を&に修正して実行しました↓
      
      【実行結果】
            A              B           C                 D          E       F       G     H
      1    物件        製品     仕様       備考              担当      
      2 Aマンション       え                       田中           田中                
      3 Aマンション       お                      #NAME?              
      4 Bマンション       い     大分工場              #NAME?
      5 Cマンション       あ                      田中
      6 Dマンション       え                      #NAME?
      7 Eマンション       う                      伊藤
      8 Cマンション       か                 イトウサン          #NAME?
      9 Bマンション       き                      #NAME?
      10Zマンション    け                       #NAME?




    [194675] Re[17]: 質問変更(送信し直し)-

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

    □投稿者/ マナ -(2022/01/22(20:28))
    □U R L/


      > @ 条件1、条件2、条件3のシートが含まれているブックが1つ存在している。
      > A @のブックに毎日送られてくる担当不明のリストをSheet1として貼り付ける
      > B sheet1の2行目のE〜Hのセルに数式を入れる

      ここまででよいです。

      > C マクロを実行するとsheet1に担当者が記載される

      マクロは不要です、数式だけで結果がでます。
      これをテンプレートとして使います。

      > sheet1は担当者不明のリストで毎日送られてきますので
      > sheet1に毎回手を加えることは難しいのですが。。。

      毎回の作業は、リストデータをテンプレートのSheet1にコピピペするだけです。




    [194676] (削除)-

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

    □投稿者/ / -(2022/01/22(23:55))
    □U R L/

      この記事は削除されました




    [194677] Re[19]: (削除)-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ VAB -(2022/01/22(23:56))
    □U R L/

      マナ様

      お世話になっております。
      毎度迅速なご返信ありがとうございました。

      行いたかった処理は出力できましたので、
      まずはお礼申し上げます。

      ありがとうございました。

      また何かあった際はこちらに質問させていただくかと思いますので
      見かけました際はまたよろしくお願いいたします。



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

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

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


- Child Forum -
Edit:ゆう-G