Tạo bảng nhập chọn ngày tháng ?
- Thread starter Chuotdong
- Ngày gửi
rollover79
Thành viên tiêu biểu
- Tham gia
- 10/9/08
- Bài viết
- 764
- Được thích
- 1,310
Cái này là DateTime Picker Control có nói nhiều trên forum rồi mà.
- Tham gia
- 21/12/07
- Bài viết
- 1,900
- Được thích
- 5,277
- Nghề nghiệp
- Kinh doanh các mặt hàng văn phòng phẩm
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ế.
Nếu không muốn dùng cái calendar có sẵn thì viết 1 form để thay thế.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Bạn dùng Calendar đi ---> Khá dể ---> Xem file
- Tham gia
- 18/3/08
- Bài viết
- 8,281
- Được thích
- 15,780
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
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.
Mã:
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 SubTo 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
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
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
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
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?
Hình như cái này có sẵn trong Office ?-----
Chú cho anh hỏi : Calendar nằm ở đâu, tạo ra nó như thế nào ?
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Anh làm như sau:-----
Chú cho anh hỏi : Calendar nằm ở đâu, tạo ra nó như thế nào ?
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
File đính kèm
- Tham gia
- 18/3/08
- Bài viết
- 8,281
- Được thích
- 15,780
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
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
http://www.ocxdump.com/download-ocx-files_new.php/ocxfiles/M/MSCAL.OCX/9.0.0.2607/download.html
Như vậy code chưa thể lấy được ngày thàng hiện thời của ô đó.
Lần chỉnh sửa cuối:
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à
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à
---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 !
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Sao vậy anh? Anh đang thao tác trong Excel cơ mà... Windows Vista thì liên quan gì?
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
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---
Trời ạ, nó không có dòng Calendar Control 11.0 thì anh chọn bằng gì ?
Bài viết mới nhất
- Question
