Hiển thị lịch để chọn ngày tháng khi nhấn vào biểu tượng quyển lịch

[hoangtuaotrang_hp_vn]

Em chào anh/chị,

Em muốn nhờ anh chị giúp đỡ 1 vấn đề như sau ạ:

Tại ô C3 mình có biểu tượng quyển lịch, khi mình ấn/click vào biểu tượng hình quyển lịch thì sẽ hiển thị ra bảng lịch để chọn ngày tháng
Sau khi chọn ngày tháng xong thì sẽ trả kết quả về ô C3

Em chân thành cảm ơn anh/chị

 

[hoangtuaotrang_hp_vn]

Rất mong anh/chị giúp bài này ạ

 

[VuVanHao]

Bạn xem thử, form và code trên Trevor Eyre hay sao ý, mình cũng không nhớ rõ

 

[hoangtuaotrang_hp_vn]

Bạn xem thử, form và code trên Trevor Eyre hay sao ý, mình cũng không nhớ rõ

Quá tuyệt vời, xin chân thành cảm ơn cậu nhiều nha

À cậu ơi, phần chọn "Today" chưa được, cậu xem giúp thêm tớ với nhé

 

[VuVanHao]

Bạn thay bằng code:

Sub Calendar()
    dateVariable = CalendarForm.GetDate( _
        SelectedDate:=Range("C3").value, _
        FirstDayOfWeek:=Monday, _
        DateFontSize:=12, _
        TodayButton:=True, _
        OkayButton:=True, _
        ShowWeekNumbers:=True, _
        BackgroundColor:=RGB(243, 249, 251), _
        HeaderColor:=RGB(147, 205, 2221), _
        HeaderFontColor:=RGB(255, 255, 255), _
        SubHeaderColor:=RGB(223, 240, 245), _
        SubHeaderFontColor:=RGB(31, 78, 120), _
        DateColor:=RGB(243, 249, 251), _
        DateFontColor:=RGB(31, 78, 120), _
        TrailingMonthFontColor:=RGB(155, 194, 230), _
        DateHoverColor:=RGB(223, 240, 245), _
        DateSelectedColor:=RGB(202, 223, 242), _
        SaturdayFontColor:=RGB(0, 176, 240), _
        SundayFontColor:=RGB(0, 176, 240), _
        TodayFontColor:=RGB(0, 176, 80))
    If dateVariable <> 0 Then
        Sheet1.Range("C3") = dateVariable
    End If
End Sub

Link gốc: https://trevoreyre.com/portfolio/excel-datepicker/

 

[SA_DQ]

Bạn xem thử, form và code trên Trevor Eyre hay sao ý, mình cũng không nhớ rõ

Cảm ơn bạn nhiều!
Rất nhiều thứ để học hỏi trong file này

 

[thnghiachau]

Chào cả nhà GPE,
CC: @hoangtuaotrang_hp_vn; @hao93tbdtn; @SA_DQ

Nhân tiện đọc qua cái topic này, mình mạo mụi gởi toàn thể anh em GPE một cái gọi là Pop-up Calendar mà mình nhào nặn từ nhiều nguồn khác nhau (chủ yếu trên GPE này ah.... xin cám ơn GPE).
Cái này có cái phiền tí là mình phải import một lúc 3 cái: frmCalendar, Class_DatePicker và DatePicker_Mod. khi sử dụng.
Date mà mình chọn sẽ được gán vào biến strDatePicker . Các bạn có thể lấy giá trị này mà đặt vào bất cứ vị trí nào ah.
Mong các thầy có thể góp ý thêm cho code hay hơn giúp em.

Cám ơn GPE nhiều.