Vấn đề về đổ dữ liệu theo ngày

Liên hệ QC

hai1111

Thành viên mới
Tham gia
1/7/07
Bài viết
40
Được thích
6
Mình có đính kèm file. Các bạn giúp mình làm VBA sao cho dữ liệu trong cột (ngày chọn) sẽ đổ vào ngày tương ứng của người đó trong bảng. Xin cảm ơn nhé
 

File đính kèm

Lần chỉnh sửa cuối:

File đính kèm

Upvote 0
Cám ơn bạn đã giúp đỡ, nhưng bạn hiểu sai ý mình rồi.
Khi bấm nút save, Mình đổ từ cột (ngày chọn) vào trong bảng có 31 ngày
 
Upvote 0
Theo mình cái này không cần dùng VB đâu Bạn. Chỉ cần Bạn dùng công thức là OK mà. Bạn xem file nhé!
 

File đính kèm

Upvote 0
Bài của Viethoai làm chưa chính xác đâu, thử test với nhiều trường hợp xem. Tuy nhiên chưa hiểu rõ ý đồ của tác giả nên chưa làm chính xác được, chọn ngày ở đây mục đích gì, sau khi chọn rồi, có chọn lần 2 nữa không?, dữ liệu lưu ra sao...

Theo mình cái này không cần dùng VB đâu Bạn. Chỉ cần Bạn dùng công thức là OK mà. Bạn xem file nhé!

Chưa thấy công thức trong file của bạn!
 
Lần chỉnh sửa cuối:
Upvote 0
Mình kiểm tra vẫn thấy đúng mà. Bạn thử đưa ra trường hợp không chính xác mình xem thử. Có điều chưa đúng ý tác giả thôi mà.
Ngược lại Bạn à. Theo mình hiểu là khi tác giả bấm vào ngày chọn là 3/2/2009 chẳng hạn thì tự động những số liệu phía dưới ô vừa đánh ngày đó (ô 3/2/2009) sẽ được copy và dán vào ngày tương ứng ở trong bảng số liệu.
Có lẽ đây là cách nhập dữ liệu thao ngày của tác giả.
 
Upvote 0
Vâng, bạn đã hiểu ý mình. khi chọn bên cột (ngày chọn) là 5/1/2009 thì trong bảng (31 ngày) vẫn SAVE lại cái ngày trước đó mình chọn.
Nếu vậy:
1. Bạn nhập trực tiếp vào bảng sao phải mất công nhập cột ngày chọn rồi dùng VBA khổ thân
2. Nếu bạn làm như vậy động tác copy chỉ mất 2giây là xong sao bạn lại phải yêu cầu VBA
 
Upvote 0
Mình có đính kèm file. Các bạn giúp mình làm VBA sao cho dữ liệu trong cột (ngày chọn) sẽ đổ vào ngày tương ứng của người đó trong bảng. Xin cảm ơn nhé
Dùng code này xem sao:
PHP:
Private Sub CommandButton1_Click()
With Range([AJ5], [AJ65536].End(xlUp))
[C5].Offset(, Day([AJ4].Value)).Resize(.Rows.Count).Value = .Value
End With
End Sub
 

File đính kèm

Upvote 0
Xin cảm ơn các bạn đã đóng góp. Huuthang_bd đã làm đúng ý mình rồi. Thx all
 
Upvote 0
Web KT

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

Back
Top Bottom