⌨ เราได้เรียนรู้เกี่ยวกับการเข้าถึงเซลล์ในลักษณะต่าง ๆ ตามหัวข้อ
VBA Excel – Range Property and Method กันมาแล้ว ทั้งได้ทราบถึงการเลื่อนตำแหน่งจากเซลล์ตั้งต้นไปยังเซลล์เป้าหมายโดยใช้ Offset การขยายพื้นที่เป้าหมายด้วยการใช้ Resize การเลือกเซลล์แบบพิเศษโดยใช้ SpecialCells
ซึ่งเทียบได้กับการกดปุ่ม F5 บนคีย์บอร์ด เป็นต้น
ตาม Video ด้านล่างเป็นการกระทำต่อเนื่องจากเดิม คือจะเป็นการเลือกเซลล์ว่าง การเติมค่าในเซลล์ว่างเหล่านั้นให้เหมือนกันเซลล์ที่อยู่ด้านบนและการคัดลอกเซลล์ไปวางยังชีตเป้าหมาย ลักษณะงานดังกล่าวนี้เป็นงานสำคัญที่พบได้บ่อยครั้งในการทำงานประจำวัน ซึ่งหากทำด้วยมือจะใช้เวลามากทั้งมีความแม่นยำไม่เท่ากับการเขียนด้วย Code เราสามารถนำ Code ลักษณะนี้พัฒนาต่อยอดไปได้อีกมาก ?
📹 Video แสดงการเติมข้อมูล การคัดลอกข้อมูลไปวางในชีตอื่น
🧭 Timeline หัวข้อหลัก
- 00:00:13 แนะนำวัตถุประสงค์: เติมค่าในเซลล์ว่างและคัดลอกข้อมูลไปยังชีตเป้าหมาย
- 00:00:40 อธิบายสถานการณ์ที่พบเซลล์ว่างในงานจริง เช่น การกรอกข้อมูลไม่ครบ
- 00:01:10 ใช้ .SpecialCells(xlCellTypeBlanks) เพื่อเลือกเซลล์ว่าง
- 00:01:25 เติมค่าด้วย .FormulaR1C1 = \”=R[-1]C\” เพื่อให้เหมือนเซลล์ด้านบน
- 00:02:10 คัดลอกข้อมูลที่เติมแล้วไปยังชีตเป้าหมาย
- 00:02:45 ใช้ .PasteSpecial xlPasteValues เพื่อวางเฉพาะค่า
- 00:03:20 ล้างสูตรในชีตต้นทางเพื่อคงไว้เฉพาะค่าที่เติม
- 00:04:10 ทดสอบการทำงานกับข้อมูลจริง
- 00:05:00 ตรวจสอบความถูกต้องของข้อมูลที่ถูกคัดลอก
- 00:06:10 สรุป: ได้ระบบเติมและคัดลอกข้อมูลที่แม่นยำและลดข้อผิดพลาดจากการทำด้วยมื
🔗 Link ที่เกี่ยวข้อง
กรณีมีปัญหาการใช้งาน Excel and VBA สามารถสอบถามได้ที่ snasui.com