Page 1 of 1
เกิดปัญหา Run-time error 13 Type mismatch ไม่สามารถเพิ่มข้อมูลที่เป็นหนังสือได้
Posted: Mon Jul 16, 2018 2:43 pm
by werapon201
Code: Select all
Private Sub Reg1_AfterUpdate()
If WorksheetFunction.CountIf(Sheet2.Range("B:B"), Me.Reg1.Value) = 0 Then
MsgBox "ไม่มีข้อมูลบันทึกอยู่"
Me.Reg1.Value = ""
Exit Sub
End If
With Me
.Reg2 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 2, 0) <<< Error บรรทัดนี้
.Reg3 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 3, 0)
'.Reg4 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 4, 0)
'.Reg5 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 5, 0)
'.Reg6 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 6, 0)
End With
End Sub
Run-time error 13 Type mismatch ไม่สามารถเพิ่มข้อมูลที่เป็นหนังสือได้
Posted: Mon Jul 16, 2018 2:44 pm
by werapon201
Code: Select all
Private Sub Reg1_AfterUpdate()
If WorksheetFunction.CountIf(Sheet2.Range("B:B"), Me.Reg1.Value) = 0 Then
MsgBox "ไม่มีข้อมูลบันทึกอยู่"
Me.Reg1.Value = ""
Exit Sub
End If
With Me
.Reg2 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 2, 0)
.Reg3 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 3, 0)
'.Reg4 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 4, 0)
'.Reg5 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 5, 0)
'.Reg6 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 6, 0)
End With
End Sub
Re: เกิดปัญหา Run-time error 13 Type mismatch ไม่สามารถเพิ่มข้อมูลที่เป็นหนังสือได้
Posted: Mon Jul 16, 2018 8:55 pm
by snasui
แนบไฟล์ Excel ที่เขียน Code นี้แล้วมาด้วยจะได้สะดวกในการตอบครับ