有没有大神幫看一下謝謝

a5252139

1.想將listview查詢選中的數據插入combobox所選工作表中的最後一行

2.listview查詢數據可以直接修改
謝謝

3190496160

ykcbf1100

論壇的漢字輸入都變成繁體字了。

ynzsvt

啊，繁体字了？不会吧。论坛的。

a5252139

3190496160 发表于 2024-8-4 07:52

感謝大神的幫忙

a5252139

是嗎~不好意思澳門區

一指禅62

ListView1_ItemClick 事件

1. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
   
2.     nn = Sheet2.[b65536].End(xlUp).Row + 1
   
3.     With Sheet2
   
4.         .Activate
   
5.         .Cells(nn, 1) = Item.SubItems(1)
   
6.         .Cells(nn, 2) = Item.SubItems(2)
   
7.         .Cells(nn, 3) = Item.SubItems(5)
   
8.         .Cells(nn, 5) = Item.SubItems(7)
   
9.         .Cells(nn, 9) = Item.SubItems(3)
   
10.         .Cells(nn, 14) = Item.SubItems(6)
    
11.         .Cells(nn, 14).Activate
    
12.     End With
    
13. End Sub

复制代码

a5252139

3190496160 发表于 2024-8-4 07:52

大哥可以在幫忙改一下?是listview查詢可以直接修改內容,然后点二下才導出 xiexie