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

LienDong đã viết:

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

Nhấp chuột vào đây để mở rộng...

LienDong đã viết:

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

Nhấp chuột vào đây để mở rộng...

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

LienDong đã viết:

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)

Nhấp chuột vào đây để mở rộng...

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

huhumalu đã viết:

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

JavaScript: Sao chép.

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.

Nhấp chuột vào đây để mở rộng...

LienDong đã viết:

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

Nhấp chuột vào đây để mở rộng...