Tạo bảng nhập chọn ngày tháng ? (1 người xem)
- Thread starter Chuotdong
- Ngày gửi
Người dùng đang xem chủ đề này
rollover79
Thành viên tiêu biểu
- Tham gia
- 10/9/08
- Bài viết
- 764
- Được thích
- 1,311
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,902
- Được thích
- 5,306
- 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,974
Bạn dùng Calendar đi ---> Khá dể ---> Xem file
- Tham gia
- 18/3/08
- Bài viết
- 8,312
- Được thích
- 15,879
- 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,974
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,974
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,974
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,312
- Được thích
- 15,879
- 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,974
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,974
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ì ?
- Tham gia
- 18/3/08
- Bài viết
- 8,312
- Được thích
- 15,879
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
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---
Không làm được, mong các anh em hướng dẫn
Cám ơn
cuongsinh1
Thành viên mới
- Tham gia
- 3/12/11
- Bài viết
- 19
- Được thích
- 0
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??
- Tham gia
- 18/3/08
- Bài viết
- 8,312
- Được thích
- 15,879
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
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
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,328
- Được thích
- 1,765
Code bài #4
PHP:
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
PHP:
If Not Intersect(Range("A1:A10,C5,E10"), Target) Is Nothing Then
baihocdt
Thành viên hoạt động
- Tham gia
- 1/2/11
- Bài viết
- 106
- Được thích
- 11
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.
- Tham gia
- 18/3/08
- Bài viết
- 8,312
- Được thích
- 15,879
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
baihocdt
Thành viên hoạt động
- Tham gia
- 1/2/11
- Bài viết
- 106
- Được thích
- 11
TrungChinhs
Thành viên tích cực
- Tham gia
- 18/2/08
- Bài viết
- 1,475
- Được thích
- 2,470
- Nghề nghiệp
- Công chức
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).
baihocdt
Thành viên hoạt động
- Tham gia
- 1/2/11
- Bài viết
- 106
- Được thích
- 11
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.
baihocdt
Thành viên hoạt động
- Tham gia
- 1/2/11
- Bài viết
- 106
- Được thích
- 11
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.
Trần Văn Bình
GTVT
- Tham gia
- 30/7/06
- Bài viết
- 432
- Được thích
- 387
- Nghề nghiệp
- GTVT
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
Trần Văn Bình
GTVT
- Tham gia
- 30/7/06
- Bài viết
- 432
- Được thích
- 387
- Nghề nghiệp
- GTVT
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 ?
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Có nghĩa là bạn đang MUỐN điều gì?
Trần Văn Bình
GTVT
- Tham gia
- 30/7/06
- Bài viết
- 432
- Được thích
- 387
- Nghề nghiệp
- GTVT
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
nếu anh xài Win64 thì phải copy vào C:\Windows\SysWOW64 nhé, copy vào system32 không được đâu.
