Liên kết combobox và calendar 11.0

[spacemanforever]

Chào mọi người!
Mình có vấn đề sau:
--- Mình tạo 1 BUTTON (lập từ view-toolbar-form) trên sheet tao mau.
--- Tạo 1 Userform (trên userform có 1 combobox Time -như file đính kèm)
-- Viết code macro cho BUTTON như sau:

Sub TaoMau()
UserForm1.Show
End Sub

Từ đây mình muốn viết code như sau :
-- click vào Combobox sẽ xuất hiện 1 Calendar
--Chọn ngày từ calendar và ngày này sẽ hiện lại trên combobox.
Mong mọi người giúp đỡ.

 

[Hai Lúa Miền Tây]

Cái bạn muốn nói đó là DTPicker bạn à.

 

[keentwo]

Cái bạn muốn nói đó là DTPicker bạn à.

-Anh à sao e đã cho phép Marco chạy rồi mà nó báo lỗi thế này ầm ầm nhỉ.Chỉ e các khắc phục

 

[ndu96081631]

-Anh à sao e đã cho phép Marco chạy rồi mà nó báo lỗi thế này ầm ầm nhỉ.Chỉ e các khắc phục

Cái DTPicker ấy không phải máy nào cũng xài được ---> Phải cài thêm file ocx nếu bị lỗi
Thôi thì dùng Calendar vậy

 

[spacemanforever]

Chào bạn!

Bạn có thể nói rõ hơn về:.
---cách tạo DTPicker như thế nào?
---Nếu dùng thì calendar 11.0 thì có khả thi không?
Với lại giá trị này mình muốn nhập vào cell H6 thì code ra sao?
Thanks

 

[keentwo]

Cái DTPicker ấy không phải máy nào cũng xài được ---> Phải cài thêm file ocx nếu bị lỗi
Thôi thì dùng Calendar vậy

-Anh ndu96081631 à.Hình như nó chưa được linh động lắm,e nhấn mấy phát linh tinh nó mới hiện ra cái bảng ngày tháng năm

 

[ndu96081631]

-Anh ndu96081631 à.Hình như nó chưa được linh động lắm,e nhấn mấy phát linh tinh nó mới hiện ra cái bảng ngày tháng năm

Nhấn linh tinh là thế nào? Bấm vào cái mũi tên của ComboBox chứ

 

[Hai Lúa Miền Tây]

Nhấn linh tinh là thế nào? Bấm vào cái mũi tên của ComboBox chứ

View attachment 52368

Em thấy nếu dùng calendar thì nên thiết kế 1 form riêng vì nếu thiết kế chung cho 1 form thì phải tốn 1 khoản trống để chứa calendar, em thường thiết kế nhập ngày = textbox dựa vào commandbutton để gọi form calendar.

 

[ndu96081631]

Em thấy nếu dùng calendar thì nên thiết kế 1 form riêng vì nếu thiết kế chung cho 1 form thì phải tốn 1 khoản trống để chứa calendar, em thường thiết kế nhập ngày = textbox dựa vào commandbutton để gọi form calendar.

Một Form thường chứa khá nhiều Control nên chiều rộng và chiều cao của Form cũng có thể đủ chứa được cái Calendar! Mặc khác, cái Calendar ấy nó luôn ẩn mà, chỉ khi Click chuột nó mới hiện ra! Giống vầy đây

 

[keentwo]

Nhấn linh tinh là thế nào? Bấm vào cái mũi tên của ComboBox chứ

View attachment 52368

-Thật mà a.Nó như hình ý chẳng hiện lên gì nên e mới kích linh tinh,hay là phải chỉnh thế nào nhỉ?Tại e thấy cái đó rất hay

 

[boyxin]

Cái DTPicker ấy không phải máy nào cũng xài được ---> Phải cài thêm file ocx nếu bị lỗi
Thôi thì dùng Calendar vậy

File đính kèm có vấn đề hay là mình cài Office còn thiếu cái gì

Khi nhấn nút [Tạo mẫu] để kích hoạt code thì xuất hiện bảng này

​

Nhấn OK vài lần thì hiện lên bảng sau

​

Nhấn OK tiếp thì báo lỗi tại dòng code

Private Sub ComboBox1_DropButtonClick()
  Me.Calendar1.Visible = True
End Sub

Kết quả là không thoát được Excel theo cách thông thường nữa mà phải vào Task Manager mới được

 

[Hai Lúa Miền Tây]

File đính kèm có vấn đề hay là mình cài Office còn thiếu cái gì

Khi nhấn nút [Tạo mẫu] để kích hoạt code thì xuất hiện bảng này

​

Nhấn OK vài lần thì hiện lên bảng sau

​

Nhấn OK tiếp thì báo lỗi tại dòng code

Private Sub ComboBox1_DropButtonClick()
  Me.Calendar1.Visible = True
End Sub

Kết quả là không thoát được Excel theo cách thông thường nữa mà phải vào Task Manager mới được

Em đoán là máy anh bị thiếu cái MSCAL.ocx rồi, anh thử tải về rồi đăng ký thử xem.

 

[spacemanforever]

Bạn có thể nói rõ hơn về:.
---cách tạo DTPicker như thế nào?
Với lại giá trị này mình muốn nhập vào cell H6 thì code ra sao?
thanks

 

[sealand]

DTPicker là điều khiển hỗ trợ nhập dữ liệu dạng Date nằm trong bô VS6. Để cài riêng nó bạn tìm chép riêng nó và cài như hướng dẫn ở bài này

 

[be_09]

Chào bạn spacemanforever. Cái bạn nói là DTPicker để thêm nó bạn click phải chuột vào hộp công cụ Toolbox, chọn Additional Control….cuộn xuống tìm và check vào Microsoft …. DTPicker……
Bạn tải File theo Link sau:
http://www.4shared.com/document/FpjJ9mle/To_DTPicker.html