Em bị lỗi thế này các bác giúp em với ạ (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Tôi tuân thủ nội quy khi đăng bài

duongnhuxuyen

Thành viên mới
Tham gia
20/12/13
Bài viết
4
Được thích
0
Em muốn ở File này dưới dạng lệnh in để tự động trong hệ thống nhưng do đó, bác sửa lỗi giúp em tăng sạ
Em cám ơn các Bác
 

File đính kèm

file marco sợ nhất virut nên không nhiều người thích mở => giảm độ tương tác.
Bạn có thể copy code lên bài viết và chỉ xem code đang lỗi ở dòng nào không?
Ngoài ra bạn có thể hỏi AI, cơ bản AI làm rất tốt việc chỉ ra lỗi code.
 
Upvote 0
các bác xem giúp em với ạ
Bài đã được tự động gộp:

coder là như vậy ạ

Sub printF()
Dim i As Long, PrintFrom As Long, PrintTo As Long
PrintFrom = Sheet2.Range("l3").Value
PrintTo = Sheet2.Range("l4").Value
For i = PrintFrom To PrintTo
Sheet2.Range("l1").Value = i
Sheet2.PrintOut Preview:=False
Next i

End Sub
Bài đã được tự động gộp:

file marco sợ nhất virut nên không nhiều người thích mở => giảm độ tương tác.
Bạn có thể copy code lên bài viết và chỉ xem code đang lỗi ở dòng nào không?
Ngoài ra bạn có thể hỏi AI, cơ bản AI làm rất tốt việc chỉ ra lỗi code.
em gửi coder ạ

Sub printF()
Dim i As Long, PrintFrom As Long, PrintTo As Long
PrintFrom = Sheet2.Range("l3").Value
PrintTo = Sheet2.Range("l4").Value
For i = PrintFrom To PrintTo
Sheet2.Range("l1").Value = i
Sheet2.PrintOut Preview:=False
Next i

End Sub
 
Upvote 0
em gửi coder ạ

Sub printF()
Dim i As Long, PrintFrom As Long, PrintTo As Long
PrintFrom = Sheet2.Range("l3").Value
PrintTo = Sheet2.Range("l4").Value
For i = PrintFrom To PrintTo
Sheet2.Range("l1").Value = i
Sheet2.PrintOut Preview:=False
Next i

End Sub
Không thấy dòng code nào thể hiện lệnh in nhỉ.
 
Upvote 0
khả năng cao là phần PrintFrom và PrintTo không phải là giá trị số.
Bạn check giá trị ở 2 ô này là bao nhiêu
 
Upvote 0

File đính kèm

Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom