Tự động xóa trong Excel

Tự động xóa trong Excel

Có thể thực hiện được tình huống sau không?

  1. G2 có một "X" trong ô
  2. 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

Popular posts from this blog

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Khẩn cấp - File Excel chứa các ký tự đặc biệt ở họ và tên liên hệ