Leanhducbidv
Thành viên mới
- Tham gia
- 19/1/17
- Bài viết
- 15
- Được thích
- 1
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("a3")) Is Nothing Then
Range("b4:b10") = ""
End If
End Sub
Đúng ý rồi bạn à, nếu có thể sửa lại khi bấm chọn loại tiền thì cột số lượng nó mới xóa có được không ban? (hiện tại đưa con trỏ đến là nó đã xóa luôn rồi). Thanhk bạn nhiều nhéCông thức thì không biết...
Nếu thích thì VBA, còn không thì bỏ qua, coi như chưa đọc bài này...
Chép đoạn code này backend của sheet...
Mã:Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("a3")) Is Nothing Then Range("b4:b10") = "" End If End Sub
Đã đúng ý rồi, thanks bạn nhiều nhéĐổi sự kiên thay vì Seletion_Change thành Change() thôi...