2013年10月12日 星期六

Excel VBA 網路筆記 20131012

Excel VBA - WorkSheet新增、複製、刪除(不出現提示視窗)

一、WorkSheet新增:

Sub TestAdd()
'新增工作表(無任何參數)
Worksheets.Add
'一次新增10個工作表
Worksheets.Add Count:=10
'新增工作表在sheet1之後
Worksheets.Add after:=Worksheets("sheet1")
'新增工作表在sheet1之前
Worksheets.Add before:=Worksheets("sheet1")
End Sub

二、WorkSheet複製:
Sub TestCopy()
'複製sheet1到sheet1之後
Worksheets("sheet1").Copy After:=Worksheets("sheet1")
'複製sheet1到sheet1之前
Worksheets("sheet1").Copy Before:=Worksheets("sheet1")
End Sub

三、WorkSheet刪除:
在Excel中手動操作刪除動作時,會出現下圖的警告視窗
image
在VBA中若要刪除工作表時,忽略此步驟需加入
Application.DisplayAlerts = False 程式碼來關閉顯示警告視窗
Sub TestDelete
'關閉警告視窗
Application.DisplayAlerts = False
'刪除作用中的工作表
ActiveSheet.Delete
'恢復警告視窗
Application.DisplayAlerts = True
End Sub


 

Excel VBA - 讓UserForm關閉按鈕(X)失效

讓右上角的關閉按鈕(X)的功能失效,來達到不通過驗證只能停在登入視窗無法進行任何其它的動作。

 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = 1
End Sub
張貼留言

LinkWithin

Related Posts Plugin for WordPress, Blogger...

熱門文章