[已解决]此代码如何修改

Aкon

请高手们帮我看一下这段代码，如何不受12个月限制：谢谢！
Dim i As Long, n As Long
  Dim arr
  If DTPicker5 = "" Then GoTo ErrHandler
  arr = Split(DTPicker5)
  Dim DD As Date
  If arr(0) > 12 Then MsgBox "请检查您输入的月份，不能超过12月。": Exit Sub
  If arr(0) > 12 Then MsgBox "请检查您输入的日期，不能超过31号。": Exit Sub
  DD = Year(Date) & "-" & arr(0) & "-" & arr(1)
  
  Me.ListView1.ListItems.Clear
ErrHandler:
  For i = 3 To Sheet1.[b2].End(4).Row
      If DateDiff("d", Sheet1.Cells(i, "B"), DD) = 0 Or TextBox1 = "" Then
         n = n + 1
2:    'Listview添加数据
         With Me.ListView1.ListItems.Add()
           .Text = Format(Sheet1.Cells(i, "B"), "yyyy年m月d日")  '第一项添加日期
           .SubItems(1) = Sheet1.Cells(i, "C") '报表第二项为C列，以下略
           .SubItems(2) = Sheet1.Cells(i, "D")
           .SubItems(3) = Sheet1.Cells(i, "E")
           .SubItems(4) = Sheet1.Cells(i, "F")
         End With
      End If
  Next
  If n = 0 Then MsgBox "你输入的查询日期无记录，请重新输入您要查询的日期！": TextBox1 = "": TextBox1.SetFocus
End Sub

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-10 14:59

回复 Aкon 的帖子

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Dim i As Long, n As Long
   
4.     Dim arr
   
5.     If DTPicker5 = "" Then Exit Sub
   
6.     Dim DD As Date
   
7.     DD = DTPicker5.Value
   
8.     Me.ListView1.ListItems.Clear
   
9.     For i = 3 To Sheet1.[b2].End(4).Row
   
10.         If Sheet1.Cells(i, "B") = DD Then
    
11.             n = n + 1
    
12.             'Listview添加数据
    
13.             With Me.ListView1.ListItems.Add()
    
14.                 .Text = Format(Sheet1.Cells(i, "B"), "yyyy年m月d日")  '第一项添加日期
    
15.                 .SubItems(1) = Sheet1.Cells(i, "C")    '报表第二项为C列，以下略
    
16.                 .SubItems(2) = Sheet1.Cells(i, "D")
    
17.                 .SubItems(3) = Sheet1.Cells(i, "E")
    
18.                 .SubItems(4) = Sheet1.Cells(i, "F")
    
19.             End With
    
20.         End If
    
21.     Next
    
22.     If n = 0 Then
    
23.         MsgBox "你输入的查询日期无记录，请重新输入您要查询的日期！"
    
24.         Me.ListView1.ListItems.Clear
    
25.         DTPicker5 = Date
    
26.         DTPicker5.SetFocus
    
27.     End If
    
28. End Sub
    

复制代码

跳转到最佳答案楼层

那么的帅

回复 Aкon 的帖子

具体说说，并提供数据附件。

那么的帅

回复 Aкon 的帖子

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Dim i As Long, n As Long
   
4.     Dim arr
   
5.     If DTPicker5 = "" Then Exit Sub
   
6.     Dim DD As Date
   
7.     DD = DTPicker5.Value
   
8.     Me.ListView1.ListItems.Clear
   
9.     For i = 3 To Sheet1.[b2].End(4).Row
   
10.         If Sheet1.Cells(i, "B") = DD Then
    
11.             n = n + 1
    
12.             'Listview添加数据
    
13.             With Me.ListView1.ListItems.Add()
    
14.                 .Text = Format(Sheet1.Cells(i, "B"), "yyyy年m月d日")  '第一项添加日期
    
15.                 .SubItems(1) = Sheet1.Cells(i, "C")    '报表第二项为C列，以下略
    
16.                 .SubItems(2) = Sheet1.Cells(i, "D")
    
17.                 .SubItems(3) = Sheet1.Cells(i, "E")
    
18.                 .SubItems(4) = Sheet1.Cells(i, "F")
    
19.             End With
    
20.         End If
    
21.     Next
    
22.     If n = 0 Then
    
23.         MsgBox "你输入的查询日期无记录，请重新输入您要查询的日期！"
    
24.         Me.ListView1.ListItems.Clear
    
25.         DTPicker5 = Date
    
26.         DTPicker5.SetFocus
    
27.     End If
    
28. End Sub
    

复制代码

Aкon

谢谢！那么帅老师。