摘要:
1 Public Type TypeValueColum 2 '列索引号 3 columnIndex As Integer 4 '列名称 5 columnName As String 6 '对应字典列索引。没有字典对应时为0 7 dicColumnIndex As Integer 8 '对应字典列索引。没有字典对应时为空 ... 阅读全文
posted @ 2019-10-02 10:40
眸眸
阅读(231)
评论(0)
推荐(0)
摘要:
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 学校标识码... 阅读全文
posted @ 2019-10-02 10:40
眸眸
阅读(350)
评论(0)
推荐(0)
摘要:
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 阅读全文
posted @ 2019-10-02 10:38
眸眸
阅读(338)
评论(0)
推荐(0)


浙公网安备 33010602011771号