[VBA] xoá 1 vài sản phẩm trong đơn hàng khách đã mua khi đã lưu vào data.

[andi1006]

Chào các bạn,

Mình có 1 cái form để nhập đơn hàng bán cho khách , sau khi nhập xong sẽ bấm lưu đơn hàng này và sẽ insert đơn hàng này vào vào 1 sheet "data" (sheet data chứa tất cả thông tin sản phẩm, số lượng, mã đơn hàng... )

sheet data

Mã đơn hàng	Tên sản phẩm	giá tiền	Số lượng
dh1	gạch	2000	1
dh1	xi măng	50000	1
dh1	đá	20000	1
dh2	gạch	2000	1
dh2	xi măng	50000	1
dh2	sắt	100000	1
dh3	xi măng	50000	1

vậy khi mà mình dùng form hoá đơn load lại cái đơn hàng 2 ( mã đơn hàng là dh2)

mình muốn xoá sản phẩm xi măng và sắt của đơn hàng dh2 trong "sheet data" do khách hàng trả lại, mình gọi lệnh VBA thế nào vậy mọi người.

 

[Hoàng Trọng Nghĩa]

Chào các bạn,

Mình có 1 cái form để nhập đơn hàng bán cho khách , sau khi nhập xong sẽ bấm lưu đơn hàng này và sẽ insert đơn hàng này vào vào 1 sheet "data" (sheet data chứa tất cả thông tin sản phẩm, số lượng, mã đơn hàng... )

sheet data

Mã đơn hàng	Tên sản phẩm	giá tiền	Số lượng
dh1	gạch	2000	1
dh1	xi măng	50000	1
dh1	đá	20000	1
dh2	gạch	2000	1
dh2	xi măng	50000	1
dh2	sắt	100000	1
dh3	xi măng	50000	1

vậy khi mà mình dùng form hoá đơn load lại cái đơn hàng 2 ( mã đơn hàng là dh2)
View attachment 264359
mình muốn xoá sản phẩm xi măng và sắt của đơn hàng dh2 trong "sheet data" do khách hàng trả lại, mình gọi lệnh VBA thế nào vậy mọi người.

Bạn đưa cái file lên đây tôi sẽ hướng dẫn cách bạn xóa, nhìn hình tôi rất dị ứng.

 

[andi1006]

Bạn đưa cái file lên đây tôi sẽ hướng dẫn cách bạn xóa, nhìn hình tôi rất dị ứng.

cảm ơn

Hoàng Trọng Nghĩa​

 

[Hoàng Trọng Nghĩa]

cảm ơn

Hoàng Trọng Nghĩa​

Bạn đưa cái file không thực tế, bạn dùng form trên sheet hay trên UserForm? Bạn xóa như thế nào?

 

[andi1006]

sh.Range("A" & select_Row ).EntireRow.Delete

mình đang không có ở nơi làm việc nên mình ko có file, mình làm mẫu nhé

 

[Hoàng Trọng Nghĩa]

mình đang không có ở nơi làm việc nên ko có file đó, mình đang dùng userform và xoá khi click vào row trong list

Trên UserForm đó bạn xóa thế nào? Chọn trên ListBox hàng đó và bấm nút xóa hay sao? Mô tả cho rõ vấn đề này cho tôi.

 

[andi1006]

Trên UserForm đó bạn xóa thế nào? Chọn trên ListBox hàng đó và bấm nút xóa hay sao? Mô tả cho rõ vấn đề này cho tôi.

đúng rồi mình đang select cái row rồi xoá

Rows(1).EntireRow.Delete
Rows(2).EntireRow.Delete

mình có thử dùng cách xoá thế bằng cách truyền vào index nhưng mà sẽ sai vì excel nó sẽ tính index lại từ đầu khi xoá 1 dòng, khi thực hiện câu lệnh Rows(1).EntireRow.Delete thì Rows(2).EntireRow.Delete sẽ là row 3

ví dụ mình muốn xoá 2 dòng (1 ->index 1 ; 2 ->index 2)

1 ->index 1
2 ->index 2
3 ->index 3
4 ->index 4
5 ->index 5

khi Rows(1).EntireRow.Delete thì nó sẽ còn là

2 ->index 1
3 ->index 2
4 ->index 3
5 ->index 4

vì vậy khi Rows(2).EntireRow.Delete

nó sẽ xoá cái 3 ->index 2

 

[Hoàng Trọng Nghĩa]

đúng rồi mình đang select cái row rồi xoá


mình có thử dùng cách xoá thế bằng cách truyền vào index nhưng mà sẽ sai vì excel nó sẽ tính index lại từ đầu khi xoá 1 dòng, khi thực hiện câu lệnh Rows(1).EntireRow.Delete thì Rows(2).EntireRow.Delete sẽ là row 3

Nếu chắc bạn chọn một hàng trên ListBox để xóa thì tôi sẽ nghiên cứu cho bạn, chờ tôi viết code cho bạn.

 

[andi1006]

Nếu chắc bạn chọn một hàng trên ListBox để xóa thì tôi sẽ nghiên cứu cho bạn, chờ tôi viết code cho bạn.

ah ko mình muốn xoá nhiều dòng, 1 dòng thì làm dc rồi

 

[Hoàng Trọng Nghĩa]

ah ko mình muốn xoá nhiều dòng, 1 dòng thì làm dc rồi

Thế bạn xóa thế nào được nhiều dòng trên ListBox? Bạn chọn thuộc tính MultiSelect?
Bạn nạp ListBox bằng List hay RowSource?

 

[SA_DQ]

ah ko mình muốn xoá nhiều dòng, 1 dòng thì làm dc rồi

Thì mỗi ngày bạn tiến hành xóa 1 dòng, có sao chăng?

 

[Hoàng Trọng Nghĩa]

MultiSelect là thế này, những hàng được chọn cùng một lúc.



Tôi không quan tâm xóa 1 dòng hay nhiều dòng, tôi chỉ xác định bạn nạp dữ liệu lên ListBox bằng List hay RowSoure mà thôi. Cái hình này tôi nạp bằng RowSource.

Bài đã được tự động gộp: 19/8/21

Bổ sung thêm là bạn nên thêm 1 cột mã hàng phụ sẽ giải quyết vấn đề này rất nhanh.