vòng For từ ngày - Đến ngày trong vba (1 người xem)

[nghiahc89]

mình đang làm 1 file macro để làm báo cáo mà bị kẹt chỗ vòng for ngày mong các bác giúp đỡ.


trong file excel của mình có nhiều sheet và mỗi sheet mình đặt tên theo ngày (vd : 13-01-13). giờ mình làm 1 form báo cáo có Datetimepicker chọn fromDate và toDate sau đó vòng for sẽ làm nhiệm vụ tìm đến các sheet có tên tương ứng với ngày trong khoảng đã chọn lấy số liệu cần thiết ra và cộng dồn lại và chuyển sang 1 sheet mới.

Các bác giúp em với.

 

[Quang_Hải]

mình đang làm 1 file macro để làm báo cáo mà bị kẹt chỗ vòng for ngày mong các bác giúp đỡ.


trong file excel của mình có nhiều sheet và mỗi sheet mình đặt tên theo ngày (vd : 13-01-13). giờ mình làm 1 form báo cáo có Datetimepicker chọn fromDate và toDate sau đó vòng for sẽ làm nhiệm vụ tìm đến các sheet có tên tương ứng với ngày trong khoảng đã chọn lấy số liệu cần thiết ra và cộng dồn lại và chuyển sang 1 sheet mới.

Các bác giúp em với.

Có thể thử làm thế này. Ví dụ FromDate = 10-03-2013, ToDate = 01-03-2013 vậy bạn sẽ có 9 vòng lặp
For i = 1 to ToDate - FromDate
"Code của bạn"
Next

 

[ndu96081631]

Có thể thử làm thế này. Ví dụ FromDate = 10-03-2013, ToDate = 01-03-2013 vậy bạn sẽ có 9 vòng lặp
For i = 1 to ToDate - FromDate
"Code của bạn"
Next

Thế sao không For i = FromDate to ToDate luôn (mắc gì phải for từ 1?)
Tiếp theo là:

Dim wksName as String
[B]For i = [/B][B]FromDate [/B][B]to [/B][B]ToDate[/B]
  wksName = Format(i, "dd-MM-yy")
  Tên sheet có rồi, làm gì ai biết
Next

 

[nghiahc89]

cảm ơn 2 bác rất nhiều, em còn thắc mắc xíu nữa mong bác giúp. trên sheet của e có 2 button, khi bấm button này thì button kia ẩn đi. Trong code của button2 làm sao để gọi được button1 để insivible đi vậy bác ?
còn 1 cái nữa là bác cho em xin cái code của nút exit form nha.
Thân Chào.

 

[nghiaphuc]

cảm ơn 2 bác rất nhiều, em còn thắc mắc xíu nữa mong bác giúp. trên sheet của e có 2 button, khi bấm button này thì button kia ẩn đi. Trong code của button2 làm sao để gọi được button1 để insivible đi vậy bác ?
còn 1 cái nữa là bác cho em xin cái code của nút exit form nha.
Thân Chào.

Bạn dùng code như sau:
[GPECODE=vb]Private Sub CommandButton1_Click()
'Code của bạn
CommandButton2.Visible = False
End Sub[/GPECODE]
Nút Exit Form thì chỉ cần 1 lệnh Unload Me là được.

 

[ndu96081631]

cảm ơn 2 bác rất nhiều, em còn thắc mắc xíu nữa mong bác giúp. trên sheet của e có 2 button, khi bấm button này thì button kia ẩn đi..

Bấm Button1 thì Button2 ẩn (hoặc bị Disable). Vậy trường hợp người ta muốn xài Button2 thì làm thế nào?
Vô lý nhỉ?

 

[nghiaphuc]

Bấm Button1 thì Button2 ẩn (hoặc bị Disable). Vậy trường hợp người ta muốn xài Button2 thì làm thế nào?
Vô lý nhỉ?

Thì... đóng form rồi mở lại chứ sao nữa anh? Người ta muốn như thế thì mình cứ chỉ như thế, còn sau đó hổng thấy cái nút kia nữa thì tự nhiên họ sẽ lại hỏi là làm sao để lôi nó ra??? Ẹc ẹc...

 

[Hoàng Trọng Nghĩa]

Có thể thử làm thế này. Ví dụ FromDate = 10-03-2013, ToDate = 01-03-2013 vậy bạn sẽ có 9 vòng lặp
For i = 1 to ToDate - FromDate
"Code của bạn"
Next

Viết thủ tục cho hoàn chỉnh phải khai báo cho rõ ràng và có cấu trúc đúng thì code chạy mới ổn:

Sub DateToDate()
      
      Dim wksName As String, i As Long
      Dim FromDate As Date, ToDate As Date
      
      ''Cau truc trong dau #: m/d/y

      FromDate = #1/1/2013#
      ToDate = #1/13/2013#
      
      For i = FromDate To ToDate
            wksName = Format(i, "dd-MM-yy")
      Next
      
End Sub

 

[ndu96081631]

Thì... đóng form rồi mở lại chứ sao nữa anh? Người ta muốn như thế thì mình cứ chỉ như thế, còn sau đó hổng thấy cái nút kia nữa thì tự nhiên họ sẽ lại hỏi là làm sao để lôi nó ra??? Ẹc ẹc...

Tôi thì đoán chắc là tác giả muốn xài 1 trong 2: Xài cái này thì nghỉ cái kia và ngược lại. Nếu là tôi thì tôi thiết kế 1 nút 2 tác dụng cũng được rồi
Nói chung cũng chả biết gì trong trái ổi (toàn nói không không, chả thấy file đâu cả)