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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)และผมได้เขียนสูตร อ้างอิงกับตำแหน่ง Cell ไว้ ประมาณนี้If NC > 10 Then .Range("D2:D3").Delete xlShiftToLeft
เมื่อ Code VBA ทำงาน คือ Shift Cell ย้ายไปทางซ้ายเพื่อจะบันทึกข้อมูลใน Cell ซ้ายสุด=IF($J$2-$I$2>SUM($D$2:$I$2),TRUE,FALSE)
ลองดูรูปประกรอบนะครับ ไฟล์ตัวอย่างนะครับ ขอขอบคุณล่วงหน้านะครับ ^^=IF($I$2-$H$2>SUM($D$2:$H$2),TRUE,FALSE)