Chia sẻ lịch (1 người xem)

[khongtu19bk]

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.

Link download:

http://www.mediafire.com/file/ub2b1na2usgg95b/calender_class.xlsm/file

 

[CEO76]

Trong code của Form_Initialization có lẽ nên thêm code sau để cập nhật giá trị Today của label9

    Me.Label9.Caption = Format(Date, "DD-MMMM-YYYY")

 

[Hoàng Nhật Phương]

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.

Link download:

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?

 

[khongtu19bk]

Có thể thêm được cái chọn năm và chọn tháng nữa không bạn?

Ừ, cái này là base, nên mọi người tùy ý chế biến theo ý đồ của mỗi người nhé.

 

[VetMini]

Ừ, cái này là base, nên mọi người tùy ý chế biến theo ý đồ của mỗi người nhé.

Definition of base adjective from the Oxford Advanced Learner's Dictionary
base (adjective): not having moral principles or rules
Dịch ra tiếng Việt: không có đạo đức.

 

[khongtu19bk]

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:

Calender.Show

Step 4: Vào class tìm dòng code:

MsgBox temp

Sửa thành:

TenUserFormcủabạn.Tên ô textboxcủabạn.Text = temp
Calender.Hide