Tùy chỉnh Calender theo ngày của ComboBox (1 người xem)

[truonggiang73]

Thân gửi mọi người.
Tôi có ComboBox dùng để nhập ngày từ Calender. Mọi người chỉnh giúp tôi :
1, Tùy chỉnh Calender1&2 chọn ngày tháng năm theo ComboBox1&2 khi nạp Form.
2, List trổ xuống tại ComboBox3 là tên các Sheet đã có số liệu (Như ở File đính kèm)
TG73 xin cảm ơn.

 

[truonggiang73]

Ở mục 2 tôi có ý nghĩ khi nạp Form sử dụng mảng đứng 1 chiều và vòng lặp For i = 1 To ActiveWorkbook.Sheets.Count, tại mỗi ActiveWorkbook.Sheets nếu cộng tổng =0 thì bỏ qua, nếu <>0 thì gán Arr(j=1) cho ActiveWorkbook.Sheets.Name; sau đó gán mảng này cho ComboBox3 (hoặc ListBox). Nhờ mọi người chỉ dẫn và giúp đỡ thêm.

 

[befaint]

Thân gửi mọi người.
Tôi có ComboBox dùng để nhập ngày từ Calender. Mọi người chỉnh giúp tôi :
1, Tùy chỉnh Calender1&2 chọn ngày tháng năm theo ComboBox1&2 khi nạp Form.
2, List trổ xuống tại ComboBox3 là tên các Sheet đã có số liệu (Như ở File đính kèm)
TG73 xin cảm ơn.

Private Sub UserForm_Initialize()
Me.ComboBox1.Value = Format(42736, "dd/MM/yyyy")
Me.ComboBox2.Value = Format(Now(), "dd/MM/yyyy")
Me.Calendar1.Value = Me.ComboBox1.Value
Me.Calendar2.Value = Me.ComboBox2.Value
Me.ComboBox3.List = NameWS(ThisWorkbook)
Me.ComboBox3.ListIndex = 0
End Sub

'Chép vào một module:
Public Function NameWS(wb As Workbook) As Variant
Dim ws As Worksheet, tmpName() As Variant, i As Long
ReDim tmpName(1 To ThisWorkbook.Worksheets.Count)
For Each ws In ThisWorkbook.Worksheets
    If WorksheetFunction.CountA(ws.Cells) > 0 Then
        i = i + 1
        tmpName(i) = ws.Name
    End If
Next ws
If i Then ReDim Preserve tmpName(1 To i)
NameWS = tmpName
End Function

 

[chucuoi92]

Thân gửi mọi người.
Tôi có ComboBox dùng để nhập ngày từ Calender. Mọi người chỉnh giúp tôi :
1, Tùy chỉnh Calender1&2 chọn ngày tháng năm theo ComboBox1&2 khi nạp Form.
2, List trổ xuống tại ComboBox3 là tên các Sheet đã có số liệu (Như ở File đính kèm)
TG73 xin cảm ơn.

Bạn chỉ cần Calender1 là đủ