ตรวจสอบและปรับปรุงไฟล์ 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
Private Sub UserForm_Initialize()
Application.EnableEvents = False
Application.ScreenUpdating = False
ComboBox1 = Format(Date, "mmmm")
ComboBox3 = Format(Date, "yyyy") + 543
With ComboBox2
.AddItem 30
.AddItem 45
.AddItem 60
.AddItem 90
.AddItem 120
End With
Sheets("cal_1").Select
ComboBox2.Text = Range("B5").Text
Application.EnableEvents = True
End Sub
ผมทดสอบแล้วไม่ติดปัญหาใด ช่วยส่งไฟล์ตัวอย่างที่เป็นปัญหามาด้วยครับ 
ควรตัดไฟล์ ให้เหลือเนื้อหาและ Code เฉพาะท่อนที่เป็นปัญหาเท่านั้นครับCode: Select all
Private Sub UserForm_Initialize()
Application.EnableEvents = False
Application.ScreenUpdating = False
ComboBox1 = Format(Date, "mmmm")
ComboBox3 = Format(Date, "yyyy") + 543
With ComboBox2
.AddItem 30
.AddItem 45
.AddItem 60
.AddItem 90
.AddItem 120
End With
Sheets("cal_1").Select
ComboBox2.Text = Range("B5").Text
Application.EnableEvents = True
End Sub
Code ที่เป็นปัญหา อยู่ที่ Form ไหนหรือ Module ไหนครับ เรื่องอีเมลผมตอบไปแล้วในกระทู้ก่อน ได้ทำตามนั้นแล้วหรือไม่ ติดตรงไหนก็ไปถามต่อที่นั่นครับ Error ที่ว่านั้นมีลักษณะเป็นอย่างไร ช่วยอธิบายเพิ่มด้วยครับอธิบายsnasui wrote:
ลองเข้าหน้าต่าง VBE > Tools > Reference เลือกไว้แค่นั้นก็ควรทำงานได้แล้วครับ สำหรับฟังก์ชั่น Date ไม่ได้ลึกลับซับซ้อนอะไร เครื่องผมสามารถทำงานได้ปกติโดยเลือกแค่ 4 รายการแรกตามภาพที่ส่งมาเท่านั้นครับ