โค้ด Delect มีปัญหาค่ะ ขึ้น เมธอด Select ของคลาส range ล้มเหลว
Posted: Wed Sep 16, 2020 9:00 am
โค้ด Delect มีปัญหาค่ะ ขึ้น error เมธอด Select ของคลาส range ล้มเหลว ที่บรรทัด Sheet4.Cells(x, 2).EntireRow.Select From ชื่อ ของแข็ง,ของเหลว,สารมาตรฐาน ติด error เมธอด Select ของคลาส range ทุก Fromค่ะ
Code: Select all
Count = Sheet4.Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To Count
If Sheet4.Cells(x, 2) Like TextBox1 Then
If Sheet4.Cells(x, 7) Like TextBox2 Then
answer = MsgBox("คุณต้องการลบข้อมูลหรือไม่", vbYesNo + vbQuestion, "Delete")
If answer = vbYes Then
Sheet4.Cells(x, 2).EntireRow.Select
Selection.Delete
End If
End If
End If
Next x
ค่อย ๆ ถามตอบกันไปครับ