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

Thành viên
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.
 

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

Thành viên
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.
 

USA_Covid19

Thành viên tích cực
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.
 
Top