返回列表下一主題上一主題發帖

刪除資料問題

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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