[Cần giúp đỡ về Macro) Trong Excel (1 người xem)

[huangocthanhtam]

Chào Anh/Chị,

Em cần in 1 giữ liệu tự fill Thứ/Ngày/Tháng/Năm vào ô mặc định sẵn (Như file đính kèm) - Code này em sử dụng lại của 1 anh trên đây ạ,

Giờ em cần hỗ trợ: Cho điền thêm cột THỨ (Vd thứ 2,3) thay vì chỉ Ngày/Tháng Năm,

Thứ 2: Các ngày là liên tiếp với nhau như ngày 1,2,3,4 (Code hiện tại đang nhảy 2 ngày, mà em không dành code)

Mọi người mở file đính kèm sẽ rõ Em cảm ơn ạ

 

[quocphuoc88]

File đính kèm chả thấy 'cót két' gì hết.
Nếu bạn chỉ muốn xuất hiện thứ thì bạn có thể dùng hàm weekday để lấy cái 'thứ ' của ngày bạn in chứ cần code két gì cho mệt !

 

[huangocthanhtam]

@@ a nhấn Alt F11 ấy @@, Nghĩa là muốn nhấn nút print 1 lần nó in toàn bộ 1 tháng theo thứ tự ngày tháng tăng dần

 

[huangocthanhtam]

Sub preview()
Dim d, m, y
m = Sheet1.Range("O2")
y = Year(Date)
d = Day(Application.EoMonth(m & "/01/" & y, 0))
For i = 1 To d - 1 Step 2
Sheet1.Range("E2") = m & "/" & i & "/" & y
Sheet1.Range("J2") = Sheet1.Range("E2") + 1
Sheet1.PrintPreview 'To preview
Next i
'Cac thang co 29/ 31 ngay:
If d = 29 Or d = 31 Then
Sheet1.Range("E2") = m & "/" & d & "/" & y
Sheet1.Range("J2") = ""
Sheet1.PrintPreview 'To preview
End If
End Sub

Sub printt()
Dim d, m, y
m = Sheet1.Range("O2")
y = Year(Date)
d = Day(Application.EoMonth(m & "/01/" & y, 0))
For i = 1 To d - 1 Step 2
Sheet1.Range("E2") = m & "/" & i & "/" & y
Sheet1.Range("J2") = Sheet1.Range("E2") + 1
Sheet1.PrintOut 'To print
Next i
'Cac thang co 29/ 31 ngay:
If d = 29 Or d = 31 Then
Sheet1.Range("E2") = m & "/" & d & "/" & y
Sheet1.Range("J2") = ""
Sheet1.PrintOut 'To print
End If
End Sub

 

[quocphuoc88]

Nhìn file bạn đưa và code sau bạn in được cũng hay. File bạn đưa có đuôi .xlsx thì làm sao có code. Bạn thêm hàm weekday đằng trước cái ô ngày tháng bạn in là nó đáp ứng yêu cầu của bạn rồi.

 

[huangocthanhtam]

Em không hiếu ý anh lắm, hiện tại em vẫn đang xài được, nhấn in và ra đủ 1 tháng, nhưng không biết cách chèn hàm thứ vào, anh giúp em sữa lại code trên được không

 

[befaint]

Em không hiếu ý anh lắm, hiện tại em vẫn đang xài được, nhấn in và ra đủ 1 tháng, nhưng không biết cách chèn hàm thứ vào, anh giúp em sữa lại code trên được không

Bạn xem file đính kèm nhé.

 

[huangocthanhtam]

Bạn xem file đính kèm nhé.

Dạ cảm ơn anh, quá đúng ý em luôn ạ,

Em còn 1 ý nữa để cho file này nó hoàn thiện như sau ạ:, Em có tổng cộng 6 line, mỗi cuốn khi in ra 1 tháng là sử dụng cho 2 line, Có cách nào để mình stick vào để chọn chuyền 1,2 hoặc điền số 1 để khi in nó sẽ in line 1,2 còn lại 3,4,5,6 nó xóa đi hoặc ko in, ...

 

[befaint]

Dạ cảm ơn anh, quá đúng ý em luôn ạ,
Em còn 1 ý nữa để cho file này nó hoàn thiện như sau ạ:, Em có tổng cộng 6 line, mỗi cuốn khi in ra 1 tháng là sử dụng cho 2 line, Có cách nào để mình stick vào để chọn chuyền 1,2 hoặc điền số 1 để khi in nó sẽ in line 1,2 còn lại 3,4,5,6 nó xóa đi hoặc ko in, ...

Lúc chuyền, lúc line... chóng mặt.
Chẳng biết đúng ý không , bạn xem file nhé.

 

[huangocthanhtam]

Lúc chuyền, lúc line... chóng mặt.
Chẳng biết đúng ý không , bạn xem file nhé.

Dạ gần đúng rồi ạ, nhưng em chỉ muốn nó xóa cái chữ thôi không cần hide đi, vì hide đi thì cái form nó không cân đối + Khi stich vào line nào nghĩa là mình chọn line đó để in chứ không phải như bây giờ là stick line nào thì hide line đó (MẶc định line 1 + 2 là 1, 3&4 3, 5&6 là 4, như thế tiện hơn ạ, vì nó đi cặp

VD: stick vào Line 1 nó sẽ chỉ thể hiện Line 1 + Line 2 thôi các line khác nó xóa chử Line 3,4,5,6 trên cùng đi + nó bôi xám nguyên vùng đó đi nghĩa là k được viết

ý em như thế đó ạ

 

[befaint]

Dạ gần đúng rồi ạ, nhưng em chỉ muốn nó xóa cái chữ thôi không cần hide đi, vì hide đi thì cái form nó không cân đối + Khi stich vào line nào nghĩa là mình chọn line đó để in chứ không phải như bây giờ là stick line nào thì hide line đó (MẶc định line 1 + 2 là 1, 3&4 3, 5&6 là 4, như thế tiện hơn ạ, vì nó đi cặp

VD: stick vào Line 1 nó sẽ chỉ thể hiện Line 1 + Line 2 thôi các line khác nó xóa chử Line 3,4,5,6 trên cùng đi + nó bôi xám nguyên vùng đó đi nghĩa là k được viết

ý em như thế đó ạ

Bạn xem file nhé.....

 

[huangocthanhtam]

Bạn xem file nhé.....

Ủa file này vẫn như cũ mà có thay đổi đâu ạ, để dễ hiểu em có sữa lại và ghi luôn ý của em trong files, anh xem thứ nhé

 

[befaint]

Ủa file này vẫn như cũ mà có thay đổi đâu ạ, để dễ hiểu em có sữa lại và ghi luôn ý của em trong files, anh xem thứ nhé

Bạn đã mở file ra chưa mà kết luận vẫn như cũ?
Bạn xem lại các "Line 1 / Line 3 và Line 5" có các ô checkbox...

 

[huangocthanhtam]

Bạn đã mở file ra chưa mà kết luận vẫn như cũ?
Bạn xem lại các "Line 1 / Line 3 và Line 5" có các ô checkbox...

Có khi nào anh đính kèm nhầm file không, em mới kiểm tra lại thêm lần nữa file anh đính kèm vẫn vậy @@, a có thể mở file em đính kèm phía trên để xem thứ ạ

 

[befaint]

Có khi nào anh đính kèm nhầm file không, em mới kiểm tra lại thêm lần nữa file anh đính kèm vẫn vậy @@, a có thể mở file em đính kèm phía trên để xem thứ ạ

Bạn xem lại file bài #11 đi nhé. Tôi cố tình đặt luôn checkbox tại các Line để lựa chọn cho nhanh (không phải hiện Form gì nữa mất thời gian).

 

[huangocthanhtam]

Bạn xem lại file bài #11 đi nhé. Tôi cố tình đặt luôn checkbox tại các Line để lựa chọn cho nhanh (không phải hiện Form gì nữa mất thời gian).
View attachment 146356

Dạ, sorry anh, do em nhìn không kĩ, tuyệt vời r ạ, thanks a và diễn đàn nhiều