Tạo ô nhập ngày tháng trong Excel (1 người xem)
- Thread starter the_light
- Ngày gửi
Người dùng đang xem chủ đề này
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
1. Chèn một đối tượng Calendar lên sheet, đối tượng này có tên mặc định là Calendar1
2. Click chuột phải vào nhãn sheet (chỗ có chữ Sheet1), chọn View code và dán các đoạn code sau vào:
- Code cho sheet để hiện/ẩn Calendar:
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row < 5 Or Target.Count > 1 Then
Calendar1.Visible = False
Else
With Calendar1
.Left = Target.Left
.Top = Target.Top
.Visible = True
End With
End If
End Sub
PHP:
Private Sub Calendar1_Click()
ActiveCell = Calendar1
ActiveCell.NumberFormat = "dd/MM/yyyy"
Calendar1.Visible = False
End Sub
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Theo mình thì dùng sự kiện BeforeDoubleClick sẽ hay hơn
Đôi lúc người ta chọn vào ô nhưng không phải muốn nhập ngày tháng (thể thể chỉ xem hoặc muốn copy sang nơi khác chẳng hạn)... Khi ấy cái thằng Calendar nó cứ hiện lên rất khó chịu
Cũng chỉ ý kiến thế thôi chứ nói chung còn tùy người dùng cảm thấy thế nào khi xài nữa
Upvote
0
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,875
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Em thì thích dùng cái DTPicker hơn Thầy à, khi nào cần thì click vào chọn thôi.
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Tôi để ý thấy rằng: Cứ cài Office 2010 vào là tự nhiên có cái Calendar, còn DTPicker phải cài riêng mới dùng được
-----------------
Nói chung thì cái nào không có ta phải tự cài... Tìm trên GPE, cũng khá nhiều bài viết về chủ đề này
Lần chỉnh sửa cuối:
Upvote
0
phieulang31
Thành viên mới
- Tham gia
- 17/5/12
- Bài viết
- 34
- Được thích
- 3
Các bác có nhầm không nhỉ!
Sao em copy về làm hoài không được! Cứ bắt tạo Marco mới không ah.. E xài Office 2003!
Các bác xem tại đây nhé: http://i1327.photobucket.com/albums/u668/Petertha5/excel_zpsbe09a905.png
Mò hoài mà không biết sai gì nữa!! Các bác giúp nhé.. Em cảm ơn trước!!
Sao em copy về làm hoài không được! Cứ bắt tạo Marco mới không ah.. E xài Office 2003!
Các bác xem tại đây nhé: http://i1327.photobucket.com/albums/u668/Petertha5/excel_zpsbe09a905.png
Mò hoài mà không biết sai gì nữa!! Các bác giúp nhé.. Em cảm ơn trước!!
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Các Macro có trong file là các macro chỉ dùng trong đối tượng Sheet1 (có từ khóa Private ở đầu) nên sẽ không hiện tên khi bạn nhấn Alt+F8.
Bạn thử chọn một ô trên cột C (từ C5 trở xuống) thử xem có hiện Calendar lên không.
Upvote
0
các bạn cho mình hỏi tí. Mình đang dung code này khung lịch hiện ra bên trái ,bây giờ mình muốn nó hiện ra bên phải thì phải sửa chỗ nào or thêm dòng code nào nữa ko.
Private Sub Calendar1_Click()
With ActiveCell
.Value = Calendar1
.NumberFormat = "dd/mm/yy"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Range("E7:E1000"), 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
Private Sub Calendar1_Click()
With ActiveCell
.Value = Calendar1
.NumberFormat = "dd/mm/yy"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Range("E7:E1000"), 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
Upvote
0
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Không rõ cái bên trái, bên phải của bạn nghĩa là gì nhưng nói chung muốn điều chỉnh vị trí của Calendar thì bạn chỉ cần sửa 2 câu lệnh sau cho phù hợp là được:
PHP:
.Top = Target.Top
.Left = Target(, 2).Left
Upvote
0
bạn xem file đính kèm rồi edit dùm mình với , mình đã chỉnh thành right = Target(, 2).right nhưng vẫn ko đc.
Thạnk nhiều.
Upvote
0
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Ay za, làm gì có thuộc tính Right mà dùng chứ.
Bạn sửa lại câu lệnh trên thành thế này là được: .Left = Target.Left - .Width
Upvote
0
Tao calendar trong excel!
Hi anh chị và các bạn!
Mình đang cần viết code tạo lịch để dể lựa chọn trong excel. Trong file excel mình đính kèm có tạo sẵn các vị trí để chọn lịch (D13, H13 & H14).
Mong anh chị và các bạn giải quyết giùm mình vấn đế này.
Chúc anh chị và các bạn làm việc vui vẻ!
Vũ Hưng.
Hi anh chị và các bạn!
Mình đang cần viết code tạo lịch để dể lựa chọn trong excel. Trong file excel mình đính kèm có tạo sẵn các vị trí để chọn lịch (D13, H13 & H14).
Mong anh chị và các bạn giải quyết giùm mình vấn đế này.
Chúc anh chị và các bạn làm việc vui vẻ!
Vũ Hưng.
Upvote
0
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Bạn thêm câu lệnh Calendar1.Visible = False vào cuối Sub Calendar1_Click() là được.
Upvote
0
Hi bạn!
Trường hợp mình muốn sau khi chọn ngày xong, mình muốn có thêm các dòng chữ trước các cell D13, H13 & H14 như bên dưới thì làm thế nào?
Ví dụ ở cell D13 mình chọn ngày 05/10/2013 và cho kết quả là: Ngày xử lý: 05/10/2013
ở cell H13 mình chọn ngày 01/10/2013 và cho kết quả là: Ngày nhận: 01/10/2013
ở cell H14 mình chọn ngày 04/10/2013 và cho kết quả là: Ngày trả: 04/10/2013.
Cảm ơn bạn nhiều!
Vũ Hưng.
Trường hợp mình muốn sau khi chọn ngày xong, mình muốn có thêm các dòng chữ trước các cell D13, H13 & H14 như bên dưới thì làm thế nào?
Ví dụ ở cell D13 mình chọn ngày 05/10/2013 và cho kết quả là: Ngày xử lý: 05/10/2013
ở cell H13 mình chọn ngày 01/10/2013 và cho kết quả là: Ngày nhận: 01/10/2013
ở cell H14 mình chọn ngày 04/10/2013 và cho kết quả là: Ngày trả: 04/10/2013.
Cảm ơn bạn nhiều!
Vũ Hưng.
Upvote
0
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Nếu bạn muốn lưu kết quả dưới dạng Text thì thay Sub Calendar1_Click() bởi sub này:
[GPECODE=vb]Private Sub Calendar1_Click()
ActiveCell.Value = "Ngày x" & ChrW(7917) & " lý: " & Format(Calendar1, "dd/MM/yyyy")
Calendar1.Visible = False
End Sub[/GPECODE]
Còn nếu bạn muốn lưu kết quả dưới dạng Number thì thay sub trên bởi sub này:
[GPECODE=vb]Private Sub Calendar1_Click()
Calendar1.Visible = False
With ActiveCell
.Value = Calendar1
.NumberFormat = """Ngày x" & ChrW(7917) & " lý: "" dd/mm/yyyy"
End With
End Sub[/GPECODE]
Upvote
0
Hi bạn!
Với đoạn code trên thì ba cell mình chọn, đều cho kết quả trước ba cells (D13, H13 & H14) đều có chữ là "Ngày xử lý".
Còn mình muốn ở mỗi cell có dòng text khác nhau mà?
ở cell D13 mình chọn ngày 05/10/2013 và cho kết quả là: Ngày xử lý: 05/10/2013
ở cell H13 mình chọn ngày 01/10/2013 và cho kết quả là: Ngày nhận: 01/10/2013
ở cell H14 mình chọn ngày 04/10/2013 và cho kết quả là: Ngày trả: 04/10/2013.
Cảm ơn bạn nhiều!
Vũ Hưng.
Với đoạn code trên thì ba cell mình chọn, đều cho kết quả trước ba cells (D13, H13 & H14) đều có chữ là "Ngày xử lý".
Còn mình muốn ở mỗi cell có dòng text khác nhau mà?
ở cell D13 mình chọn ngày 05/10/2013 và cho kết quả là: Ngày xử lý: 05/10/2013
ở cell H13 mình chọn ngày 01/10/2013 và cho kết quả là: Ngày nhận: 01/10/2013
ở cell H14 mình chọn ngày 04/10/2013 và cho kết quả là: Ngày trả: 04/10/2013.
Cảm ơn bạn nhiều!
Vũ Hưng.
Upvote
0
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Thôi thì cứ coi như đặt kết quả vào ô dạng Text đi (nếu muốn lưu dạng Number thì bạn tùy biến theo cách ở bài trên của tôi nhé):
[GPECODE=vb]Private Sub Calendar1_Click()
Dim S As String
If ActiveCell.Address = "$D$13" Then
S = "Ngày x" & ChrW(7917) & " lý: "
ElseIf ActiveCell.Address = "$H$13" Then
S = "Ngày nh" & ChrW(7853) & "n: "
Else
S = "Ngày tr" & ChrW(7843) & ": "
End If
ActiveCell.Value = S & Format(Calendar1, "dd/MM/yyyy")
Calendar1.Visible = False
End Sub[/GPECODE]
Upvote
0
Upvote
0
phongkiemtinh
Thành viên thường trực
- Tham gia
- 22/7/09
- Bài viết
- 224
- Được thích
- 5
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Vậy file của bạn đâu?
Đoán:
- Có thể bạn chỉ copy code mà không copy cái Calendar đi theo
- Nếu bạn chạy file gốc của tác giả mà vẫn báo lỗi, có nghĩa là máy bạn chưa cài Calendar Control (file MSCAL.OCX, đã nói rất nhiều trên diễn đàn rồi)
Upvote
0
phongkiemtinh
Thành viên thường trực
- Tham gia
- 22/7/09
- Bài viết
- 224
- Được thích
- 5
e xài file gốc tác giả thứ thầy ah, để e tìm rối kèm.
Upvote
0
phongkiemtinh
Thành viên thường trực
- Tham gia
- 22/7/09
- Bài viết
- 224
- Được thích
- 5
Lại báo lỗi giống bạn này....file gốc chủ thớt mà cũng ko thử được, GPE hướng dẫn làm với.ứng dụng hay.
Upvote
0
Upvote
0
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Có lẽ máy bạn đang dùng Excel 2010. Vậy thì bạn tham khảo các topic sau:
- Không tìm thấy Calendar trong Tools box
- Excel 2010 (32bit) không có controls Calendar?
Upvote
0
nodete.epu
Thành viên mới
- Tham gia
- 28/12/12
- Bài viết
- 2
- Được thích
- 0
Đào mộ chút, cho em hỏi cái bước 1. Chèn một đối tượng Calendar lên sheet, đối tượng này có tên mặc định là Calendar1 làm như thế nào ạ
Upvote
0
diepminhhong
Thành viên mới
- Tham gia
- 4/8/09
- Bài viết
- 46
- Được thích
- 8
Anh Hoàng Nghĩa Phúc ơi, cho em hỏi? Anh ơi có thể làm thế nào để khi mình chỉ bấm vào cột mà mình gắn cái calendar thì nó mới hiện lên cái bảng để mình chọn ngày tháng được không? Vì cái calendar này rất hay nhưng em thấy dở 1 cái là: Giả sử mình gắn cho calendar là cột B chẳng hạn. Khi bấm vào cột B thì sẽ hiện lên bảng để mình chọn ngày tháng ------> điều này thì OK. Nhưng giờ không bấm vào cột B mà mình bấm vào dòng bất kỳ ví dụ như dòng 1, 2,...5... khi bấm chuột vào dòng đó thì nó quét cả qua cột B nên cái bảng calendar nó lại hiện lên -----> E thấy điều này hơi bất tiện trong khi làm việc. Và 1 điều nữa là nếu sử dụng 1 click để hiện calendar thì lắm lúc bất tiện vì lúc nào nó cũng hiện lên và copy, cut, chèn dòng hình như cũng không làm được vì nó cứ bị đơ hay sao ấy(ví dụ: E bấm copy 1 dòng hoặc 2, 3 dòng gì đấy nhưng khi e bấm chuột phải để paste thì cái ô paste không bấm được), e k biết gì nên em không hiểu. sử dụng 2 click để hiện thì e thấy cũng vậy. E chuyển thành rightclick thì rất tiện nhưng cái chuột phải của em thì không làm được gì nữa. E viết hơi dài dòng, nhưng đó là những thắc mắc của em. Anh có thể xử lý giúp e được không ạ? E cảm ơn anh nhiều. Chúc anh sức khoẻ và thành công ạ.
Upvote
0
nguyendinhtutw
Thành viên chính thức
- Tham gia
- 17/4/17
- Bài viết
- 73
- Được thích
- 3
- Giới tính
- Nam
Bác Phúc ơi, bây giờ nếu em muốn áp dụng cho nhiều cột (các cột này không liên tiếp) thì sửa code của bác như thế nào ạ? Em cảm ơn bác
Upvote
0
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row < 5 Or Target.Count > 1 Then
Calendar1.Visible = False
Else
With Calendar1
.Left = Target.Left
.Top = Target.Top
.Visible = True
End With
End If
End Sub
Private Sub Calendar1_Click()
ActiveCell = Calendar1
ActiveCell.NumberFormat = "dd/MM/yyyy"
Calendar1.Visible = False
End Sub
Anh oi cho e hỏi? e coppy doan code vao mà sao bo lỗi 424 k hà. anh có thể chỉ e cụ thể hơn không? cảm ơn anh nhiều
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Đâu phải copy code là chaỵ được đâu. Phải vẽ cái Calendar nó ra bảng tính nữa
Thêm nữa: bây giờ MS không còn hỗ trợ Calendar nữa, muốn dùng cũng không được
Upvote
0
Vậy còn cách khác de thực hiện không thầy?
Upvote
0
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Còn, đó là DTPicker nhưng cũng chỉ dùng được nếu bạn cài Office 32 bit (office 64 bit không dùng được)
Thử file ví dụ dưới đây xem có dùng được không
Lần chỉnh sửa cuối:
Upvote
0
vẽ lịch như thế nào vậy amh? có thể chỉ giúp e tùng bước dc không?
Upvote
0
vậy cam on anh nhiu nhe
Upvote
0
Bài viết mới nhất
- Question
- Question
Copy textbox giữa 2 userform
(1 người xem)
Quản lý thu chi bằng excel (Tặng cho những ai cần đến)
(1 người xem)
