Tạo bảng nhập chọn ngày tháng ?

Liên hệ QC
Với đoạn code của anh, em muốn khi click chọn ngày trong calendar xong thì nó sẽ tự động biến mất thì phải viết như nào??
Thêm 1 dòng code là ok

Mã:
Private Sub Calendar1_Click()  With ActiveCell
    .Value = Calendar1
    .NumberFormat = "dd/mm/yyyy"
[B][COLOR=#ff0000]    Calendar1.Visible = False[/COLOR][/B]
  End With
End Sub
 
Bác ndu96081631 cho em hỏi chút: Nếu muốn vùng hoạt động của code thêm ô C5 và E10 thì phải sửa lại như thế nào. Cảm ơn bác.
 
Bác ndu96081631 cho em hỏi chút: Nếu muốn vùng hoạt động của code thêm ô C5 và E10 thì phải sửa lại như thế nào. Cảm ơn bác.

Code bài #4
PHP:
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
Sửa thành
PHP:
If Not Intersect(Range("A1:A10,C5,E10"), Target) Is Nothing Then
 
Cho em hỏi là anh có download file theo link bài #13 chưa ? Sau khi download anh chép file đó vào system32 và phải đăng ký nó mới sử dụng được

Bạn ơi, vui lòng hướng dẫn mình cách đăng ký , mình down MSCAL về rồi và copy vào SYSTEM32 rồi, nhưng hình như chưa đăng ký gì đấy như bạn nói nên vẫn bị báo lỗi. Cảm ơn bạn nhiều.
 
Bạn ơi sau khi đăng ký MSCAL.OCX xong, thì không còn báo lỗi nữa, nhưng mà font chữ trên bảng calendar khi hiện ra rất nhỏ, đến nỗi mình không thể đọc được gì. Mình có chụp lại hình. Các bạn xem và chỉ giáo giúp mình nhe. Cảm ơn các bạn nhiều.
 

File đính kèm

  • calendar.GIF
    calendar.GIF
    13.6 KB · Đọc: 313
Các bạn ơi, giúp mình xử lý với, cám ơn các bạn.
 
Bạn chọn Design (biểu tượng hình Eke) rồi phải chuột vào Calenda chon Propertis rồi chọn DayFont để chỉnh... Sau khi chỉnh xong thì chọn lại Design để cho Calenda hoạt động. (Đại khái là thế vì lâu rồi không sờ đến món này nên không nhớ lắm).
 
Code bài #4
PHP:
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
Sửa thành
PHP:
If Not Intersect(Range("A1:A10,C5,E10"), Target) Is Nothing Then

Bạn ơi, nếu mình muốn thực hiện chức năng hiển thị ngày tháng tự động ở 1 sheet khác, ví dụ ở sheer2 thì phải sửa lại như thế nào? Cảm ơn các bạn.
 
Code bài #4
PHP:
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
Sửa thành
PHP:
If Not Intersect(Range("A1:A10,C5,E10"), Target) Is Nothing Then

Bạn ơi, nếu muốn nhập ngày tháng trên 1 sheet khác, ví dụ như ở sheet2, thì sửa lại như thế nào.
Cảm ơn các bạn.
 
Bạn xem file VD nha. Chọn một cell. chon ngày trong calendar. Doubleclick sẽ nhận lấy giá tri.
Nếu không muốn dùng cái calendar có sẵn thì viết 1 form để thay thế.

Cho mình hỏi bạn với nhé Khi cột ngày tháng đã nhập thì hộp calendar không xuất hiện nữa thì làm thế nào
 
Cho mình hỏi khi vùng dữ liệu đã có dữ liệu nhập rồi thì Calendar không hiện ra đồng thời thông báo đã có dữ liệu ?
 
Nghĩa là Tại A1:A10 trong đó A2 và A3 đã có ngày tháng nhập thì tại A2 và A3 không xuất hiện Calendar1 nữa
 
công nhận đó, khi ta đã chọn ngày tháng ở 1 ô rùi thì khi vô tinh nhấn chuột vào vẫn cứ lên bảng lịch đó. tức quá
 
Có bang nao chon gio phut giay khog cac thay
 
mình vẫn chưa làm được tải các file trước đó về bỏ code vào file mới thì hok chạy được
Nhờ các anh chị giúp em với
 
Web KT
Back
Top Bottom