code chạy dữ liệu không đúng

[tu205489039]

Dạ nhờ anh chị xem giúp em trường hợp này với ạ
em có đoạn code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
ActiveSheet.Unprotect ("123")
Sheet4.Shapes("Rectangle 6").TextFrame.Characters.Text = [u8]
Sheet4.Shapes("Rectangle 6").Fill.ForeColor.RGB = RGB(0, 0, 0)
Sheet4.Shapes("Rectangle 7").TextFrame.Characters.Text = [u9]
Sheet4.Shapes("Rectangle 7").Fill.ForeColor.RGB = RGB(0, 0, 0)
Sheet4.Shapes("Rectangle 8").TextFrame.Characters.Text = [u10]
Sheet4.Shapes("Rectangle 8").Fill.ForeColor.RGB = RGB(0, 0, 0)
Sheet4.Shapes("Rectangle 9").TextFrame.Characters.Text = [u11]
Sheet4.Shapes("Rectangle 9").Fill.ForeColor.RGB = RGB(0, 0, 0)
Sheet4.Shapes("Rectangle 10").TextFrame.Characters.Text = [u12]
Sheet4.Shapes("Rectangle 10").Fill.ForeColor.RGB = RGB(0, 0, 0)
    Dim Cll As Range, Tmp
    Tmp = Target.Value
    For Each Cll In Sheets("check").Range("AA2:AA600")
        If Cll.Value = Target Then
            Cll.Interior.ColorIndex = 4
            Exit For
        End If
    Next Cll
Sheet4.Range("U1").Value = Sheet4.Range("U8").Value
ActiveSheet.Protect ("123")
End If
End Sub

Text của Shape lấy theo kết quả tại U8 khi B3 thay đổi
Khi em dùng office 2013 trở về trước thì khi B3 thay đổi thì text của shape cũng thay đổi theo. Nhưng từ khi sang office 365, thì khi B3 thay đổi thì text của shape nhận giá trị trước khi thay đổi của U8 chứ không lấy kết quả U8 của B3 mới
Mong anh chị xem giúp em cái này phải chỉnh như thế nào, để khi B3 thay đổi thì text trên shape cũng nhảy theo vậy ạ
em cảm ơn nhiều ạ

 

[Maika8008]

Bạn xem lại công thức chứ code ở 365 không thể chạy khác với 2013 được

 

[tu205489039]

mình dùng addin "Input form list" để nhập key ở cột AA để dán vào B3 thử. mình thấy text của shape nó ko tự động nhảy theo giá trị mới theo giá trị của U8 mới mà nhảy theo giá trị của U8 cũ
thiệt mình cũng không hiểu vì sao chạy trên 365 nó lại như thế nữa

Bài đã được tự động gộp: 27/11/21

à, hay do addin ta, để em coi lại chổ này thêm thử