Thêm và bớt hàng, cột trong file VBA

[tieuvodanh]

Em có file VBA như đính kèm ạ. Khi em muốn thêm và bớt cột thì làm sao để sheet print nó chạy ạ. Nhờ các cao thủ chỉ giao giúp em. Thanks!

 

[snow25]

Em có file VBA như đính kèm ạ. Khi em muốn thêm và bớt cột thì làm sao để sheet print nó chạy ạ. Nhờ các cao thủ chỉ giao giúp em. Cảm ơn!

Không hiểu câu hỏi lắm.Bạn có thể giải thích thêm bớt gì được không.

 

[tieuvodanh]

Không hiểu câu hỏi lắm.Bạn có thể giải thích thêm bớt gì được không.

Ví dụ như ở sheet "Delivery plan" em muốn chèn thêm 3 cột cho đời xe Exciter nữa thì làm sao cho nó chạy ạ?

 

[snow25]

Ví dụ như ở sheet "Delivery plan" em muốn chèn thêm 3 cột cho đời xe Exciter nữa thì làm sao cho nó chạy ạ?

Vậy Bạn xác định lại cái câu lệnh này.
ActiveSheet.Range("$A$7:$BN$5000").AutoFilter Field:=66, Criteria1:=n
Chỗ Field:=66 này bạn phải thay bằng 69.

 

[befaint]

Thế sao không chỉnh như này:

ActiveSheet.Range("$BN$7:$BN$5000").AutoFilter Field:=1, Criteria1:=n

 

[snow25]

Thế sao không chỉnh như này:

ActiveSheet.Range("$BN$7:$BN$5000").AutoFilter Field:=1, Criteria1:=n

Nhưng khi bạn đấy thêm cột rồi cái cột BN kia không phải cột điều kiện.

 

[befaint]

Nhưng khi bạn đấy thêm cột rồi cái cột BN kia không phải cột điều kiện.

Nguyên tắc: Chỉ viết code sau khi thiết kế xong cấu trúc dữ liệu.

Nếu vẫn theo lập luận của bạn, sau khi thêm cột thì số 66, 69 có cố định không?

 

[snow25]

Nguyên tắc: Chỉ viết code sau khi thiết kế xong cấu trúc dữ liệu.

Nếu vẫn theo lập luận của bạn, sau khi thêm cột thì số 66, 69 có cố định không?

À đấy là bạn đó ví dụ mà.Nếu mà có trong trường hợp thêm bớt cột thì phải thêm điều kiện để xác định cột đó.

 

[befaint]

À đấy là bạn đó ví dụ mà.Nếu mà có trong trường hợp thêm bớt cột thì phải thêm điều kiện để xác định cột đó.

Vậy bài #4 và #5 khác nhau ở điểm nào?

 

[snow25]

Vậy bài #4 và #5 khác nhau ở điểm nào?

Bài 4 chỉ là trích code của bạn đấy ra thôi bác à.

 

[befaint]

Bài 4 chỉ là trích code của bạn đấy ra thôi bác à.

Dòng cuối cùng ở bài #4 là của bạn viết đúng không?
"Chỗ Field:=66 này bạn phải thay bằng 69."
Mình chỉnh lại bài trên thành:
Dòng cuối cùng của bài #4 và cách làm ở bài #5 khác nhau ở điểm nào để có thêm bài #6?

 

[huuthang_bd]

Nguyên tắc: Chỉ viết code sau khi thiết kế xong cấu trúc dữ liệu.

Nguyên tắc:
Const CotLoc As long = 66

 

[befaint]

Nguyên tắc:
Const CotLoc As long = 66

Lọc ở 1 cột mà ôm tới 66 cột vào vùng lọc thì có gì hơi sai sai..

 

[VetMini]

cotLoc = 66
If (điều kiện cộng 3) Then cotLoc = cotLoc + 3
ActiveSheet.Range("$A$7:A$5000").Resize(, cotLoc).AutoFilter Field:=cotLoc, Criteria1:=n

 

[huuthang_bd]

Lọc ở 1 cột mà ôm tới 66 cột vào vùng lọc thì có gì hơi sai sai..

Cells(7, CotLoc).Resize(5000).AutoFilter Field:=1, Criteria1:=n