Không cho in, nếu từ ô B5 đến B100 có cụm từ "KC" (3 người xem)

[LienDong]

Em nhờ các anh viết giùm em đoạn code sau:
Em in trang "In", khi em bấm in (máy in Canon LBP2900) nếu trong trang in từ ô B5 đến B100 có cụm từ "KC"
thì thông báo "File bị lỗi", nếu không thì vẫn in bình thường ạ
Em cảm ơn nhiều

 

[BuiQuangThuan]

Em nhờ các anh viết giùm em đoạn code sau:
Em in trang "In", khi em bấm in (máy in Canon LBP2900) nếu trong trang in từ ô B5 đến B100 có cụm từ "KC"
thì thông báo "File bị lỗi", nếu không thì vẫn in bình thường ạ
Em cảm ơn nhiều

đếm xem vùng đó có chữ KC không thì làm gì tiếp. có nhìn thấy cái B5:B100 là cái gì đâu

 

[VetMini]

If ChuanBiIn(trang) Then
If Not IsError(Application.Match("KC",Range("B5:B100"),0) Then KhongInNua
End If

 

[Phuocam]

Em nhờ các anh viết giùm em đoạn code sau:
Em in trang "In", khi em bấm in (máy in Canon LBP2900) nếu trong trang in từ ô B5 đến B100 có cụm từ "KC"
thì thông báo "File bị lỗi", nếu không thì vẫn in bình thường ạ
Em cảm ơn nhiều

Dùng hàm CountIf cũng được.

If Application.CountIf(Range("B5:B100"), "KC") > 0 Then MsgBox "File bi loi"

 

[LienDong]

Cho em hỏi cách lồng các câu lệnh trên vào như thế nào ( Sub ... end sub)

 

[huhumalu]

Cho em hỏi cách lồng các câu lệnh trên vào như thế nào ( Sub ... end sub)

Bạn xem dùng thử code sau:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim response
    response = MsgBox("Ban muon in ho so?", vbYesNo + vbQuestion, "Xac nhan in hs")
    If response = vbNo Then
        Cancel = True
    Else
        If Application.WorksheetFunction.CountIf(Range("B5:B100"), "KC") > 0 Then
            MsgBox "B5:B100 co chua chuoi 'KC'", vbExclamation, "Error"
            Cancel = True
        End If
    End If
End Sub

Ps: Bạn chỉ gửi thông tin mô tả như vậy rất khó nhận được phản hồi.

 

[LienDong]

Bạn xem dùng thử code sau:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim response
    response = MsgBox("Ban muon in ho so?", vbYesNo + vbQuestion, "Xac nhan in hs")
    If response = vbNo Then
        Cancel = True
    Else
        If Application.WorksheetFunction.CountIf(Range("B5:B100"), "KC") > 0 Then
            MsgBox "B5:B100 co chua chuoi 'KC'", vbExclamation, "Error"
            Cancel = True
        End If
    End If
End Sub

Ps: Bạn chỉ gửi thông tin mô tả như vậy rất khó nhận được phản hồi.

Anh , chị ơi! đề bài có thay đổi 1 tý, em nhờ các anh chị sửa giúp
Bài cũ là nếu từ ô B5 đến B100 có cụm từ "KC" thì không cho in
Bây giờ thay đổi như sau: nếu từ ô B5 đến B100, nếu bất kỳ ô nào có cụm từ KC cuối cùng thì không cho in. Em biết dùng hàm RIGHT, nhưng chưa nghỉ ra
Trong file em thì ô B5 có cụm từ kc ở cuối cùng
Em cảm ơn!

 

[thuytrangbp28]

Anh , chị ơi! đề bài có thay đổi 1 tý, em nhờ các anh chị sửa giúp

Mình sửa lại đề bài cũ rồi, bạn cứ theo cách cũ làm là được

 

[LienDong]

Mình sửa lại đề bài cũ rồi, bạn cứ theo cách cũ làm là được

chưa hiểu ý bạn nói gì?

 

[ngocbaovu]

Bạn thử xem. Kết thúc bằng KC không phân biệt chữ hoa chữ thường, loại bỏ dấu space cuối.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim cell As Range
    
    For Each cell In ActiveSheet.Range("B5:B100")
        If Not IsEmpty(cell.Value) Then
            If LCase(Right(Trim(cell.Value), 2)) = "kc" Then
                MsgBox "File bi loi! Trong vung B5:B100, co cell ket thuc bang 'KC'.", vbExclamation
                Cancel = True
                Exit Sub
            End If
        End If
    Next cell
End Sub

 

[LienDong]

Bạn thử xem. Kết thúc bằng KC không phân biệt chữ hoa chữ thường, loại bỏ dấu space cuối.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim cell As Range
   
    For Each cell In ActiveSheet.Range("B5:B100")
        If Not IsEmpty(cell.Value) Then
            If LCase(Right(Trim(cell.Value), 2)) = "kc" Then
                MsgBox "File bi loi! Trong vung B5:B100, co cell ket thuc bang 'KC'.", vbExclamation
                Cancel = True
                Exit Sub
            End If
        End If
    Next cell
End Sub

Cảm ơn bạn nhiều nhiều!