担当不明物件への担当振り分け | |
---|---|
[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/ マナ様 お世話になっております。 毎度迅速なご返信ありがとうございました。 行いたかった処理は出力できましたので、 まずはお礼申し上げます。 ありがとうございました。 また何かあった際はこちらに質問させていただくかと思いますので 見かけました際はまたよろしくお願いいたします。 |
このトピックに書きこむ |
---|