Hỏi về tạo list ngày, tháng, năm? (2 người xem)

[halogen]

Em cần tạo list ngày, tháng, năm trong một năm. Trong đó số ngày trong tháng sẽ phụ thuộc vào tháng đó và năm đó (năm nhuận). Khi điều chỉnh hoặc tháng thì phần có màu sẽ nhảy sang một bảng mới để nhập dữ liệu tính toán trong ngày tương ứng đã chọn vào (dĩ nhiên, dữ liệu của những ngày đã nhập sẽ không mất đi và có thể xem lại khi chọn đúng ngày cần xem.

Các bác làm ơn chỉ chi tiết cách tạo dùm em với, em mò cả tuần mà chẳng ra

Thanks 4 all !

 

[Po_Pikachu]

Bạn nhấn phải chuột vào thanh công cụ chọn Control Toolbox -> Click chuột vào hình 2 cây búa bên dưới thanh Control Toolbox rồi chọn Calendar Control 11.0. Tiếp theo vẽ 1 khung vuông trên bảng tính. Kéo nó đặt ở ô A3.

Nhấn chuột vào Properties để chỉnh sữa vị trí nhập liệu.

Sau đó nhấn phải chuột vào tên Sheet1 -> chọn View Code -> Chép 2 đoạn code bên dưới vào.

Private Sub Calendar1_Click()
Calendar1.Visible = False
[A2] = Format([A2], "dd/mm/yyyy")
[A3].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Visible = (Target.Address = "$A$2:$C$2")
End Sub

Cuối cùng là nhấp vào cây thước êke (Exit Design Mode) trên thanh Control Toolbox.

Và thử thành quả của mình.

Khi điều chỉnh hoặc tháng thì phần có màu sẽ nhảy sang một bảng mới để nhập dữ liệu tính toán trong ngày tương ứng đã chọn vào (dĩ nhiên, dữ liệu của những ngày đã nhập sẽ không mất đi và có thể xem lại khi chọn đúng ngày cần xem.

Thanks 4 all !

Còn dòng này bạn viết gì mà mình chẳng hiểu nổi nữa.
Bạn nên viết kỹ hơn ý định của bạn đi.
Thân.

 

[QuanQuoc]

Cho mình hỏi, sao sau khi Exit Design Mode, cái lịch mất tiêu luôn, nhưng khi chọn lại Design Mode thì nó lại hiện lên và kết quả cũng ko thay đổi gì hết.
Cám ơn

 

[thlpro]

Chọn ngày nó không chính xác, nó nhảy lộn qua tháng khác, Bạn xem giúp lại mình với. Thanks

 

[thlpro]

Có ai xem giúp cái mục này mình với.

 

[ndu96081631]

Có ai xem giúp cái mục này mình với.

Bạn đã làm như thế nào trong file thì cứ việc đưa nguyên file ấy lên đây người ta mới biết lỗi ở đâu chứ
Tuy nhiên, bước đầu tôi nhận định rất có thể cái vụ lộn ngày với tháng và tháng với ngày chỉ là Format mà thôi

 

[thedeath2078]

chào tất cả các anh chị,

Em cũng muốn làm cách chọn lịch tương tự như bài này nhưng đây chỉ là chọn có 1 cell, em muốn khi minh chọn bất kì cell nào ở 1 cột thì đều hiển thị tờ lịch để mình chọn.

Trong ví dụ em gửi gồm 2 cột, ngày đến và ngày đi. Khi em chọn ngày đến đối với KH A thì nó sẽ ra tờ lịch để chọn ngày, ngày đi cũng tương tự.

Kính mong các anh chị trong DD giúp đỡ.

Em xin cảm ơn

 

[thedeath2078]

Em đã tìm ra đoạn code của anh ndu96081631 cho vấn đề này rồi ạh.


With ActiveCell
.Value = Calendar1
.NumberFormat = "dd/mm/yyyy"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Range("A1:B100"), Target) Is Nothing Then
.Visible = True
.Top = Target.Top
.Left = Target(, 2).Left
ElseIf Application.CutCopyMode = False Then
.Visible = False
End If
End With
End Sub


http://www.giaiphapexcel.com/forum/showthread.php?27944-Tạo-bảng-nhập-chọn-ngày-tháng

Thanks,

 

[huuthang_bd]

chào tất cả các anh chị,

Em cũng muốn làm cách chọn lịch tương tự như bài này nhưng đây chỉ là chọn có 1 cell, em muốn khi minh chọn bất kì cell nào ở 1 cột thì đều hiển thị tờ lịch để mình chọn.

Trong ví dụ em gửi gồm 2 cột, ngày đến và ngày đi. Khi em chọn ngày đến đối với KH A thì nó sẽ ra tờ lịch để chọn ngày, ngày đi cũng tương tự.

Kính mong các anh chị trong DD giúp đỡ.

Em xin cảm ơn

Bạn tải file này về xem thử nhé.

 

[sealand]

Bạn lưu ý giá trị Calendar trả về theo dạng Text nên bạn phải chuyển nó sang Date mới theo ý được
Bạn tham khảo nha

 

[ndu96081631]

Bạn lưu ý giá trị Calendar trả về theo dạng Text nên bạn phải chuyển nó sang Date mới theo ý được
Bạn tham khảo nha

Anh ơi, chỉ có DTPicker mới bị vụ này, Calendar khỏi cần chuyển đổi gì cả ---> ActiveCell = Calendar1.Value là được rồi

 

[sealand]

Calendar mà LinkCell cũng vẫn bị tình trạng Text Ndu à. Thế mới sinh khâu gán dữ liệu từ Calendar vào Sheet mà không gán tự động LinkCell được.

 

[ndu96081631]

Calendar mà LinkCell cũng vẫn bị tình trạng Text Ndu à. Thế mới sinh khâu gán dữ liệu từ Calendar vào Sheet mà không gán tự động LinkCell được.

Ta đang dùng code và code sẽ gán giá trị Calendar xuống ActiveCell, ta đâu có dùng LinkCell mà lo
Thêm nữa, dù có dùng LinkCell nhưng Text ấy vẫn đúng chuẩn DATE trong control Panel mà anh... Tức vẫn tính toán được