Không cho in, nếu từ ô B5 đến B100 có cụm từ "KC"

[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.