Chia sẻ lịch

Liên hệ QC

khongtu19bk

Thành viên hoạt động
Tham gia
5/12/09
Bài viết
147
Được thích
69
Mới đây Excel đã cập nhật Calendar trong thư viện UserForm. Tuy nhiên điều đó cũng có nghĩa là nếu người dùng sử dụng office 2003 hoặc cũ hơn thì không thể sử dụng được.
Với cách nghĩ bất cứ ai cũng dùng được, hoặc ít nhất thì cũng là càng nhiều người có khả năng dùng được thì càng tốt, cho nên mình đã tạo ra calendar này.
Các bạn có thể trích xuất để cho vào file của các bạn.
Ứng dụng của nó. Bất cứ ứng dụng nào sử dụng ngày tháng, bạn đều có thể nhúng mã nguồn này vào để sử dụng. Sẽ rất cool so với việc hiện danh sách ngày tháng thành list ở combobox đấy.
48218672446_8cf5d0fb29_b.jpg

Link download:
Mã:
http://www.mediafire.com/file/ub2b1na2usgg95b/calender_class.xlsm/file
 
Trong code của Form_Initialization có lẽ nên thêm code sau để cập nhật giá trị Today của label9

Mã:
    Me.Label9.Caption = Format(Date, "DD-MMMM-YYYY")
 
Upvote 0
Mới đây Excel đã cập nhật Calendar trong thư viện UserForm. Tuy nhiên điều đó cũng có nghĩa là nếu người dùng sử dụng office 2003 hoặc cũ hơn thì không thể sử dụng được.
Với cách nghĩ bất cứ ai cũng dùng được, hoặc ít nhất thì cũng là càng nhiều người có khả năng dùng được thì càng tốt, cho nên mình đã tạo ra calendar này.
Các bạn có thể trích xuất để cho vào file của các bạn.
Ứng dụng của nó. Bất cứ ứng dụng nào sử dụng ngày tháng, bạn đều có thể nhúng mã nguồn này vào để sử dụng. Sẽ rất cool so với việc hiện danh sách ngày tháng thành list ở combobox đấy.
48218672446_8cf5d0fb29_b.jpg

Link download:
Mã:
http://www.mediafire.com/file/ub2b1na2usgg95b/calender_class.xlsm/file

Có thể thêm được cái chọn năm và chọn tháng nữa không bạn?
 
Upvote 0
Cách nhúng lịch vào file excel của các bạn, các bạn làm như sau:
Step 1:
Bạn xuất userform, module, class trên file excel calendar đó ra theo hướng dẫn như trong video dưới đây.
Hoặc bạn có thể download ở đây, mình đã xuất ra sẵn cho bạn rồi.
Link download : http://www.mediafire.com/file/6hqpe6d6hhihg83/Calendar.rar
Step 2:
Bạn import chúng vào file excel của bạn như hướng dẫn trong video dưới đây.
Step 3:
Click đúp vào ô text box của bạn. Chọn sự kiện click. Làm như hướng dẫn trong video.
Viết vào nội dung hàm, dòng code sau:
Mã:
Calender.Show
Step 4: Vào class tìm dòng code:
Mã:
MsgBox temp
Sửa thành:
Mã:
TenUserFormcủabạn.Tên ô textboxcủabạn.Text = temp
Calender.Hide
 
Upvote 0
Web KT
Back
Top Bottom