Định dạng có điều kiện Excel không hiển thị khi in?

Question

Tôi có một bảng tính như sau:

Với dạng có điều kiện để làm nổi bật hàng đầu mười con số của tôi trong cột U.

Tôi có mã VBA sau trong bảng tính của tôi :

Và đoạn mã này để vô hiệu hóa tính và tái phép tính:

Option Explicit 
Sub code2() 
MsgBox "This will take upto 2 minutes." 

Application.ScreenUpdating = False 
Dim WB As Workbook 
Dim I As Long 
Dim j As Long 
Dim Lastrow As Long 
Dim WeekNum As Integer 

'Clear Data Sheet 

On Error GoTo Message 

With ThisWorkbook.Worksheets("Data") 
    .Rows(2 & ":" & .Rows.Count).ClearContents 
End With 

On Error Resume Next 

Set WB = Workbooks("L.O. Lines Delivery Tracker.xlsm") 
On Error GoTo 0 
If WB Is Nothing Then 'open workbook if not open 
    Set WB = Workbooks.Open("G:\WH DISPO\(3) PROMOTIONS\(18) L.O. Delivery Tracking\L.O. Lines Delivery Tracker.xlsm") 
End If 

' ======= Edit #2 , also for DEBUG ====== 
With WB.Worksheets(1) 
    Lastrow = .Cells(.Rows.Count, "G").End(xlUp).Row 

    j = 2 

     For I = 7 To Lastrow 

     WeekNum = CInt(Format(.Range("G" & I).Value, "ww", 2) - 1) 

     ' === For DEBUG ONLY === 
     Debug.Print CInt(ThisWorkbook.Worksheets(2).Range("B9").Value) 
     Debug.Print WeekNum 
     Debug.Print CInt(ThisWorkbook.Worksheets(2).Range("D9").Value) 
     Debug.Print Year(.Range("G" & I).Value) 
     Debug.Print ThisWorkbook.Worksheets(2).Range("B6").Value 
     Debug.Print .Range("M" & I).Value 


     If CInt(ThisWorkbook.Worksheets(2).Range("B9").Value) = WeekNum Then ' check if Month equals the value in "A1" 
      If CInt(ThisWorkbook.Worksheets(2).Range("D9").Value) = Year(.Range("G" & I).Value) Then ' check if Year equals the value in "A2" 
      If ThisWorkbook.Worksheets(2).Range("B6").Value = .Range("M" & I).Value Then 
       ThisWorkbook.Worksheets(3).Range("A" & j).Value = .Range("G" & I).Value 
       ThisWorkbook.Worksheets(3).Range("B" & j).Formula = "=WeekNum(A" & j & ",21)" 
       ThisWorkbook.Worksheets(3).Range("C" & j).Value = .Range("L" & I).Value 
       ThisWorkbook.Worksheets(3).Range("D" & j).Value = .Range("D" & I).Value 
       ThisWorkbook.Worksheets(3).Range("E" & j).Value = .Range("E" & I).Value 
       ThisWorkbook.Worksheets(3).Range("F" & j).Value = .Range("F" & I).Value 
       ThisWorkbook.Worksheets(3).Range("g" & j).Value = .Range("p" & I).Value 
       ThisWorkbook.Worksheets(3).Range("H" & j).Value = .Range("H" & I).Value 
       ThisWorkbook.Worksheets(3).Range("I" & j).Value = .Range("I" & I).Value 
       ThisWorkbook.Worksheets(3).Range("J" & j).Value = .Range("J" & I).Value 
       ThisWorkbook.Worksheets(3).Range("k" & j).Value = .Range("Q" & I).Value 
       ThisWorkbook.Worksheets(3).Range("L" & j).Value = .Range("m" & I).Value 
       j = j + 1 
      End If 
      End If 
     End If 
    Next I 

End With 




Application.Calculation = xlAutomatic 
ThisWorkbook.Worksheets("Data").UsedRange.Columns("B:B").Calculate 
ThisWorkbook.Worksheets(2).UsedRange.Columns("B:AA").Calculate 



On Error GoTo Message 
With ThisWorkbook.Worksheets(2) '<--| change "mysheet" to your actual sheet name 
    Intersect(.Range(Rows(14), .UsedRange.Rows(.UsedRange.Rows.Count)), .Range("G:G")).WrapText = True 
    Intersect(.Range(Rows(14), .UsedRange.Rows(.UsedRange.Rows.Count)), .Range("G:G")).EntireRow.AutoFit 
End With 




End 

ThisWorkbook.Worksheets(2).Activate 
Application.ScreenUpdating = True 




Exit Sub 
Message: 
On Error Resume Next 
Exit Sub 


End Sub 

Tôi không biết nếu đó là vì tôi đang quay calclulations và tắt, nhưng khi tôi muốn in tờ này, ngay cả khi tôi in dưới dạng pdf. Định dạng có điều kiện không hiển thị.

Xin vui lòng ai đó có thể cho tôi biết tôi đang làm gì sai?

Edit: Tôi cũng đã thử thêm này để workbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
For Each wk In Worksheets 
wk.Calculate 
Next 
End Sub 

Nó vẫn không hoạt động.

Answer 1

Đối với câu hỏi thực tế của bạn, "Tôi đang làm gì sai?", Tôi nghĩ câu trả lời có thể thực sự là "Không có gì!"

Nếu định dạng hiển thị khi bạn in (vì bạn đã thực hiện phép tính), Excel sẽ in nó; và màu sắc trong chú giải trong bản xem trước bản in của bạn cho thấy rằng không có cài đặt in nào ngăn không cho in màu. Vì vậy, có khả năng đơn giản là Excel không hoạt động chính xác.

Tôi thường không đưa ra câu trả lời đó, vì thường có lý do tại sao mọi thứ xảy ra, nhưng không in định dạng hiển thị có vẻ như là vấn đề thực tế. Tôi đề nghị các điều tra và cách giải quyết sau đây:

Thử tự động chuyển tính toán trở lại Tự động trước khi in. Nếu điều đó sửa chữa nó, sau đó nó xác nhận rằng Excel đang gặp vấn đề với việc kết hợp định dạng có điều kiện với tính toán thủ công (mặc dù nó không nên). Trong trường hợp đó, một giải pháp khả thi là tạo một nút in riêng biệt, tính toán này sẽ tự động tính toán, in với các thiết lập hiện tại, và sau đó chuyển tính toán trở lại tự động.

Một giải pháp khác, đòi hỏi nhiều nỗ lực hơn một chút, là thay thế định dạng có điều kiện bằng VBA. Tôi hy vọng điều này sẽ hoạt động, vì định dạng được áp dụng thủ công vẫn có vẻ như in. Mã của bạn chỉ cần lặp qua từng dòng dữ liệu, so sánh giá trị trong hàng hiện tại với tất cả các hàng để xem liệu nó có nằm trong top 10 hay không, sau đó đặt màu nền cho tất cả các ô trên hàng.