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

黑仔

怎样能实现单击ListView某一行，将ListView对应的工作表的行的值返回到该工作表所对应的行,如图当我单击或双击ListView里的选中的11月25日那一行时,关闭窗体,返回到工作表所对应的13那一行.
我不是要把值写入到工作表，而是点击在ListView里查找到工作表的数据时再返回工作表，比如我在ListView里查找到工作表的第100行有“25日”数据，当我点击在ListView里查找到工作表的数据“25日”时，关闭窗体，然后跳到工作表第100行有“25日”数据那一行，方便阅读第100行整行数据。
附件在这:http://club.excelhome.net/thread-1074577-1-1.html

liulang0808

listview 的click事件，
你还是上传一个附件吧。仅仅把你的问题留下来，其他最好不要带

黑仔

liulang0808 发表于 2013-11-25 23:14
listview 的click事件，
你还是上传一个附件吧。仅仅把你的问题留下来，其他最好不要带

附件在这:http://club.excelhome.net/thread-1074577-1-1.html

zhaogang1960

如果不合题意，请上传附件说明：

1. Private Sub ListView1_Click()
   
2.     Dim i&, j&
   
3.     With ListView1
   
4.         i = .SelectedItem.Index
   
5.         Cells(13, 1) = .SelectedItem.Text
   
6.         For j = 2 To .ColumnHeaders.Count
   
7.             Cells(13, j) = .ListItems(i).SubItems(j - 1)
   
8.         Next
   
9.     End With
   
10. End Sub
    

复制代码

黑仔

zhaogang1960 发表于 2013-11-25 23:18
如果不合题意，请上传附件说明：

附件在这:http://club.excelhome.net/thread-1074577-1-1.html

zhaogang1960

黑仔 发表于 2013-11-25 23:20
附件在这:http://club.excelhome.net/thread-1074577-1-1.html

你的附件中没有物料库存表
在其他表中测试可行

黑仔

zhaogang1960 发表于 2013-11-25 23:18
如果不合题意，请上传附件说明：

我不是要把值写入到工作表，而是点击在ListView里查找到工作表的数据时再返回工作表，比如我在ListView里查找到工作表的第100行有“25日”数据，当我点击在ListView里查找到工作表的数据“25日”时，关闭窗体，然后跳到工作表第100行有“25日”数据那一行，方便阅读第100行整行数据。

zhaogang1960

黑仔 发表于 2013-11-25 23:33
我不是要把值写入到工作表，而是点击在ListView里查找到工作表的数据时再返回工作表，比如我在ListView里 ...

1. Private Sub ListView1_Click()
   
2.     Dim c As Range
   
3.     Set c = Range("a:a").Find(DateValue(ListView1.SelectedItem.Text), , xlFormulas, xlWhole) '查找日期
   
4.     If Not c Is Nothing Then
   
5.         c.Select
   
6.         Unload Me '关闭窗体
   
7. '            Me.Hide '或用隐藏窗体
   
8.     Else
   
9.         MsgBox "没有查到。", vbInformation
   
10.     End If
    
11. End Sub

复制代码

黑仔

zhaogang1960 发表于 2013-11-25 23:54

可以成功互交，但还是有问题，当a列有两个相同的曰期时就不成功,我要的是当我在ListView查找到后点击后跳到工作表相应的行,是整行不是单个单元格,比如我在第一百五十行有数据,我在ListView查找到第一百五十行的数据后点击,然后跳到工作表第一百五十行.

zhaogang1960

黑仔 发表于 2013-11-26 17:46
可以成功互交，但还是有问题，当a列有两个相同的曰期时就不成功,我要的是当我在ListView查找到后点击后跳 ...

Find方法循环查找:

1. Private Sub ListView1_Click()
   
2.     Dim c As Range, rngU As Range, m&, firstAddress$
   
3.     With Range("a:a")
   
4.         Set c = .Find(DateValue(ListView1.SelectedItem.Text), , 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.Select
    
16.         Unload Me '关闭窗体
    
17. '            Me.Hide '或用隐藏窗体
    
18.     Else
    
19.         MsgBox "没有查到。", vbInformation
    
20.     End If
    
21. End Sub

复制代码