Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) ลองดูตามไฟล์แนบครับ
khainui wrote:ตามไฟล์แนบ
แต่พอลองเลือกตามตัวอย่างกลับไม่ขึ้นมาเหมือนตัวอย่าง ต้องไปกด run marcro คราวนี้ขึ้น แต่ขึ้นมาแถวเดียว มันผิดตรงจุดไหนครับ งง
Code นั้นอ้างอิง A4 ในการ Clear ข้อมูล ดังนั้น A4:E4 ซึ่งเป็นหัวคอลัมน์ ต้องเติมข้อมูลให้ครบครับเข้าใจแล้วครับ แต่ขอสอบถามเพิ่มเติม ตรงช่อง e2 ใน sheet report ทำอย่างไรให้ดึงข้อมูลมาเป็น drop down list ครับsnasui wrote:khainui wrote:ตามไฟล์แนบ
แต่พอลองเลือกตามตัวอย่างกลับไม่ขึ้นมาเหมือนตัวอย่าง ต้องไปกด run marcro คราวนี้ขึ้น แต่ขึ้นมาแถวเดียว มันผิดตรงจุดไหนครับ งง
สามารถทำได้หลายวิธีครับ อย่างง่าย ๆ ก็สร้างด้วย Manual แล้วค่อยนำมาใช้ใน Validation อย่างที่ยากขึ้นไปก็ใช้ VBA เขียนครับ ลองทำมาดูก่อน ติดตรงไหนก็ถามกันต่อครับทำได้แล้วครับด้วยวิธี Unique list แต่ยังติดปัญหามันไม่ได้เรียงลำดับจากมากไปน้อยในช่อง e2 และอีกปัญหาคือsnasui wrote:
ที่คอลัมน์ H และ I ใช้สูตรเดิมครับ แต่ปรับช่วงข้อมูลในสูตรให้รองรับกับข้อมูลที่เพิ่มขึ้น หรือ กำหนดชื่อ (Range Name) ให้กับช่วงข้อมูลต้นแหล่งเพื่อให้ยืดหยุ่นตามปริมาณข้อมูล แล้วค่อยนำมาใช้ในสูตร การเรียงข้อมูลด้วยสูตร ซึ่งเพิ่มคอลัมน์สำหรับเรียงข้อมูลออกมาต่างหากอีก 1 คอลัมน์ครับ ลองตามนี้ครับ
อาจารย์ครับขอความหมายของสูตร 2 สูตรนี้หน่อยครับ (กำลังแกะสูตรอยู่ครับ)snasui wrote:
- ที่เซลล์ I เปลี่ยนสูตรเป็น
=ROUND(SUMPRODUCT((Dept<>"")/COUNTIF(Dept,Dept&"")),0)
Enter- ที่เซลล์ H เปลี่ยนสูตรเป็น
=IF(ROWS(H$2:H2)>$I$2,"",INDEX(Dept,SMALL(IF(FREQUENCY(IF(Dept<>"",MATCH(Dept,Dept,0)),ROW(Dept)-MIN(ROW(Dept))+1),ROW(Dept)-MIN(ROW(Dept))+1),ROWS(H2:$H$2))))
Ctrl+Shift+Enter > Copy ลงด้านล่าง
เป็นการนำค่าใน Dept ตัวแรกไปตรวจสอบกับ Dept ทั้งชุดว่าอยู่ในลำดับที่เท่าไร เมื่อเป็นบรรทัดที่ 2 ก็จะเป็นการนำตัวที่ 2 ไปตรวจ เช่นนี้ไปเรื่อย ๆ ครับkhainui wrote:สูตรแรกคือ =match(Dept,Dept,0) ทำไมผลของสูตรถึงออกมาเป็น 1 พอไปแถวที่ 2 จึงกลายเป็น 2 ครับ
เข้าใจถูกแล้วครับkhainui wrote:สูตรสองคือ เครื่องหมาย if(Dept<>"" หมายถึง ช่วงเซลล์นั้นต้องไม่ใช่ค่าว่างใช่ไม๊ครับ
จากสูตร =IF(ROWS(H$2:H2)>$I$2,"",INDEX(Dept,SMALL(IF(FREQUENCY(IF(Dept<>"",MATCH(Dept,Dept,0)),ROW(Dept)-MIN(ROW(Dept))+1),ROW(Dept)-MIN(ROW(Dept))+1),ROWS(H2:$H$2)))) หมายความว่า หาก ROWS(H$2:H2)>$I$2 มีค่าเป็นจริงแล้ว ให้แสดงค่าว่าง หากไม่เป็นจริงให้แสดงผลลัพธ์ของ INDEX(Dept,SMALL(IF(FREQUENCY(IF(Dept<>"",MATCH(Dept,Dept,0)),ROW(Dept)-MIN(ROW(Dept))+1),ROW(Dept)-MIN(ROW(Dept))+1),ROWS(H2:$H$2))) 
