- 博客(8)
- 收藏
- 关注
转载 打印预览
1 Sub Browse_Click() 2 '打印信息 3 Dim columnCount As Integer '列数 4 Dim rowCount As Integer '行数 5 columnCount = getColumnCount(XsXxSheet) 6 rowCount = Application.Co...
2019-10-02 10:44:00 578
转载 打印
1 Sub Print_Click() 2 '打印信息 3 Dim columnCount As Integer '列数 4 Dim rowCount As Integer '行数 5 columnCount = getColumnCount(XsXxSheet) 6 rowCount = Application.Cou...
2019-10-02 10:44:00 542
转载 工具函数
1 Function DicCheck(ValueColum, dicColum) 2 '待检查数据列的表头 3 Dim valueColumnTitle As String 4 '待检查数据列的字典表头 5 Dim dicColumnTitle As String 6 '数据表格的行数 7 D...
2019-10-02 10:43:00 601
转载 开始使用
Sub Begin_Click()Sheets(valueSheetName).Visible = TrueSheets(valueSheetName).SelectSheets(readmeSheetName).Visible = FalseEnd Sub转载于:https://www.cnblogs.com/xiehaofeng/p/1161...
2019-10-02 10:42:00 231
转载 模版对应信息
1 '模板对应信息 2 Function getExportCell(exportCell As TypeValueCell) 3 If exportCell.cellName = "" Then 4 Return 5 End If 6 Dim columnName As String 7 colum...
2019-10-02 10:41:00 124
转载 校验函数
1 '学籍接续标识 2 Function checkXjjxbs(valueCol As TypeValueColum, rowIndex) 3 If checkRequired(rowIndex, valueCol.columnIndex) = 1 Then 4 5 End If 6 End Function 7 ...
2019-10-02 10:40:00 786
转载 声明
1 Public Type TypeValueColum 2 '列索引号 3 columnIndex As Integer 4 '列名称 5 columnName As String 6 '对应字典列索引。没有字典对应时为0 7 dicColumnIndex As Integer 8 '对应字典列...
2019-10-02 10:40:00 90
转载 主程序(开始检查)
1 Public Sub Check_Click() 2 Sheets(readmeSheetName).Visible = False 3 '首先输入学校验证码,如果不输入直接退出 4 xxbsm = InputBox("请输入学校标识码") 5 If StrPtr(xxbsm) Then 6 If IsNumeric(xxbssm)...
2019-10-02 10:38:00 200
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人