Nhờ viết code gạch chéo cho các ô không có dư liệu (1 người xem)

[quoc nhat]

em có file xuất nhập thuốc bắt buộc phải có dấu gạch chéo ở những cell không có diệu liệu( Thuốc). Nhờ các anh chị nghiên cứu và viết giùm em cái code tự động gạch chéo cho các ô nói trên. Dữ liệu cần gạch chéo nằm trong các cell ( B174-B178) Lưu ý các cell này đều có chứa công thức
Em có đính kèm gửi theo ảnh minh hoạ
Em đã tham khảo vấn đề này trên diễn đàn của mình rồi nhưng áp dụng không được nên đành nhờ các chuyên gia ra tay giúp đỡ.
Em cám ơn rất nhiều!

 

[dongducnhiem]

em có file xuất nhập thuốc bắt buộc phải có dấu gạch chéo ở những cell không có diệu liệu( Thuốc). Nhờ các anh chị nghiên cứu và viết giùm em cái code tự động gạch chéo cho các ô nói trên. Dữ liệu cần gạch chéo nằm trong các cell ( B174-B178) Lưu ý các cell này đều có chứa công thức
Em đã tham khảo vấn đề này trên diễn đàn của mình rồi nhưng áp dụng không được nên đành nhờ các chuyên gia ra tay giúp đỡ.
Em cám ơn rất nhiều!

Đã tham khảo Ðề tài: Giúp code: Tự động gạch chéo các dòng trống sau khi chọn Target! chưa?

 

[quoc nhat]

Đã tham khảo Ðề tài: Giúp code: Tự động gạch chéo các dòng trống sau khi chọn Target! chưa?[/QUOTE
Dạ rồi anh ạ! Nhưng ở code có cái kích chọn ở Cell E4 nhưng ở cái của em không có kích chọn mà tự động gạch chéo luôn nên em không biết áp dụng như thế nào anh ạ?

 

[sealand]

Với file của bạn thật khó làm, thôi thì mình làm file ví dụ mới vậy
-Nếu chọn số phiếu để lập phiếu thì bạn thử ở sheet Phieu Xuat
-Nếu nhập mới thì bạn thử ở Sheet Nhapdl (Cứ nhập số TT là tự động gạch phần còn lại)
Bạn tham khảo nha

 

[quoc nhat]

Với file của bạn thật khó làm, thôi thì mình làm file ví dụ mới vậy
-Nếu chọn số phiếu để lập phiếu thì bạn thử ở sheet Phieu Xuat
-Nếu nhập mới thì bạn thử ở Sheet Nhapdl (Cứ nhập số TT là tự động gạch phần còn lại)
Bạn tham khảo nha

File của em khó làm lắm anh
Dù sao cũng cảm ơn anh. Em sẽ chịu khó để vận dụng

 

[quoc nhat]

Với file của bạn thật khó làm, thôi thì mình làm file ví dụ mới vậy
-Nếu chọn số phiếu để lập phiếu thì bạn thử ở sheet Phieu Xuat
-Nếu nhập mới thì bạn thử ở Sheet Nhapdl (Cứ nhập số TT là tự động gạch phần còn lại)
Bạn tham khảo nha

Như anh làm ở File để cho em tham khảo ấy. Ở đây của anh đánh số thứ tự vào là nó sẽ tự động gạch các ô còn lại. Còn file của em là nếu cell nào có số 0 ở cột số lượng. cột nào có số 0 thì gạch từ hàng ấy xuống, anh nghĩ thế nào?

 

[trung.aof]

Anh xem cái này có đc không

 

[quoc nhat]

Anh xem cái này có đc không

oh. Đúng ý mình quá. cảm ơn bạn
Nhưng sao lệnh in giờ lại in 2 (1-2)tờ nhỉ?

 

[quoc nhat]

nhờ các anh chị xem giùm lệnh nút "in phiếu" trong Sheet 1 sao bây giờ nó lại bắt xem trước khi in và khi nhấn nút in lại in ra tờ 1 và 2 trong khi đó code chỉ in một tờ.
Em cảm ơn nhiều

 

[dhn46]

Tôi thấy Sub inphieu của bạn trung.aof đã ghi rõ

'''''''''''''' Sheet1.PrintPreview 'Xem truoc khi in'
'Sheet1.PrintOut From:=1, To:=1, Copies:=1, Preview:=False
' Neu muon in bao nhieu ban thi sua lai o so trong Copies:=??? '
'ThisWorkbook.Save

Cứ thế mà triển khai.

 

[quoc nhat]

Tôi thấy Sub inphieu của bạn trung.aof đã ghi rõ


Cứ thế mà triển khai.

Anh đã nói thế thì em biết thế thôi. Có lẽ máy tính của em bị hỏng rồi. Mỗi lần em bấm nút in phiếu là nó lại bắt xem trước khi in, thế đã đành rôì nó vẫn tiếp tục bắt chọn trang để in thế em mới khổ chứ.

 

[dhn46]

Nhìn File của bạn có cả Form và module nghĩ là bạn biết khá khá VBA. Tôi sửa 1 chút file bạn trung.aof cho bạn vậy.

 

[quoc nhat]

Nhìn File của bạn có cả Form và module nghĩ là bạn biết khá khá VBA. Tôi sửa 1 chút file bạn trung.aof cho bạn vậy.

anh quá khen rồi. Tất cả là nhờ Diễn đàn GPE của mình đấy.
Cảm ơn anh

 

[quoc nhat]

Nhìn File của bạn có cả Form và module nghĩ là bạn biết khá khá VBA. Tôi sửa 1 chút file bạn trung.aof cho bạn vậy.

Nếu được anh trung.aof cho phép cũng như sự nhiệt tình giúp đỡ của anh. vậy anh có thể làm cái gạch chéo đó trở nên tự động mà không cần dùng đến cái nút bấm kia được không, khi cell nào ở cột số lượng = 0 thì nó sẽ tự động gạch chéo luôn( từ dưới lên cell có giá trị = 0)
để em tham khảo và mở mang kiến thức ấy mà!