標題: 刪除資料問題 [打印本頁]

---

作者: yliu    時間: 2013-8-17 23:45     標題: 刪除資料問題

請問關於刪除資料問題.
有二個工作表, 一個工作表(final)是data, 另一個工作表(sheet1)則是放combobox 鈕及commandButton鈕來刪除資料,下列的程式碼在工作表(sheet1)完全不會有作用,
但將combobox 鈕及commandButton鈕放在工作表(final)則可以使用,達到刪除資料結果. 請問這是什麼原因?
請問想用在工作表(sheet1)的combobox 鈕及commandButton鈕來刪除資料,該怎麼修改?

Private Sub CommandButton1_Click()
Dim myRow , d, i As Integer

Sheets("final").Activate
With Sheets("final")
myRow = .Cells(1, 1).CurrentRegion.Rows.Count
d = 1
   For i = 1 To myRow
     If Range("V" & d).Value = ComboBox1.Value Then
       Rows(d).Delete Shift:=xlUp
         Else
       d = d + 1
     End If
   Next i

End With

End Sub   Next i

End With
[attach]15798[/attach]

---

作者: a8350070    時間: 2013-8-18 08:56

本帖最後由 a8350070 於 2013-8-18 09:02 編輯

Private Sub CommandButton1_Click()
Dim myRow As Integer, d, i As Integer

'Sheets("final").Activate ' 不要這一行
With Sheets("final")
myRow = .Cells(1, 1).CurrentRegion.Rows.Count
d = 1
   For i = 1 To myRow
     If .Range("V" & d).Value = ComboBox1.Value Then '加一點
       .Rows(d).Delete Shift:=xlUp '加一點
         Else
       d = d + 1
     End If
   Next i

End With

End Sub

---

作者: yliu    時間: 2013-8-18 20:25

回復 2# a8350070

謝謝a8350070的指導，問題已解決。

---

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