- 博客(3)
- 资源 (1)
- 收藏
- 关注
原创 欢迎使用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
原创 网关地址
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
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人