snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
แก้ไขค่าตัวแปร i ใน Procedure Private Sub UserForm_Initialize() ให้ตรงกับบรรทัดที่เริ่มครับ
จาก For i = 4 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) ปรับเป็น For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))