CYL菜鳥攻略

縮合 / 展開 群組

Sub CollapseGroup() 
	ActiveSheet.Outline.ShowLevels ColumnLevels:=1  '縮合
End Sub 

Sub ExpandGroup() 
	ActiveSheet.Outline.ShowLevels ColumnLevels:=2  '展開
End Sub

 

判斷sheet是否存在於某workbook？如果沒有則創建

Sub t2() 
	Dim sh As Worksheet 
	a = (頁簽名)

	For Each sh In Worksheets 
		If sh.Name = a Then 
			'已經存在
			Exit For 
		Else 
			Worksheets.Add ActiveSheet.Name = a '新增該頁簽
			
		End If 
	Next sh 
End Sub

 

 

 

 

---

人生美好~別浪費腦容量記程式碼 :- ) 

作者：CYL
出處：http://dotblogs.com.tw/cylcode
資料來源都會特別註明，有興趣都可查詢原出處，本站皆經過整理才分享，如有轉載請顯示出處及作者，感謝。

---