Tạo hiệu ứng cho 1 ô khi có sự thay đổi giá trị. (1 người xem)

[hoatinhyeu862000]

Như tiêu đề e có 1 bảng ví dụ mong a chị giúp đỡ xem nếu thay đổi giá trị ở 1 ô thì ô chứa hàm vlookup sẽ tạo 1 hiệu ứng bất kỳ nào đó gây chú ý cho mình.
Cảm ơn a chị ạ

 

[phulien1902]

Như tiêu đề e có 1 bảng ví dụ mong a chị giúp đỡ xem nếu thay đổi giá trị ở 1 ô thì ô chứa hàm vlookup sẽ tạo 1 hiệu ứng bất kỳ nào đó gây chú ý cho mình.
Cảm ơn a chị ạ

Cái này bác SA_DQ hay dùng, tôi học của bác ấy và giúp bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
    Randomize
    If Not Intersect(Target, [B2]) Is Nothing Then
        [D3].Interior.ColorIndex = 34 + 9 * Rnd() \ 1
    End If
End Sub

 

[phulien1902]

BẠn tham khảo File xem đúng ý không nhé

 

[hoatinhyeu862000]

Cái này bác SA_DQ hay dùng, tôi học của bác ấy và giúp bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
    Randomize
    If Not Intersect(Target, [B2]) Is Nothing Then
        [D3].Interior.ColorIndex = 34 + 9 * Rnd() \ 1
    End If
End Sub

Em vào code như trên đúng chưa bác?
E thấy có mỗi màu thay đổi mà k trong code có đoạn thay đổi cả kích thước hay sao ý

 

[phulien1902]

Em vào code như trên đúng chưa bác?
E thấy có mỗi màu thay đổi mà k trong code có đoạn thay đổi cả kích thước hay sao ý

Bạn lưu File với đuôi *.xlsx thì làm sao có Code được.
Bạn xem File tôi gửi bài #3.

 

[HungQuoc49]

Góp vui đoạn code.
Tạo hiệu ứng bằng font.size
---
Chuột phải vào sheet tab ---> chon view code ---> paste ---> nhấn alt+q ---> thay đổi thử B2
Các ô có tham chiếu tới B2 sẽ thay đổi trong 1s

Private Sub Worksheet_Change(ByVal Target As Range)
Dim FS
If Target.Address = "$B$2" Then
FS = Target.DirectDependents.Font.Size
Target.DirectDependents.Font.Size = FS + 10
Application.Wait (Now + TimeValue("0:00:01"))
Target.DirectDependents.Font.Size = FS
End If
End Sub