返回列表 上一主題 發帖

【求助】詢問如何刪除物件但不要刪除到VBA的按鈕

david1216jp

帖子
12 
主題
5 
精華
0 
積分
67 
點名
0  
作業系統
windows 10 
軟體版本
office 365 
閱讀權限
20 
性別
男 
註冊時間
2017-3-27 
最後登錄
2021-7-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-5-21 21:14 | 只看該作者

【求助】詢問如何刪除物件但不要刪除到VBA的按鈕

本帖最後由 david1216jp 於 2019-5-21 21:15 編輯

各位前輩們好，先行提供檔案如下，
對帳單.rar (102.75 KB)
檔案中我有爬文寫了一個巨集DeleteAll，
但是執行之後都會把我在旁邊放置的按鈕同時刪除掉(似乎不能用shapes)，
請問是否有方法可以改寫，把檔案中Forms.HTML:Text與Forms.HTML:Checkbox都刪除掉，
然後不會動到旁邊的按鈕，還向各位高手求助，感謝~~
收藏 分享

jeffrey628litw

帖子
228 
主題
62 
精華
0 
積分
364 
點名
20  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2024-9-16 

2011兔年全勤獎章
2#
發表於 2019-5-22 13:28 | 只看該作者
回復 1# david1216jp


    建議用籃底白字那種按鈕就不會被 VBA 程式刪除掉 VBA 按紐。





VBA - 設多條件從資料庫中撈出結果(常用).rar (14.19 KB)

TOP

david1216jp

帖子
12 
主題
5 
精華
0 
積分
67 
點名
0  
作業系統
windows 10 
軟體版本
office 365 
閱讀權限
20 
性別
男 
註冊時間
2017-3-27 
最後登錄
2021-7-4 
3#
發表於 2019-5-22 15:31 | 只看該作者
感謝您協助提供意見，我剛剛想到解決的方法，已解決問題，再次感謝~~
對帳單.zip (104.67 KB)
  1. Sub DeleteAll()

  3. Application.ScreenUpdating = False

  5. Dim shp As OLEObject

  7. Columns("A:R").Select
  8. Selection.Delete Shift:=xlToLeft

  10. For Each shp In ActiveSheet.OLEObjects
  11.    shp.Delete
  12. Next shp

  14. Range("A1").Select

  16. Application.ScreenUpdating = True

  18. End Sub
複製代碼

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題