Tạo bảng nhập chọn ngày tháng ? (1 người xem)

[Chuotdong]

Trong Excel có modul nào để khi bấm vào một ô hiện lên một bảng có thể chọn ngày tháng được không các bạn nhỉ :

 

[rollover79]

Trong Excel có modul nào để khi bấm vào một ô hiện lên một bảng có thể chọn ngày tháng được không các bạn nhỉ :

Cái này là DateTime Picker Control có nói nhiều trên forum rồi mà.

 

[hoangdanh282vn]

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ế.

 

[ndu96081631]

Trong Excel có modul nào để khi bấm vào một ô hiện lên một bảng có thể chọn ngày tháng được không các bạn nhỉ :

Bạn dùng Calendar đi ---> Khá dể ---> Xem file

 

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

Trong Excel có modul nào để khi bấm vào một ô hiện lên một bảng có thể chọn ngày tháng được không các bạn nhỉ :

To Thầy Ndu96081631
Em xin "thêm mắm dặm muối" vào cái Calendar của thầy 1 đoạn code cho nó tự động load đến ngày tháng hiện hành.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Calendar1
    If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
      [COLOR=blue]Calendar1.Value = Date[/COLOR]
      .Visible = True
      .Top = Target.Top
      .Left = Target(, 2).Left
    ElseIf Application.CutCopyMode = False Then
      .Visible = False
    End If
  End With
End Sub

To Chuotdong:

Nhân tiện đây xin gửi bạn 1 ví dụ mình sưu tầm được trên mạng. Bạn Double click vào vùng tô màu vàng, Calendar hiện ra, bạn chọn ngày nhấn OK là xong, ngược lại bạn chọn Cancel

 

[sakhoang]

To Thầy Ndu96081631
Em xin "thêm mắm dặm muối" vào cái Calendar của thầy 1 đoạn code cho nó tự động load đến ngày tháng hiện hành.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Calendar1
    If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
      [COLOR=blue]Calendar1.Value = Date[/COLOR]
      .Visible = True
      .Top = Target.Top
      .Left = Target(, 2).Left
    ElseIf Application.CutCopyMode = False Then
      .Visible = False
    End If
  End With
End Sub

To Chuotdong:

Nhân tiện đây xin gửi bạn 1 ví dụ mình sưu tầm được trên mạng. Bạn Double click vào vùng tô màu vàng, Calendar hiện ra, bạn chọn ngày nhấn OK là xong, ngược lại bạn chọn Cancel

Bạn ơi nếu muốn mở rộng vùng màu vàng ra thêm nữa thì làm như thế nào..?
Cảm ơn nhiều

 

[ndu96081631]

Bạn ơi nếu muốn mở rộng vùng màu vàng ra thêm nữa thì làm như thế nào..?
Cảm ơn nhiều

Trong code có chổ ghi Range("A1:A10") ---> Đây chính là vùng hoạt động của code ---> Vậy bạn muốn khác hơn thì sửa chổ đó cho phù hợp

 

[Chuotdong]

Khi thay đổi zoom menu calender bị thay đổi, thì làm thế nào nhỉ ?

 

[ndu96081631]

Khi thay đổi zoom menu calender bị thay đổi, thì làm thế nào nhỉ ?

Câu hỏi hay ---> Đang nghiên cứu mà chẳng tìm ra được cách nào ---> Các cao thủ có ý kiến gì không?

 

[tam8678]

Bạn dùng Calendar đi ---> Khá dể ---> Xem file

-----
Chú cho anh hỏi : Calendar nằm ở đâu, tạo ra nó như thế nào ?

 

[Chuotdong]

-----
Chú cho anh hỏi : Calendar nằm ở đâu, tạo ra nó như thế nào ?

Hình như cái này có sẵn trong Office ?

 

[ndu96081631]

-----
Chú cho anh hỏi : Calendar nằm ở đâu, tạo ra nó như thế nào ?

Anh làm như sau:
1> Click phải chuột vào Toolbars, chọn Control Toolbox

2> Trên thanh Control Toolbox vừa xuất hiện, anh bấm vào biểu tượng More Controls rồi chọn Canlendar...

3> Chọn xong thì vẽ vào bảng tính

 

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

Nếu máy nào chưa có Control MSCAL.OCX thì vào trang sau để tải về nhé:

http://www.ocxdump.com/download-ocx-files_new.php/ocxfiles/M/MSCAL.OCX/9.0.0.2607/download.html

 

[Tiny07]

Cho mình hỏi thêm. Làm thế nào để tắt form này khi bấm phím ESC?

 

[Chuotdong]

Calender này có một điểm lưu ý là khi click vào vùng, calender không tự động chọn ngày tháng đã có của ô đó (với ô đã có giá trị ngày tháng trong đó) hoặc ...

bài post ở bên kia đã get today rồi mà

Như vậy code chưa thể lấy được ngày thàng hiện thời của ô đó.

 

[hunglao]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
Calendar1.Value = Date
.Visible = True
.Top = Target.Top
.Left = Target(, 2).Left
ElseIf Application.CutCopyMode = False Then
.Visible = False
End If
End With
End Sub


-----------------

bài post ở bên kia đã get today rồi mà

 

[tam8678]

Anh làm như sau:
1> Click phải chuột vào Toolbars, chọn Control Toolbox

2> Trên thanh Control Toolbox vừa xuất hiện, anh bấm vào biểu tượng More Controls rồi chọn Canlendar...

3> Chọn xong thì vẽ vào bảng tính

---
Anh làm theo chú hướng dẫn nhưng sao trong Windows Vista không biết nó trú ẩn chổ nào chú ơi !

 

[ndu96081631]

---
Anh làm theo chú hướng dẫn nhưng sao trong Windows Vista không biết nó trú ẩn chổ nào chú ơi !

Sao vậy anh? Anh đang thao tác trong Excel cơ mà... Windows Vista thì liên quan gì?

 

[tam8678]

Sao vậy anh? Anh đang thao tác trong Excel cơ mà... Windows Vista thì liên quan gì?

---
Trời ạ, nó không có dòng Calendar Control 11.0 thì anh chọn bằng gì ?

 

[ndu96081631]

---
Trời ạ, nó không có dòng Calendar Control 11.0 thì anh chọn bằng gì ?

Có Calendar Control gì thì anh chọn cái nấy... Ngoài ra nếu chẳng có cái Calendar nào thì anh xem lại bài #13