xxxhsn
xxxhsn
关注数: 10
粉丝数: 71
发帖数: 956
关注贴吧数: 12
Excel自动批改系统_编号004,文档纸张下边距 'Excel阅卷:编号004,文档纸张下边距 Function excel004(ByVal gx As String, ByVal check1 As String) As Boolean ' 检测值 Dim flg As Boolean = False Try If gx = "等于" Then If Abs(sheet.PageSetup.BottomMargin - check1 * 0.393700787 * 72) < 1 Then flg = True Else flg = False End If End If If gx = "不等于" Then If Abs(sheet.PageSetup.BottomMargin - check1 * 0.393700787 * 72) > 1 Then flg = True Else flg = False End If End If If gx = "大于" Or gx = "大于等于" Then If sheet.PageSetup.BottomMargin - check1 * 0.393700787 * 72 + 1 >= 0 Then flg = True Else flg = False End If End If If gx = "小于" Or gx = "小于等于" Then If sheet.PageSetup.BottomMargin - check1 * 0.393700787 * 72 - 1 <= 0 Then flg = True Else flg = False End If End If Catch ex As Exception flg = False End Try excel004 = flg End Function
Excel自动批改系统_编号003,文档纸张上边距 'Excel阅卷:编号003,文档纸张上边距 Function excel003(ByVal gx As String, ByVal check1 As String) As Boolean ' 检测值 Dim flg As Boolean = False Try If gx = "等于" Then If Abs(sheet.PageSetup.TopMargin - check1 * 0.393700787 * 72) < 1 Then flg = True Else flg = False End If End If If gx = "不等于" Then If Abs(sheet.PageSetup.TopMargin - check1 * 0.393700787 * 72) > 1 Then flg = True Else flg = False End If End If If gx = "大于" Or gx = "大于等于" Then If sheet.PageSetup.TopMargin - check1 * 0.393700787 * 72 + 1 >= 0 Then flg = True Else flg = False End If End If If gx = "小于" Or gx = "小于等于" Then If sheet.PageSetup.TopMargin - check1 * 0.393700787 * 72 - 1 <= 0 Then flg = True Else flg = False End If End If Catch ex As Exception flg = False End Try excel003 = flg End Function
Excel自动批改系统_编号002,文档纸张大小 'Excel阅卷:编号002,文档纸张大小 Function excel002(ByVal gx As String, ByVal check1 As String) As Boolean ' 检测值 Dim flg As Boolean = False Try If gx = "等于" Then If sheet.PageSetup.PaperSize.ToString.ToLower = "xlpaper" & check1.ToLower Then flg = True Else flg = False End If Else If sheet.PageSetup.PaperSize.ToString.ToLower = "xlpaper" & check1.ToLower Then flg = False Else flg = True End If End If Catch ex As Exception flg = False End Try excel002 = flg End Function
Excel自动批改系统_编号001,文档页面方向 横向或纵向 'Excel阅卷:编号001,文档页面方向 横向或纵向 Function excel001(ByVal gx As String, ByVal check1 As String) As Boolean ' 关系 检测值 Dim flg As Boolean = False Try If gx = "等于" Then If check1 = "横向" Then If sheet.PageSetup.Orientation.ToString.ToLower = "xllandscape" Then flg = True Else flg = False End If Else If sheet.PageSetup.Orientation.ToString.ToLower = "xlportrait" Then flg = True Else flg = False End If End If Else If check1 = "横向" Then If sheet.PageSetup.Orientation.ToString.ToLower = "xllandscape" Then flg = False Else flg = True End If Else If sheet.PageSetup.Orientation.ToString.ToLower = "xlportrait" Then flg = False Else flg = True End If End If End If Catch ex As Exception flg = False End Try excel001 = flg End Function
首页
1
2
3
下一页