Xin hướng dẫn cách liệt kê các ngày trong tháng (1 người xem)

[vu_ctn]

Mình đang làm báo cáo có móc thời gian từ ngày đến ngày , mỗi lần lấy số liệu mình phải nhập tay các ngày rất mất thời gian
VD : mình cần lấy báo cáo từ ngày 3/3/2014 đến ngày 7/3/2014 thì mình phải liệt kê các ngày bằng tay

3/3/2014
4/3/2014
...
7/3/2014
trường hợp lấy báo cáo 1/2/2014 đến 1/3/2014 khổ , nội liệt kê ngày không cũng muốn chết.
Nhờ ACE GPE giúp cho mình 1 code liệt kê ngày . Thank mọi người nhiều

 

[nghiaphuc]

Mình đang làm báo cáo có móc thời gian từ ngày đến ngày , mỗi lần lấy số liệu mình phải nhập tay các ngày rất mất thời gian
VD : mình cần lấy báo cáo từ ngày 3/3/2014 đến ngày 7/3/2014 thì mình phải liệt kê các ngày bằng tay

3/3/2014
4/3/2014
...
7/3/2014
trường hợp lấy báo cáo 1/2/2014 đến 1/3/2014 khổ , nội liệt kê ngày không cũng muốn chết.
Nhờ ACE GPE giúp cho mình 1 code liệt kê ngày . Thank mọi người nhiều

1. Nhập công thức sau cho C5: =C2
2. Nhập công thức sau cho C6: =IF(OR(C5=$C$3,C5=""),"",C5+1)
3. Fill công thức của ô C6 xuống dưới cho đến khi nào gặp kết quả rỗng thì dừng.

 

[Ba Tê]

Mình đang làm báo cáo có móc thời gian từ ngày đến ngày , mỗi lần lấy số liệu mình phải nhập tay các ngày rất mất thời gian
VD : mình cần lấy báo cáo từ ngày 3/3/2014 đến ngày 7/3/2014 thì mình phải liệt kê các ngày bằng tay

3/3/2014
4/3/2014
...
7/3/2014
trường hợp lấy báo cáo 1/2/2014 đến 1/3/2014 khổ , nội liệt kê ngày không cũng muốn chết.
Nhờ ACE GPE giúp cho mình 1 code liệt kê ngày . Thank mọi người nhiều

Atl+F11, trong cửa sổ VBE, chép Sub này vào Sheet1
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C3]) Is Nothing Then
Dim I As Long, TuNgay As Long, DenNgay As Long, Arr(), K As Long
TuNgay = [C2].Value2
DenNgay = [C3].Value2
ReDim Arr(1 To DenNgay - TuNgay + 1, 1 To 1)
For I = TuNgay To DenNgay
K = K + 1
Arr(K, 1) = I
Next I
[C5:C1000].ClearContents
[C5].Resize(K) = Arr
End If
End Sub[/GPECODE]

Trở ra Sheet1, thay đổi ô C2 hoặc C3 thì có các ngày liệt kê từ C5 xuống, nhớ Format cột C dạng Date

 

[VetMini]

Tôi cũng chẳng hiểu "nội liệt kê ngày không cũng muốn chết" cái chổ nào.
Chỉ việc gõ ngày vào ô đầu tiên, xong kéo khai triển trị cho đến khi gặp ngày cuối thì dừng lại. Lỡ có kéo quá thì xoá bớt. Công việc 10 giây là tối đa!

 

[vu_ctn]

hì đơn gainr vậy mà mình không nghỉ ra . cảm ơn bạn nghiaphuc đã giúp đỡ.

 

[vu_ctn]

Cảm ơn Bac Ba Tê đã viết tặng mình đoạn code. yêu cầu đã được giải quyết xong .

 

[KitsuHirokii]

Vậy liệt kê các tháng trong năm thì làm sao ạ

 

[ndu96081631]

Vậy liệt kê các tháng trong năm thì làm sao ạ

Các tháng trong năm?
Chẳng phải năm nào cũng có 12 tháng sao? Vậy liệt kê cái gì?

 

[KitsuHirokii]

Các tháng trong năm?
Chẳng phải năm nào cũng có 12 tháng sao? Vậy liệt kê cái gì?

ta có cột
brand: SP1, START TIME: mar-2016 và END TIME: mar-2017 và liệt kê ra

SP1, 3 , 2016

SP1, 4 ,2016

SP1, 5, 2016

SP1, 6, 2016

SP1, 7, 2016

SP1, 8, 2016

SP1, 9, 2016

SP1, 10, 2016

SP1, 11, 2016

SP1, 12, 2016

SP1, 1, 2017

SP1, 2, 2017

SP1, 3, 2017

nhưng tách ra 3 cột! thanks ạ

 

[ndu96081631]

ta có cột
brand: SP1, START TIME: mar-2016 và END TIME: mar-2017 và liệt kê ra

SP1, 3 , 2016

SP1, 4 ,2016

SP1, 5, 2016

SP1, 6, 2016

SP1, 7, 2016

SP1, 8, 2016

SP1, 9, 2016

SP1, 10, 2016

SP1, 11, 2016

SP1, 12, 2016

SP1, 1, 2017

SP1, 2, 2017

SP1, 3, 2017

nhưng tách ra 3 cột! thanks ạ

Bạn nói bạn hiểu chứ có ai hiểu gì đâu
Đưa file lên, mô tả yêu cầu và kết quả trong file nhé

 

[Nguyễn Hồng Quang]

ta có cột
nhưng tách ra 3 cột! thanks ạ

Theo như mô tả này; mình nghĩ Bạn thử dùng Chức năng Text to Column của Excel xem

 

[KitsuHirokii]

Bạn nói bạn hiểu chứ có ai hiểu gì đâu
Đưa file lên, mô tả yêu cầu và kết quả trong file nhé

có bảng như thế này


và làm sau để được như này

 

[befaint]

thế này

 

[KitsuHirokii]

Cảm ơn befaint nhiều nhiều@@