|
改个思路
- Function CheckValIsNull() As Boolean
- CheckValIsNull = True
- '判断录入项目是否为空
- If Trim(日期.Text) = "" Then
- MsgBox "请录入日期!", vbInformation, "友情提示"
- 日期.SetFocus
- Exit Function
- End If
-
- '判断当日单号是否为空
- If Trim(当日单号.Value) = "" Then
- MsgBox "请录入单号!", vbInformation, "友情提示"
- 当日单号.SetFocus
- Exit Function
- End If
-
- '判断一级类目 是否为空
- If Trim(一级类目.Value) = "" Then
- MsgBox "请录入一级类目!", vbInformation, "友情提示"
- 一级类目.SetFocus
- Exit Function
- End If
-
- '判断二级类目 是否为空
- If Trim(二级类目.Value) = "" Then
- MsgBox "请录入二级类目!", vbInformation, "友情提示"
- 二级类目.SetFocus
- Exit Function
- End If
-
- '判断详细描述是否为空
- If Trim(概要.Text) = "" Then
- MsgBox "请录入详细描述!", vbInformation, "友情提示"
- 概要.SetFocus
- Exit Function
- End If
-
- '判断详细描述是否为空
- If Trim(所属项目.Value) = "" Then
- MsgBox "请录入所属项目!", vbInformation, "友情提示"
- 所属项目.SetFocus
- Exit Function
- End If
-
- '判断付款人是否为空
- If Trim(付款人.Value) = "" Then
- MsgBox "请录入付款人!", vbInformation, "友情提示"
- 付款人.SetFocus
- Exit Function
- End If
-
- '判断资金来源是否为空
- If Trim(资金来源.Value) = "" Then
- MsgBox "请录入资金来源!", vbInformation, "友情提示"
- 资金来源.SetFocus
- Exit Function
- End If
- CheckValIsNull = False
- End Function
- '三级联动菜单
- Private Sub CmdOk_Click() '写入工作表
- Dim arrResult As Variant, xrow As Long
- If CheckValIsNull Then Exit Sub
- '求工作表中第1条空行的行号
- xrow = Range("B" & Rows.Count).End(xlUp).Row + 1
- If xrow < 5 Then xrow = 5
- ReDim arrResult(1 To 1, 1 To 13)
- arrResult(1, 1) = xrow - 4
- arrResult(1, 2) = 日期.Value
- arrResult(1, 3) = 当日单号.Value
- arrResult(1, 4) = 一级类目.Value
- arrResult(1, 5) = 二级类目.Value
- arrResult(1, 6) = 三级类目.Value
- arrResult(1, 7) = 对方单位.Value
- arrResult(1, 8) = 概要.Value
- arrResult(1, 10) = 所属项目.Value
- arrResult(1, 11) = 经办人.Value
- arrResult(1, 12) = 付款人.Value
- arrResult(1, 13) = 资金来源.Value
- Range("B" & xrow).Resize(1, 13) = arrResult
-
- '将窗体中输入的数据清除,等待下次输入
- 日期.Value = ""
- 当日单号.Value = ""
- 一级类目.Value = ""
- 二级类目.Value = ""
- 三级类目.Value = ""
- 对方单位.Value = ""
- 概要.Value = ""
- 所属项目.Value = ""
- 经办人.Value = ""
- 付款人.Value = ""
- 资金来源.Value = ""
- End Sub
复制代码 |
|