Study Script
wenkongshi
这个作者很懒,什么都没留下…
展开
-
网关地址
Function addsheets(station)Worksheets.Add after:=Sheets(Sheets.Count) '在所有表最右边插入一表ActiveSheet.Name = station '表名End FunctionSub gateway()Dim station, column1, column2, column3,原创 2014-10-27 17:56:30 · 559 阅读 · 0 评论 -
欢迎使用CSDN-markdown编辑器
Public Function CreateSelectionSet(Optional ssName As String = “ss”) As ObjectDim ss As ObjectOn Error Resume NextDo While ThisDrawing.SelectionSets.count > 0 ThisDrawing.SelectionSets.Item(0).De原创 2016-12-15 23:05:14 · 178 阅读 · 0 评论