Nhờ các Anh. Chị trên diễn đàn viết lại đoạn code sau đơn giản hơn ?

[van80]

Đây là đoạn code mình viết nhưng hơi bị dài quá. Mong các Anh Chị viết lại cho ngắn hơn.

If Range("Q36") = "Sai" Or Range("Q37") = "Sai" Or Range("Q38") = "Sai" Or Range("Q39") = "Sai" Or Range("Q40") = "Sai" Or Range("Q41") = "Sai" Or Range("Q43") = "Sai" Or Range("Q44") = "Sai" Or Range("Q45") = "Sai" Or Range("Q46") = "Sai" Then
MsgBox "Cac DT dieu tra cua HS vua nhap, Ban nhap bi sai can phai xem lai !", vbDefaultButton1, "Chú ý": Sheets("DB1").Select
Else
Exit Sub
End If

Cám ơn !

 

[bivily]

Bạn có thể dùng câu lệnh sau:

If COUNTIF(Q36:Q46,"Sai") > 0 then
[COLOR=#000000]    MsgBox "Cac DT dieu tra cua HS vua nhap, Ban nhap bi sai can phai xem lai !", vbDefaultButton1, "Chú ý": [/COLOR][COLOR=#000000]Sheets("DB1").Select[/COLOR]
[COLOR=#000000]Else[/COLOR]
[COLOR=#000000]    Exit Sub[/COLOR]
[COLOR=#000000]End If[/COLOR]

 

[hungpecc1]

Đây là đoạn code mình viết nhưng hơi bị dài quá. Mong các Anh Chị viết lại cho ngắn hơn.

If Range("Q36") = "Sai" Or Range("Q37") = "Sai" Or Range("Q38") = "Sai" Or Range("Q39") = "Sai" Or Range("Q40") = "Sai" Or Range("Q41") = "Sai" Or Range("Q43") = "Sai" Or Range("Q44") = "Sai" Or Range("Q45") = "Sai" Or Range("Q46") = "Sai" Then
MsgBox "Cac DT dieu tra cua HS vua nhap, Ban nhap bi sai can phai xem lai !", vbDefaultButton1, "Chú ý": Sheets("DB1").Select
Else
Exit Sub
End If

Cám ơn !

có nhiều cách :
thử với code này xem thế nào !

Sub GPE()   
 Dim rng As Range    
       Set rng = Range("Q36:Q44").Find("sai", , , xlPart)    
      If Not rng Is Nothing Then MsgBox " ............."
End Sub

hoặc code này :

Sub GPE()  
  Dim tmparr  ,i&
    tmparr = Range("Q36:Q41")   
    For i = 1 To UBound(tmparr, 1)      
     If tmparr(i, 1) Like "sai" Then         
             MsgBox ".............."           
            Exit For      
     End If    
    Next
End Sub

 

[sealand]

Nếu ô Q42 không thuộc diện kiểm tra ta có thể dùng:

Sub Ktra1()
If WorksheetFunction.CountIf([Q36:Q41], "Sai") + WorksheetFunction.CountIf([Q43:Q46], "Sai") > 0 Then .....Làm gì tuỳ bạn
End Sub

nếu không phải thì:

Sub Ktra1()
If WorksheetFunction.CountIf([Q36:Q46], "Sai")  > 0 Then .....Làm gì tuỳ bạn
End Sub

 

[van80]

Bạn có thể dùng câu lệnh sau:

If COUNTIF(Q36:Q46,"Sai") > 0 then
[COLOR=#000000]    MsgBox "Cac DT dieu tra cua HS vua nhap, Ban nhap bi sai can phai xem lai !", vbDefaultButton1, "Chú ý": [/COLOR][COLOR=#000000]Sheets("DB1").Select[/COLOR]
[COLOR=#000000]Else[/COLOR]
[COLOR=#000000]    Exit Sub[/COLOR]
[COLOR=#000000]End If[/COLOR]

Khi kiểm tra chương trình báo lỗi sai ở hàm COUNTIF
bạn xem lại dùm nha ! cán ơn bạn nhiều.

 

[hungpecc1]

Khi kiểm tra chương trình báo lỗi sai ở hàm COUNTIF
bạn xem lại dùm nha ! cán ơn bạn nhiều.

COUNTIF là hàm của bảng tính --> muốn sử dụng bạn phải gõ đầy đủ : Application.worksheetFuntion.Countif ( có thể không cần application cũng được)

 

[van80]

có nhiều cách :
thử với code này xem thế nào !

Sub GPE()   
 Dim rng As Range    
       Set rng = Range("Q36:Q44").Find("sai", , , xlPart)    
      If Not rng Is Nothing Then MsgBox " ............."
End Sub

hoặc code này :

Sub GPE()  
  Dim tmparr  ,i&
    tmparr = Range("Q36:Q41")   
    For i = 1 To UBound(tmparr, 1)      
     If tmparr(i, 1) Like "sai" Then         
             MsgBox ".............."           
            Exit For      
     End If    
    Next
End Sub

Cả 2 đoạn code trên rất tuyệt vời , mình đã kiểm tra rồi. Cám ơn nhiều ! Thân mến chào !