Xin giúp sửa code VBA

Chia sẻ bởi:hands

★★★★★

‹ Lỗi công thức Search Dán dữ liệu bỏ qua các cột... ›

Quảng cáo

MN sửa giúp em code này với ạ. E muốn khi ô trống thì điền dấu "-" còn nếu ô có giá trị thì không điền. Mà code của em nó điền được lúc đầu, sau khi thử nhập giá trị vào 1 ô bất kỳ xong xoa đi nó vẫn ko tư điền dấu "-" lại

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountA(Cells.Range("G5:L25")) = 0 Then
Cells.Range("G5:L25").Value = "-"
End If
End Sub

Nếu là tôi thì bạn khỏi dựa cột hay lót dép gì cả.
Kiểu nhờ chỉnh code như vầy thì chỉ có người ghiền mới giúp.
Bất cứ ai cũng thấy rõ là thtws cần học vài bài căn bản về debug code.
(tôi không nói đặt break, xét cửa sổ biến chi cho cao siêu; chỉ giản dị đặt MsgBox một vài chỗ để tự xem code mình chạy ra sao thôi. Cách debug căn bản nhất)

Debug mà trong sự kiện thì em cũng không biết làm thế nào. Chỉ có chạy lỗi thì nó báo vàng. Còn nó treo máy thì bó tay không hiểu vì sao. Cái món sự kiện này em dính suốt. Cạch nó luôn.
Còn tác giả đang làm theo kiểu cuốn chiếu hay sao ấy. Có kết quả xong mới đưa ra nhu cầu thật hoặc sẽ thật. Cách hỏi làm cho người khác có cảm giác bị dẫn dắt.

Lỗi lặp vô hạn vì khi điền "-" vào thì lại kích hoạt sự kiện Change nữa. Vì vậy phải tắt sự kiện đi

Private Sub Worksheet_Change(ByVal Target As Range)
If intersect(target,Range("G5:L25")) is nothing then exit sub ' giới hạn sự kiện trong vùng cho trước
If WorksheetFunction.CountA(Cells.Range("G5:L25")) = 0 Then
Application.EnableEvents = false ' tắt sự kiện change
Cells.Range("G5:L25").Value = "-"
Application.EnableEvents = true' mở sự kiện change
End If
End Sub