Điền ngày tháng năm vào ô theo giá trị của calendar control (1 người xem)

[duongsatdn]

Tôi muốn tạo một cột ngày, tháng, năm bằng cách:
1. Tạo một Calendar Control.
2. Chọn một ngày bất kỳ trong bảng lịch
3. Tự động cập nhật ngày đang chọn trong calendar control vào một ô đang được chọn trong cột ngày tháng năm.
Xin các bạn giúp cho ý 3

 

[anhtuan1066]

Chỉ vài code nho nhỏ là dc mà...
Trước tiên bạn xem lại cái lịch, tôi thấy nó sao sao ấy...
Gọi thanh Contrl Tool Box, bấm chọn nút More Control, rồi chọn Calendar 10.0, vẽ ra bãng tính... Click phải chuột vào Calendar, chọn View Code, rồi gõ vào của số dòng code sau:

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1
ActiveCell.Offset(1, 0).Select
End Sub

Thoát VBE, bấm nút Exit Design Mode.. rồi thao tác thử

 

[Po_Pikachu]

Các bác có biết thằng Calendar 10.0 trong Office 2007 nó nằm ở đâu không? Sao em tìm không thấy vậy?
Thân.

 

[ndu96081631]

Các bác có biết thằng Calendar 10.0 trong Office 2007 nó nằm ở đâu không? Sao em tìm không thấy vậy?
Thân.

Trong Developer tab, chọn mục Insert\More Controls thử xem

 

[ptm0412]

Các bác có biết thằng Calendar 10.0 trong Office 2007 nó nằm ở đâu không? Sao em tìm không thấy vậy?

Không có Calendar 10.0, chỉ có Calendar 12.0 thôi. Nhưng Ofice 2007 thì xài DateTime Picker 6.0 cho đẹp.

 

[Po_Pikachu]

Đại khái chỉ có vậy thôi àh? Không thấy những mục như hai bác đã nói. Chắc thiếu file DLL gì nữa rồi?

Thân.

 

[ptm0412]

Calendar Control 12.0 là file mscal.ocx
Microsoft Date & Time Picker control 6.0 (SP4) nằm trong file mscomct2.ocx

Nhấn nút Register Custom, rồi tìm 2 file này trong System32 hoặc Program files\Microsoft Office\Office12

Tìm không thấy thì mua bỏ vào.

 

[chanmenhanmay]

ANH ndu96081631 CHO EM HỎI. SAO SAU KHI EM SỬ DỤNG CALENDAR CHO TEXTBOX THI CÁC TEXTBOX KHÁC EM SỬ DỤNG LIST BÕ KHÔNG SỬ DỤNG ĐƯỢC . ANH GIÚP DÙM HEN

THANKS

 

[bisthao]

Bạn ơi.
Máy của mình chỉ có Microsoft Date & Time Picker control 6.0 (SP6). mình đã add file MSCOMCT2.ocx vào rồi mà lúc vẽ ra thì báo lỗi "Cannot insert object".
Bạn xem giúp mình nha. Thanks ^^

 

[lusaltran]

Chèn lịch vào ô excel

Chỉ vài code nho nhỏ là dc mà...
Trước tiên bạn xem lại cái lịch, tôi thấy nó sao sao ấy...
Gọi thanh Contrl Tool Box, bấm chọn nút More Control, rồi chọn Calendar 10.0, vẽ ra bãng tính... Click phải chuột vào Calendar, chọn View Code, rồi gõ vào của số dòng code sau:

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1
ActiveCell.Offset(1, 0).Select
End Sub

Thoát VBE, bấm nút Exit Design Mode.. rồi thao tác thử

==> Làm theo cách của bạn nó chỉ hiển thị mỗi cái tháng với năm. Mình đang muốn nó thị mỗi tháng và năm. Mình đang muốn nó hiện thị cái lịch để chọn nhập ngày/tháng/năm luôn thì như thế nào? Bạn chỉ giáo giúp!
Mình cảm ơn!