刪除資料問題

yliu

請問關於刪除資料問題.
有二個工作表, 一個工作表(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
del.question.zip (17.21 KB)

下載次數: 7

2013-8-17 23:43

a8350070

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

回復 2# a8350070

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