อาจารย์ช่วยทดสอบไฟล์ด้วยครับ

[yodpao.b]

เรียนอาจารย์ครับ ไฟล์ที่ได้ทดลองทำไม่ติดปัญหาใดๆ จึงแนบไฟล์ให้อาจารย์ช่วยเทียบดู

ไฟล์นี้ OK

ไฟล์ที่ใช้ไม่ได้กำลังตามา

[yodpao.b]

ไฟล์ต่อไปนี้มัน error
UserForm1 มันมีปัญหาตรงที่ เมื่อคียครบทั้ง 3 ช่องที่วงกลมไว้ แล้วทำการแก้ไข ในช่องแรกที่วงกลมไว้
ผลลัพ 2 ช่องที่เหลือ ก็ควรจะเป็นช่องว่างด้วย

untitled51.GIF

ช่วยหน่อยครับอาจารย์ วันจันทร์เจอกันใหม่
ได้แนบไฟล์มาให้อาจารืญดูด้วย

UserForm1 ปัญหาตรงที่ ++ อาจาร์ยต้องคีย์ที่ละบรรทัดนะครับ ผมสั่งให้มันทำงานเมื่อถึงบรรทัดนั้น

[snasui]

ปรับ Private Sub CobBox16_Change เป็นตามด้านล่างครับ

Code: Select all

Private Sub CobBox16_Change()
Dim i As Integer
    If CobBox21.ListCount > 1 Then
        For i = CobBox21.ListCount To 1 Step -1
            CobBox21.RemoveItem i - 1
        Next i
    End If
    CobBox21.Text = ""
    Sheets("ข้อมูลบุลคล").Select ' Add this code
    Range("K6").Select
    If CobBox16 = "" Then Exit Sub
    Do While Not IsEmpty(ActiveCell.Value)
        If CDate(ActiveCell.Value) >= CDate(CobBox15.Text) And _
            CDate(ActiveCell.Value) <= CDate(CobBox16.Text) Then
            CobBox21.AddItem ActiveCell.Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
    Sheets("cal_1").Select
    Range("B13") = CDate(CobBox15)
    Range("B14") = CDate(CobBox16)
End Sub

[yodpao.b]

อาจารย์เพิ่มปรรทัดนี้ขึ้นมาใช่ไหมครับ
Dim i As Integer
บรรทัดนี้หมายความว่าอะไรครับ ต้อนนี้ทำงานได้เป็นปกติแล้วครับ
ขอบคุณมากครับ

[snasui]

บรรทัดที่เพิ่มเข้ามาดูด้านล่างครับ ซึ่งได้แจ้งไว้แล้วใน Comment ครับ

Code: Select all

Sheets("ข้อมูลบุลคล").Select

สำหรับ Code ที่ถามเป็นการประกาศตัวแปร i ให้เป็น Integer ครับ

การประกาศตัวแปรก็เพื่อให้จัดสรรหน่วยความจำให้เหมาะสม จะได้ไม่ใช้หน่วยความจำสิ้นเปลือง แต่ละตัวแปรจะใช้หน่วยความจำไม่เท่ากัน ดูเพิ่มเติมที่นี่ครับ Data type summary