EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่างเพิ่มเติม)จากโพสต์ที่ผมยกมาด้านบน ไฟล์ที่แนบมาได้ทำตรงกับที่ผมแจ้งไปแล้ว เพียงแต่ถ้ามีอีเมลใดเพิ่มเข้ามาก็ต้องไปเพิ่มรายการในไฟล์ Gateway.xlsx เพื่อระบุ Group แล้ว Refresh เพื่อดึงรายการเข้าไปใหม่ครับwisitsakbenz wrote: Sat Feb 05, 2022 9:18 am เรียน อาจารย์
ทำตามที่อาจารย์บอกแล้วครับ
มันจะติด ตรงที่ Group ของ BDMS กับ internal คือ Email ที่ลงท้ายด้วย bdms.co.th, samitivej.co.th จะอยู่ใน 2 Group นี้ ซึ่งจะเป็น Email ของพนักงานมันมีเยอะมากครับ และ Email List ของ email Group individual นั้น อยู่นอกเหนือจาก email ที่กำหนด Group ทั้งหมด
รบกวนอาจารย์แนะนำด้วยครับ ขอบคุณครับ
Code: Select all
=
var eml = [Email]
var mai = "sathin.so@samitivej.co.th|ravitsakul.wo@samitivej.co.th|Naruechol.Ch@samitivej.co.th|poramaphorn.ch@samitivej.co.th"
var rs = If(eml = "SVNH.Agentassist@samitivej.co.th","Agent",if(Iferror(Search(eml,mai),-1)>0,"Med Assist & Insurance","Internal"))
return
rs
Code: Select all
var rw = "bdms.co.th"
var rz = "samitivej.co.th"
var ru = If(Iferror(Search(eml,rs),-1)>0,"Agent",if(Iferror(Search(eml,mai),-1)>0,"Med Assist & Insurance",if(Iferror(Search(eml,rt),-1)>0,"SIM",if(Iferror(Search(eml,rw),-1)>0,"BDMS",if(Iferror(Search(eml,rz),-1)>0,"Internal",if(eml= "webmaster@samitivej.co.th","Web Site","Individual"))))))
return
ru
var eml = Email[Email 2]
ตัวแปร eml มีครบทั้งข้อความก่อนเครื่องหมาย @ และหลังเครื่องหมาย @ คือจะอยู่ในรูปแบบ aaa@bbbvar rw = "bdms.co.th"
ตัวแปร rw เป็นนส่วนท้ายของอีเมล์ คือจะอยู่ในรูปแบบ bbbif(Iferror(Search(eml,rw),-1)>0,"BDMS"
if(Iferror(Search(eml,rw),-1)>0,"BDMS"
จึงควรเขียนเป็น if(Iferror(Search(rw,eml),-1)>0,"BDMS"
คือต้องสลับตำแหน่งกัน ส่วนใดก็ตามที่มีลักษณะเช่นนี้จะต้องเปลี่ยนใหม่ทั้งหมดครับ