[已解决]再问选取行的问题

wgl309

我想要实现用sub程序；选取起始日期到终止日期所在行

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-9-18 19:42

Book2.rar (12.91 KB, 下载次数: 19)

2012-9-18 19:42 上传

点击文件名下载附件

跳转到最佳答案楼层

hrpotter

1. Sub test()
   
2.     Dim rw As Long, i As Long, rng As Range
   
3.     rw = Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 4 To rw
   
5.         If Cells(i, 1) >= Cells(2, 1) And Cells(i, 1) <= Cells(2, 3) Then
   
6.             If rng Is Nothing Then
   
7.                 Set rng = Cells(i, 1)
   
8.             Else
   
9.                 Set rng = Union(rng, Cells(i, 1))
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     If Not rng Is Nothing Then rng.EntireRow.Select
    
14. End Sub

复制代码

wgl309

hrpotter 发表于 2012-9-18 15:00

谢谢,运行了,没有反应.

hrpotter

wgl309 发表于 2012-9-18 17:12
谢谢,运行了,没有反应.

起止时间要按日期格式输入！

hrpotter

Book2.rar (12.91 KB, 下载次数: 19)

2012-9-18 19:42 上传

点击文件名下载附件

wgl309

hrpotter 发表于 2012-9-18 19:42

谢谢.很好,运行起来了,如果没有填写时间,能出现担示吗?怎能样提示?

hrpotter

wgl309 发表于 2012-9-19 21:00
谢谢.很好,运行起来了,如果没有填写时间,能出现担示吗?怎能样提示?

1. Sub test()
   
2.     Dim rw As Long, i As Long, rng As Range
   
3.     If Len(Cells(2, 1)) = 0 Or Len(Cells(2, 3)) = 0 Then
   
4.         MsgBox "请输入查询日期！", vbCritical + vbOKOnly, "提示"
   
5.         Exit Sub
   
6.     End If
   
7.     rw = Cells(Rows.Count, 1).End(3).Row
   
8.     For i = 4 To rw
   
9.         If Cells(i, 1) >= Cells(2, 1) And Cells(i, 1) <= Cells(2, 3) Then
   
10.             If rng Is Nothing Then
    
11.                 Set rng = Cells(i, 1)
    
12.             Else
    
13.                 Set rng = Union(rng, Cells(i, 1))
    
14.             End If
    
15.         End If
    
16.     Next
    
17.     If Not rng Is Nothing Then rng.EntireRow.Select
    
18. End Sub

复制代码

wgl309

hrpotter 发表于 2012-9-18 19:42

非常感谢,能运行起来了.

wgl309

hrpotter 发表于 2012-9-19 22:15

非常感谢,能运行起来了.
刚才又发现一个个问题,当A2,或C2内不为空时,不出现提示.