ตรวจสอบและปรับปรุงไฟล์ 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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Set fso = CreateObject("Scripting.FileSystemObject")
Workbooks.Open nameSvFile ' Or ThisWorkbook.Path & "\" & fName
' <-- ต้องการปรับตรงส่วนนี้ให้กระชับสั้นลงหน่อยครับ -->
Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("C12,C13,C18").Value = mn_d
Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("D12,D13,D18").Value = vlu_m
Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("F12,F13,F18").Value = mn_y
' <-------------------------------------->
Workbooks(fso.GetFileName(nameSvFile)).Save
ตัวอย่างการใช้ With...End With เข้ามาช่วยครับCode: Select all
With Workbooks(fso.GetFileName(nameSvFile)).Worksheets("sheets1").Range("C12,C13,C18")
.Value = mn_d
.Offset(0, 1).Value = vlu_m
.Offset(0, 3).Value = mn_y
End With
