ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
book1.xlsx
san02551 wrote:เรียนอาจารย์ที่เคารพ
โพสต์ได้เลยไม่ต้องเรียนท่านใดครับ เพราะจะทำให้สมาชิกท่านอื่นที่ทราบไม่สะดวกใจที่จะตอบ ช่วยแก้ไขข้อความด้วยครับ code.xlsm ตัวอย่าง Code ครับ
Code: Select all
Sub Macro3()
' Macro3 áÁâ¤Ã
For Each r In Range("d3:d11")
r.Value = r.Offset(0, -2) + r.Offset(0, -1)
Next r
End Sub
การลบกันก็เหมือนการบวกแต่เปลี่ยนเครื่องหมายบวกเป็นลบถูกแล้ว สำหรับ Code นี้ต้องคำนึงว่าใช้ค่าใดเป็นตัวตั้งด้วยครับsnasui wrote:ทำความเข้าใจ โค้ด
ถ้าต้องการ ลบ เปลี่ยนเป็น r.Value = r.Offset(0,2)-r.Offset(0,1) ใช่ไหมครับ
Next r
ไม่ใช่ครับsnasui wrote:ถ้าต้องการรวม ข้อมูล sum r.Value = r.Offset(a11:c11)
Next r
ไม่ใช่ครับ การให้แสดงผลลัพธ์เป็นตัวเลข จะต้องไม่ครอบผลลัพธ์ด้วยเครื่องหมายฟันหนูsnasui wrote:ถ้าต้องตัดเกรด คำสั่ง IF ครับ
=IF(W4<49,"0",IF(W4<=54,"1",IF(W4<=59,"1.5",IF(W4<=64,"2",IF(W4<=69,"2.5",IF(W4<=74,"3",IF(W4<=79,"3.5",IF(W4>=80,"4"))))))))