Tự động xóa trong Excel
Có thể thực hiện được tình huống sau không?
- G2 có một "X" trong ô
- Khi dữ liệu đã nhập của tôi khiến H2 có giá trị cao hơn J2, tôi muốn "X" trong G2 tự động bị xóa. Rõ ràng, tôi có 100 hàng cần để có thể làm được điều đó, không chỉ hàng 2.
Những gì tôi có là cái này:
Khi "qty khả dụng" của tôi giảm xuống dưới MIN, nó sẽ chuyển các ô sang màu đỏ. Khi tôi đặt hàng, tôi đặt một dấu x vào cột Đã đặt hàng và nó sẽ chuyển nó trở lại màu xanh lục để tôi không phải tiếp tục nhìn nó bằng màu đỏ. Tôi lọc theo màu đỏ để tôi biết mình cần đặt hàng. Tôi chỉ muốn một cách tự động để xóa x khi qty có sẵn nhiều hơn min.
Cảm ơn.
Câu trả lời:
Tôi hiểu bạn đang đi đâu với điều đó nhưng nó không hoàn toàn là thứ tôi cần.
Tôi phải tự đặt dấu x vào khi tôi đặt hàng các bộ phận. Tôi muốn chữ x tự động xóa khi H cao hơn J.
Xin chào,
Bạn cần mã vb cho điều đó. Nhấp chuột phải vào tab trang tính mà bạn muốn, xem mã và dán mã vào bên phải.
Mã sẽ thực thi cho bất kỳ thay đổi nào trên trang tính nhưng điều đó sẽ không gây ra vấn đề
Private Sub Worksheet_Change (ByVal Target As Range)
Dim LastRow As Long, c As Range
LastRow = Cells (Rows.Count, "H"). End (xlUp) .Row
Application.EnableEvents = Sai
Đối với mỗi c Trong phạm vi ("H2: H" & LastRow)
Nếu c.Value> c.Offset (, 2) Thì
c.Offset (, -1) .learContents
Kết thúc nếu
Tiếp theo
Application.EnableEvents = True
Kết thúc Sub
Comments
Post a Comment