返回列表 上一主題 發帖

刪除資料問題

yliu

帖子
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
del.question.zip (17.21 KB)
收藏 分享
learner

a8350070

帖子
48 
主題
2 
精華
0 
積分
64 
點名
0  
作業系統
xp 
軟體版本
office 2000 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2011-4-16 
最後登錄
2018-9-26 
2#
發表於 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
My Blog
http://blog.xuite.net/a8350070

TOP

yliu

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

論壇贊助勳章
3#
發表於 2013-8-18 20:25 | 只看該作者
回復 2# a8350070

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

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題