Error

[Ponpimon]

อาจารย์คะ หนูอยากทราบสูตรที่จะทำให้ ถ้าเกิด Error ในสูตรแล้วให้ออกจากการวนลูปเลยค่ะ แบบว่าไม่ต้องมีหน้าต่าง debug ขึ้น ถ้าเกิด Error ก็ให้หยุดทำงานไปเลยค่ะ หนูเคยลองใช้สูตร on error resume next แล้วค่าที่ได้มันเกินที่เราต้องการค่ะ หนูต้องการให้มันหยุดทำงานเลยค่ะ

[snasui]

ก็ต้องมีอย่างน้อย 2 ลำดับครับ

1. ใช้ On Error Resume Next ไว้รับค่า Error ที่เกิดและให้ Code ดำเนินการต่อได้
2. ตรวจสอบว่าค่า Error เกิดหรือไม่ ถ้าเกิดเป็นค่าอะไร แล้วใช้ค่านั้นในการดำเนินการต่อ ดูแนวทางได้ที่ Link นี้ครับ viewtopic.php?f=3&t=1329

[Ponpimon]

Private Sub CommandButton1_Click()
Dim prjs As Range, prj As Range, pjl As Integer
Dim pa As Range, paCheck As Range, pck As Range
Dim cmAll As Range, cm As Range, cmr As Range, c As Range
Dim grpAll As Range, gSl() As Variant, gc As Long
Dim gt As Range, g As Range, iCount As Integer, i As Integer
Dim ig As Integer, t As String, x As String
With Sheets("ข้อมูลอาจารย์")
Set grpAll = .Range("D38", .Range("D38").End(xlToRight))
End With
With Sheets("Sheet2")
Set pa = .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
End With
With Sheets("ตารางสอบ")
Set paCheck = .Range("B10", .Range("B" & .Rows.Count).End(xlUp))
End With
For Each pck In paCheck
On Error Resume Next
If pck <> "" Then
pjl = Application.Match(pck, pa, 0)
Set cmAll = pa.Offset(pjl - 1, 1).Resize(1, 2)
gc = Application.Match(pck.Offset(0, 1), grpAll, 0)
Set gt = Sheets("ข้อมูลอาจารย์").Range(grpAll.Offset(1, gc - 1), grpAll.Offset(1, gc - 1) _
.End(xlDown)).Resize(, 1)
iCount = 0
For Each g In gt
If Application.CountIf(cmAll, g) = 0 Then
ReDim Preserve gSl(iCount)
gSl(iCount) = g
iCount = iCount + 1
End If
Next g
Set cmr = pck.Offset(0, 2).Resize(1, 2)
t = "-"
i = 0
For Each c In cmr
Do While i <= 1
x = gSl(Int(Rnd * (UBound(gSl) + 1)))
'MsgBox "x=" & x
If InStr(t, x) = 0 Then
t = t & x
c.Offset(0, i) = x
i = i + 1
End If
Loop
Next c
End If
Next pck
UserForm10.Hide

End Sub

Code: Select all

[Ponpimon]

Error ที่บรรทัดนี้ค่ะ
If pck <> "" Then

[snasui]

โพสต์มาใหม่ครับ กลับไปอ่านกระทู้ก่อน ๆ ว่าผมแจ้งให้โพสต์ Code ในลักษณะใด ดูจาก Link ใด เพื่อให้สะดวกต่อการอ่านครับ

นอกจากนี้ ไม่ควรโพสต์เฉพาะ Code ให้อธิบายมาด้วยว่าต้องการจะทำอะไร ปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร แสดงตัวอย่างคำตอบที่ต้องการมาด้วยจะได้เข้าใจตรงกัน

อีกประการ ให้กลับไปแจ้งผลในกระทู้ทั้งหมดที่ยังไม่ได้แจ้งผล ถามและตอบให้ได้คำตอบเป็นกระทู้ ๆ ไปครับ

[Ponpimon]

โค้ดใช้งานได้แล้วค่ะ หนูลืมค่ะ ขอโทษด้วยนะคะ ครั้งต่อไปจะทำให้ถูกต้องค่ะ^^