摘要:
1 Sub Browse_Click() 2 '打印信息 3 Dim columnCount As Integer '列数 4 Dim rowCount As Integer '行数 5 columnCount = getColumnCount(XsXxSheet) 6 rowCount = Application.CountA(Active... 阅读全文
摘要:
1 Sub Print_Click() 2 '打印信息 3 Dim columnCount As Integer '列数 4 Dim rowCount As Integer '行数 5 columnCount = getColumnCount(XsXxSheet) 6 rowCount = Application.CountA(ActiveSheet.Range("B:B")) 7 If rowC 阅读全文
摘要:
1 Function DicCheck(ValueColum, dicColum) 2 '待检查数据列的表头 3 Dim valueColumnTitle As String 4 '待检查数据列的字典表头 5 Dim dicColumnTitle As String 6 '数据表格的行数 7 Dim valueRowC... 阅读全文
摘要:
Sub Begin_Click() Sheets(valueSheetName).Visible = True Sheets(valueSheetName).Select Sheets(readmeSheetName).Visible = False End Sub 阅读全文
摘要:
1 '模板对应信息 2 Function getExportCell(exportCell As TypeValueCell) 3 If exportCell.cellName = "" Then 4 Return 5 End If 6 Dim columnName As String 7 columnName = expo... 阅读全文
摘要:
1 '学籍接续标识 2 Function checkXjjxbs(valueCol As TypeValueColum, rowIndex) 3 If checkRequired(rowIndex, valueCol.columnIndex) = 1 Then 4 5 End If 6 End Function 7 8 '1 学校标识码... 阅读全文
摘要:
1 Public Type TypeValueColum 2 '列索引号 3 columnIndex As Integer 4 '列名称 5 columnName As String 6 '对应字典列索引。没有字典对应时为0 7 dicColumnIndex As Integer 8 '对应字典列索引。没有字典对应时为空 ... 阅读全文
摘要:
1 Public Sub Check_Click() 2 Sheets(readmeSheetName).Visible = False 3 '首先输入学校验证码,如果不输入直接退出 4 xxbsm = InputBox("请输入学校标识码") 5 If StrPtr(xxbsm) Then 6 If IsNumeric(xxbssm) Then 7 If Len(xxbsm) <> 10 The 阅读全文