Điều kiện xuất hiện comment! (1 người xem)

[mymapmap]

Xin các Thầy cho hỏi để xuất hiện comment theo điều kiện như file đính kèm thì e phải làm như thế nào.?
Xin cảm ơn nhiều

 

[sebastiantran]

Sub hide_comment()
If Range("G41") > 3 * Range("C19") Then
    Range("G41").Comment.Visible = True
Else
    Range("G41").Comment.Visible = False
End If
End Sub

Bạn copy dòng code này vào nhé

 

[mymapmap]

Sub hide_comment()
If Range("G41") > 3 * Range("C19") Then
    Range("G41").Comment.Visible = True
Else
    Range("G41").Comment.Visible = False
End If
End Sub

Bạn copy dòng code này vào nhé

Mình đã thử với code như trên rất tốt nhưng mình muốn thêm tính năng tự thay đổi khi giá trị G41 thay đổi thì sẽ xét điều kiện G41>3*C19 để thay đổi việc show/hide comment. Với lại khi thêm nhiều trang phía dưới nữa, mỗi trang cách nhay 54 dòng thì tùy vào điều kiện của mỗi cặp ở mỗi trang mà show/hide comment thì mình phải làm như thế nào?
Cảm ơn rất nhiều về sự quan tâm và giải đáp thắc mắc này.

 

[sebastiantran]

Trong sheet 1 bạn để đoạn code như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.Run "hide_comment"
End Sub

Trong Module bạn để đoạn code như sau:

Sub hide_comment()
Dim i As Integer
i = 19
Do While i < 236
If Range("G" & i + 22).Value > 3 * Range("C" & i).Value Then
    Range("G" & i + 22).Comment.Visible = True
Else
    Range("G" & i + 22).Comment.Visible = False
End If
i = i + 54
Loop
End Sub

Không biết như vậy đã đúng yêu cầu chưa

 

[mymapmap]

Bạn làm như trên tôi không biết nói như thế nào nữa. Chỉ có thể nói là quá "tuyệt vời ông mặt trời". Nhưng tôi còn một thắc mắc là khi in comment có xuất hiện trong trang in ko? tôi mới chuyển qua chế độ in Preview thì không thấy vì hiện tại bi giờ tôi không có máy in để test.
Cảm ơn rất nhiều gì sự giúp đỡ hữu ích này.

 

[sebastiantran]

https://support.office.com/en-au/ar...orksheet-f4f6692e-3ae1-481d-b906-2a12aee348a4

bạn làm theo hướng dẫn như ở đây là được nhé

 

[mymapmap]

Có lần lâu lắm không nhớ rõ mình có đọc code có một người dùng hàm range và sau đó dùng offset xuống cho các trang khác trong trường hợp này mình có thể làm như vậy được không? và như thế việc tính toán có nhanh hơn dùng vòng lặp while không? đôi khi số trang rất nhiểu đến hơn 50 trang. Nếu offset được thì mình làm như thế nào?
Xin trân trọng cảm ơn.!

 

[sebastiantran]

Có lần lâu lắm không nhớ rõ mình có đọc code có một người dùng hàm range và sau đó dùng offset xuống cho các trang khác trong trường hợp này mình có thể làm như vậy được không? và như thế việc tính toán có nhanh hơn dùng vòng lặp while không? đôi khi số trang rất nhiểu đến hơn 50 trang. Nếu offset được thì mình làm như thế nào?
Xin trân trọng cảm ơn.!

mình vẫn chưa hiểu ý bạn lắm trong trường hợp này, bạn có thể nêu rõ lại yêu cầu ban đầu cụ thể không?

 

[mymapmap]

Vấn đề là file template của mình có 1 trang từ A154 để nhập số liệu tính toán cho một báo cáo. nếu hồ sơ có nhiều báo cáo đầu tiên sẽ copy trang đầu tiên đấy dán xuống và nhập liệu vào tính toán. số lượng trang báo cáo không cố định từ 1 đến khoản 60 trang. phần comment sẽ xuất hiện cảnh báo ở những trang có nội dung ô G lớn ô C trong mổi trang tương ứng.
Hơi lòng vòng tí mong bạn chiu kho đọc tí.
thanks!

 

[sebastiantran]

Ý bạn là sử dụng hàm offset thay vì vòng lặp à?