大家好，我很早以前開始學習利用VBA,至今已有20多年了。開發過大小不同的VBA程序程序已經數不清了。我的平臺，以傳遞我多年實際經驗為宗旨，授人以漁，交給大家真正的VBA知識。如果大家對VBA感興趣，認為VBA可以給自己的實際工作帶來切實的幫助，最好系統學習我的教程，成為我的學員，汲取我的經驗。由於本人年齡大了，而且學員眾多，目前只能做到滿足對學員答疑，輔導，對非學員朋友只能看我自己的時間是否允許，還望非學員朋友見諒。今日推出常用「積木」過程案例分享第321期，內容是:EXCEL工作簿中工作表的添加及刪除。VBA是利用Office實現個人小型辦公自動化的有效手段（工具）。這是我的對VBA的定義，我推出的專輯就是我多年實際利用VBA的經驗記錄，都來源於我多年的實踐經驗。目前我已經將所有代碼修正為適合64位和32位兩種系統，大家要把這些代碼塊作為一塊塊的積木對待，平時要多積累，建立自己的「積木庫」，用時拿來可以修正、組合。這就是我的「積木編程」的思想。這些講解就是我推出的「積木」方案，希望大家加以利用。最近代碼多是出自我的第一套教程」VBA代碼解決方案」。這些是非常實用的問題解決方案。========================= ① ========================= For Each Sh In Worksheets MsgBox "工作簿中已有""MY""工作表,將刪除原存在的工作表" Application.DisplayAlerts = False Application.DisplayAlerts = True Set sh = .Add(after:=Worksheets(.Count))=========================②========================a) For Each…. Next…. 將遍歷工作表，檢查原工作表中是否含有「MY」的工作表。b) MsgBox "工作簿中已有""MY""工作表,將刪除原存在的工作表" 如果有「MY」的工作表，首先要彈出一個對話框，告知有這個工作表，講刪除。c) Application.DisplayAlerts = False 將關閉彈出的警告對話框。d) Application.DisplayAlerts = True 將打開彈出的警告對話框。f) Set sh = .Add(after:=Worksheets(.Count))上述教程的學習順序：1→3→2→6→5或者4→3→2→6→5。如需要，可以WeCh: VBA6337或者NZ9668
加微信VBA6337或NZ9668可獲得詳細資料信息
_______________________________
更多關聯閱讀