標題: [發問] 當來源被刪除時，則結果也會自動刪除，當然如果來源有新增時，其結果也會自動新增。 [打印本頁]

---

作者: s7659109    時間: 2014-4-16 21:23     標題: 當來源被刪除時，則結果也會自動刪除，當然如果來源有新增時，其結果也會自動新增。

當來源的甲6、甲15、甲20與甲26被刪除時，則結果也會自動刪除，當然如果來源有新增時，其結果也會自動新增。

---

作者: s7659109    時間: 2014-4-16 21:23

補上附檔。

---

作者: yen956    時間: 2014-4-17 11:37

回復 2# s7659109
試試看:
   

1. Option Explicit            '強制宣告變數
   
2. '刪除
   
3. Private Sub CommandButton1_Click()
   
4.     Dim sh1, sh2 As Worksheet
   
5.     Set sh1 = Sheets("來源")
   
6.     Set sh2 = Sheets("結果")
   
7.    
   
8.     sh2.[H1] = sh1.[H1]
   
9.     sh1.[I1] = "=MATCH(H1,A:A,0)"
   
10.     sh2.[I1] = "=MATCH(H1,A:A,0)"
    
11.    
    
12.     '刪除"來源"
    
13.     If Application.IsNumber(sh1.[I1]) Then
    
14.         sh1.Rows(sh1.[I1]).Delete
    
15.     End If
    
16.    
    
17.     '刪除"結果"
    
18.     If Application.IsNumber(sh2.[I1]) Then
    
19.         sh2.Rows(sh2.[I1]).Delete
    
20.     End If
    
21. 
    
22. End Sub
    
23. '
    
24. '新增一筆
    
25. Private Sub CommandButton2_Click()
    
26.     Dim sh1, sh2 As Worksheet
    
27.     Dim lastRow1, lastRow2 As Integer
    
28.     Set sh1 = Sheets("來源")
    
29.     Set sh2 = Sheets("結果")
    
30.    
    
31.     lastRow1 = sh1.[A65536].End(xlUp).Row    '取得 "來源"欄A最下面非空白列 的列號
    
32.     lastRow2 = sh2.[A65536].End(xlUp).Row + 1    '取得"結果"欄A最下面非空白列 的下一列的列號
    
33.    
    
34.     '將"來源"的新資料複製到"結果"
    
35.     sh1.Cells(lastRow1, 1).Resize(1, 3).Copy sh2.Cells(lastRow2, 1)
    
36. End Sub

複製代碼

當來源被刪除時.xls
http://www.mediafire.com/download/2krzi85li7i3npi/%E7%95%B6%E4%BE%86%E6%BA%90%E8%A2%AB%E5%88%AA%E9%99%A4%E6%99%82.7z

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)