Em dùng dùng 2 option button dấu X vào 2 ô định sắn trong excel. Nhưng gặp rắc rối là code không chạy, nhờ các anh chỉnh dùm em với.
Vì nội dung khó miêu tả nên em thông qua hình ảnh cho trực quan.
Đây là code em viết
Vì nội dung khó miêu tả nên em thông qua hình ảnh cho trực quan.
Đây là code em viết
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target.Address = "J4"
If [J4].Value = "1" Then [G6].Value = "x"
[G6].Font.Name = "Wingdings"
[G6].Font.Size = 14
[G6].HorizontalAliginment = xlCenter
[G7].Value = ""
Else
[G6].Value = ""
[G7].Value = "x"
[G7].Font.Name = "Wingdings"
[G7].Font.Size = 14
[G7].HorizontalAliginment = xlCenter
End Sub