Skip to content

Instantly share code, notes, and snippets.

@TGDUY TGDUY/Phamtrung.bas
Created May 8, 2018

Embed
What would you like to do?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then' Tác động đến ô A1
If Target.Value = vbNullString Then 'Nếu ô A1 rỗng
Range("B1").Font.Bold = False 'Thì ô B1 định dạng bình thường
Else ' Nếu A1 không rỗng
Range("B1").Font.Bold = True '' Thì tô đậm ô B1
End If
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.