Thiếu microsoft calendar control 11.0

Liên hệ QC

tuandat106

Thành viên mới
Tham gia
19/4/11
Bài viết
49
Được thích
2
Hôm nay mình mò mẫm trên excel về calendar. và office của mình bây giờ nó thiếu microsoft calendar control 11.0. nên calendar không hoạt động, mình search google mà không thấy. Mong các anh chị giúp mình vấn đề này được không.Mình sài excel 2003. thanks.
 
Hôm nay mình mò mẫm trên excel về calendar. và office của mình bây giờ nó thiếu microsoft calendar control 11.0. nên calendar không hoạt động, mình search google mà không thấy. Mong các anh chị giúp mình vấn đề này được không.Mình sài excel 2003. thanks.

Bạn hãy xem bài này:

http://www.giaiphapexcel.com/forum/...hông-có-controls-Calendar&p=511089#post511089

Sau đó xem bài này:

http://www.giaiphapexcel.com/forum/...hông-có-controls-Calendar&p=511272#post511272
 

Cám ơn bạn mình đã add được vào system32. nhưng sao trong toolbox của mình vẫn không có calendar, trong khi đó mình đã tíc vào add-conditions vậy.
Tiện thể bạn có thể giúp mình khi kích vào 1 cell thì lịch hiện ra để mình chọn ngày cho cell đó được không? Mình thanks trước.
 
Lần chỉnh sửa cuối:
Cám ơn bạn mình đã add được vào system32. nhưng sao trong toolbox của mình vẫn không có calendar, trong khi đó mình đã tíc vào add-conditions vậy.
Tiện thể bạn có thể giúp mình khi kích vào 1 cell thì lịch hiện ra để mình chọn ngày cho cell đó được không? Mình thanks trước.

Bạn đã đăng ký chưa?

Bấm vào nút Start chọn vào Run, tại đây bạn gõ: Regsvr32 MSCAL.OCX rồi OK.
 
Mình đã làm thao tác này và thành công rồi nhưng vẫn không có trong tool box bạn à

Bạn click phải vào trong cái ToolBox và chọn Additionals Controls và check vào Calendar Controls 11.0 chưa?

Nếu check xong thì sẽ có cái Calendar như trong hình (các border màu đỏ).
 

File đính kèm

  • Calendar.jpg
    Calendar.jpg
    99.8 KB · Đọc: 187
Đây là file có chứa cái Calendar cho bạn tham khảo. Chọn một ô bất kỳ vào vùng màu hồng, calendar sẽ xuất hiện và bạn chỉ cần click vào nó để chọn ngày vào ô đang chọn.

Đây là toàn bộ code trong sheet module:

Mã:
Private MyTarget As Range

Private Sub Calendar1_Click()
    Application.EnableEvents = False
        MyTarget = Calendar1
        Calendar1.Visible = False
    Application.EnableEvents = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count > 1 Then GoTo HoBien
    If Intersect(Target, Range("A2:A25")) Is Nothing Then
HoBien:
        If Calendar1.Visible = True Then Calendar1.Visible = False
    Else
        Set MyTarget = Target
        With Calendar1
            .Top = Target.Top + Target.Height
            .Left = Target.Left
            If IsDate(Target.Value) Then
                .Value = Target.Value
            Else
                .Value = Date
            End If
            .Visible = True
        End With
    End If
End Sub
 

File đính kèm

Thanks bạn đã giúp đỡ. Nhưng sao file của bạn mình dùng được và khi mình coppy lệnh của bạn
vào 1 file mới thì nó báo lỗi. bạn xem giúp minh theo file đính kèm nhé.
 
Thanks bạn đã giúp đỡ. Nhưng sao file của bạn mình dùng được và khi mình coppy lệnh của bạn
vào 1 file mới thì nó báo lỗi. bạn xem giúp minh theo file đính kèm nhé.

Nếu copy code sang file mới thì bạn phải copy luôn cái Calendar chứ (hoặc tự vẽ Calendar lên bảng tính) ---> Hổng có Calendar, nó báo lỗi phải rồi
-----------------

Ngoài ra xin nói thêm: File của bạn bị nhiễm virus nha (Con StartUp)... Có thể máy tính của bạn đã bị nhiễm con này rồi. Giờ bạn mở bất cứ file nào trên máy tính của bạn là lập tức file đó bị nhiễm ngay
 
Em cám ơn thầy ndu96081631.thật sự tầm hiểu biết về excel còn hạn hẹp quá nên trên file của bạn Hoàng Trọng Nghĩa, và 1 file của thầy em tìm trên mạng nữa mà chảng thấy cái calendar ở đâu để copy. em vào cửa sổ VBA thì chỉ thấy các câu lệnh trong sheet 1. Mong thầy và bạn nghĩa hướng dẫn chi tiết giúp. thanks
 
Em cám ơn thầy ndu96081631.thật sự tầm hiểu biết về excel còn hạn hẹp quá nên trên file của bạn Hoàng Trọng Nghĩa, và 1 file của thầy em tìm trên mạng nữa mà chảng thấy cái calendar ở đâu để copy. em vào cửa sổ VBA thì chỉ thấy các câu lệnh trong sheet 1. Mong thầy và bạn nghĩa hướng dẫn chi tiết giúp. thanks

Để có thể copy được cái Calendar trên bảng tính, bạn làm như sau:
- Vào tab Developer, bấm nút Design Mode
- Cái Calendar sẽ xuất hiện. Giờ cứ việc chọn vào nó rồi copy/paste sang nơi khác
- Để code chạy trở lại, phải bấm nút Design Mode lần nữa
 
Để có thể copy được cái Calendar trên bảng tính, bạn làm như sau:
- Vào tab Developer, bấm nút Design Mode
- Cái Calendar sẽ xuất hiện. Giờ cứ việc chọn vào nó rồi copy/paste sang nơi khác
- Để code chạy trở lại, phải bấm nút Design Mode lần nữa

Em đã làm được rồi. Xin cám ơn và chúc Thầy sức khỏe.
 
Web KT

Bài viết mới nhất

Back
Top Bottom