单击ListView某一行，将ListView对应的工作表的行的值返回到该工作表所对应的行

黑仔

zhaogang1960 发表于 2013-11-26 17:52
Find方法循环查找:

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 这个才是单击事件的吧！
ListView对应的行返回到工作表时当a列有两个相同的曰期时还是不成功。

黑仔

如图所示{:soso_e110:}

zhaogang1960

黑仔 发表于 2013-11-26 18:15
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 这个才是单击事件的吧！
ListVi ...

改为ListView1_ItemClick事件，查到日期正行选择：

1. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
   
2.     Dim c As Range, rngU As Range, m&, firstAddress$
   
3.     With Range("a:a")
   
4.         Set c = .Find(DateValue(Item), , xlFormulas, xlWhole) '查找日期
   
5.         If Not c Is Nothing Then
   
6.             firstAddress = c.Address
   
7.             Do
   
8.                 m = m + 1
   
9.                 If m = 1 Then Set rngU = c Else Set rngU = Union(rngU, c)
   
10.                 Set c = .FindNext(c)
    
11.             Loop While Not c Is Nothing And c.Address <> firstAddress
    
12.         End If
    
13.     End With
    
14.     If m > 0 Then
    
15.         rngU.EntireRow.Select
    
16.         Unload Me '关闭窗体
    
17. '            Me.Hide '或用隐藏窗体
    
18.     Else
    
19.         MsgBox "没有查到。", vbInformation
    
20.     End If
    
21. End Sub

复制代码

黑仔

zhaogang1960 发表于 2013-11-26 18:32
改为ListView1_ItemClick事件，查到日期正行选择：

还是不行的，我之前就试过了，把Set c = .Find(DateValue(Item), , xlFormulas, xlWhole) 查找日期的代码改为查找整行的代码不知是否可行，如果还不行就帮我看看为什么控件"ListView"的表头只能加到26列,我想加更多的列.不知有没有好的办法.

zhaogang1960

黑仔 发表于 2013-11-26 19:12
还是不行的，我之前就试过了，把Set c = .Find(DateValue(Item), , xlFormulas, xlWhole) 查找日期的代码 ...

我这里测试正常，请上传附件分析一下

ListView的表头列数的问题恐怕要问微软了，我们说了不算

黑仔

附件在这里{:soso_e104:}

黑仔

zhaogang1960 发表于 2013-11-26 19:25
我这里测试正常，请上传附件分析一下

ListView的表头列数的问题恐怕要问微软了，我们说了不算

附件在这里。。。。。。。。

zhaogang1960

黑仔 发表于 2013-11-26 19:44
附件在这里

没有发现问题，请看演示：

zhaogang1960

不知道你把电脑日期格式怎么设置的，一般设置为yyyy-m-d，请看下图：

黑仔

zhaogang1960 发表于 2013-11-26 19:52
没有发现问题，请看演示：

当你点28号第42和65行的就不会跳