|
编了一个Public YGBH As String '定义用于记录“员工编号”的变量
Public YGXM As String '定义用于记录“员工姓名”的变量
Public YGXB As String '定义用于记录“员工性别”的变量
Public CSNY As String '定义用于记录“出生年月”的变量
Public YGXL As String '定义用于记录“员工学历”的变量
Public GZSJ As String '定义用于记录“工作时间”的变量
Public YGZW As String '定义用于记录“员工职务”的变量
Sub cancel() '用于对全局变量进行初始化
YGBH = " "
YGXM = " "
YGXB = " "
CSNY = " "
YGXL = " "
GZSJ = " "
YGZW = " "
End Sub
Sub note() '用于完成录入功能
Dim tempmsgbox As VbMsgBoxResult
Dim count As Integer
If UserForm1.TextBox1.Text = " " Or _
UserForm1.TextBox2.Text = " " Or _
UserForm1.TextBox3.Text = " " Or _
UserForm1.TextBox4.Text = " " Or _
YGXB = " " Or _
YGXL = " " Or _
YGZW = " " Then
tempmsgbox = MsgBox("请输入完整的信息!", vbOKOnly & vbInformation, "系统提示")
End
End If
count = 0 '为变量赋初值
Range("A2").Select
Do Until Selection.Offset(count, 0).Value = " "
If UserForm1.TextBox1.Text = Selection.Offset(count, 0).Value Then
tempmsgbox = MsgBox("该员工编号已经登记,请重新输入!", vbOKOnly & vbInformation, "提示")
End
End If
(此处出错)count = count + 1
Loop
YGBH = UserForm1.TextBox1.Text
YGXM = UserForm1.TextBox2.Text
CSNY = UserForm1.TextBox3.Text
GZSJ = UserForm1.TextBox4.Text
count = 0
Range("A2").Select
Do Until Selection.Offset(count, 0).Value = ""
count = count + 1
Loop
Selection.Offset(count, 0).Value = YGBH
Selection.Offset(count, 1).Value = YGXM
Selection.Offset(count, 2).Value = YGXB
Selection.Offset(count, 3).Value = CSNY
Selection.Offset(count, 4).Value = YGXL
Selection.Offset(count, 5).Value = GZSJ
Selection.Offset(count, 6).Value = YGZW
Call cancel
If MsgBox("是否继续录入?", vbYesNo, "继续录入") = vbNo Then
UserForm1.Hide
Else
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
End If
End Sub
简单的员工信息录入系统:运行错误"溢出"
|
|