Chia sẻ calendar

tuhocvba

Administrator
Thành viên BQT
Xin được hỏi: Nếu mình muốn ra danh sách các tháng, rồi click di chuyển nhanh tới một tháng thì làm thế nào?
Việc chỉnh sửa này sẽ mất rất nhiều thời gian sửa code.
Mình gửi bạn một file sau, bạn có thể tùy ý chỉnh. Dự án này họ dùng API.
Mình cũng chưa lý giải hết.
Bạn cần đăng nhập để thấy hình ảnh

Bạn cần đăng nhập để thấy hình ảnh

File download:
Có ai hiểu họ làm thế nào để có cái biểu tượng ở góc cells A1 này không nhỉ?
Bạn cần đăng nhập để thấy hình ảnh

Nguồn:
 

PTHhn

Yêu THVBA như điếu đổ
Tôi nghĩ ở đây họ dùng một hình ảnh đặt vào đó.
Bạn cần đăng nhập để thấy hình ảnh

Chứng minh 1: Tôi xóa hết UserForm, Class, Module và save file. Sau đó mở lên thì hình trên vẫn còn.
Chứng minh 2: Tôi xóa cột B thì hình ảnh kia bị mất đi.
Không thể sờ mó hay di chuyển bức ảnh trên vì họ đang Protect workbook.

Mời các cao thủ như bạn @USA_Covid19 unprotect giúp file này với.
 
D

Deleted member 1294

Guest
ĐÃ CÓ ĐÁP ÁN
Bạn cần đăng nhập để thấy đa phương tiện
 
Sửa lần cuối bởi điều hành viên:

tuhocvba

Administrator
Thành viên BQT
Ồ, vậy là họ chèn hình ảnh vào à. Cảm ơn các bạn đã giải đáp.
Mọi người tiếp tục tìm hiểu Tool của họ xem còn gì hay ho nữa không nhé, mình thấy vẫn còn những thứ có thể học hỏi đấy.
 

PTHhn

Yêu THVBA như điếu đổ
Tác giả của rườm rà kinh, dùng cái nút bấm Show cái UserForm lên là được, đằng này lại dùng cái ảnh bé tí rồi khóa sheet.

Cái này cũng lạ, nằm ngoài kiến thức của tôi. Mong được các bạn giải thích.
UserForm hiển thị như thế này thì nhìn cứ như Combobox.
Bạn cần đăng nhập để thấy hình ảnh

Nhưng khi nhìn vào trong thiết kế thì nó là Textbox.
Bí mật nằm ở chỗ này nhưng tôi chưa hiểu được.
Mã:
Private Sub UserForm_Initialize()
  Set ddate = New CDTPicker
  Set dtime = New CDTPicker
  Set dho = New CHoliday
  ddate.Create Me, True, txtDate.Left, txtDate.Top, txtDate.Width, txtDate.Height
  dtime.Create Me, False, txtTime.Left, txtTime.Top, txtTime.Width, txtTime.Height
Tôi thử tạo một ô textbox, và copy code của tác giả.
Mã:
Private Sub UserForm_Initialize()
  Set ddate = New CDTPicker
  Set dtime = New CDTPicker
  Set dho = New CHoliday
  ddate.Create Me, True, txtDate.Left, txtDate.Top, txtDate.Width, txtDate.Height
  dtime.Create Me, False, txtTime.Left, txtTime.Top, txtTime.Width, txtTime.Height
  'TextBox1
  dtime.Create Me, True, TextBox1.Left, TextBox1.Top, TextBox1.Width, TextBox1.Height
End Sub
Bạn cần đăng nhập để thấy hình ảnh


Trong Class CDTPicker có thủ tục Create nhưng tôi đọc không hiểu nổi, nó nằm ngoài kiến thức của tôi.
 
D

Deleted member 1294

Guest
Cái calendar của họ hay nhỉ thiết kế chủ yếu bằng code ! Nể người Nhật thật sáng tạo không áp dụng rập khuôn máy móc.
 

Noben

Yêu THVBA
Mình chia sẻ 1 cái addin về Calender khá hay, calender được được thiết kế chủ yếu bằng code, các bạn có thể tải về và chỉnh sửa form theo sở thích của các bạn.

Nguồn:
Link addin (.xlam):
Link file chứa code (.xlsm):
 
Top