2012年9月1日
EXCEL自动生成菜单
摘要： Sub AddMenuSheet()'Check if sheet exists already; direct where to go if not.On Error GoTo Nosheet Sheets("Menu").DeleteNosheet: 'Add sheet as the first sheet in the workbook. Sheets.Add before:=Sheets(1)On Error GoTo 0 ActiveSheet.Name = "Menu" With Sheets("Menu" 阅读全文
posted @ 2012-09-01 09:32 放飞梦想 阅读(395) 评论(0) 推荐(0)