EXCEL VBA实例一则.docVIP

宏启动后的工作窗体 以下是代码： Private Sub Workbook_BeforeClose(Cancel As Boolean) 关闭时 Dim lj As String Worksheets(职工).Activate If Me.Saved = False Then Me.Save 如果没有保存过则保存 Application.Quit 退出程序 lj = ThisWorkbook.Path \ If Dir(lj rar.exe) = rar.exe Then Shell lj rar.exe a -agmmddhhmm Year(Date) ThisWorkbook.Name 如果本工作簿在同一文件夹下有rar.exe则对本工作簿做一备份文件名为yyyymmddhhmm格式，关闭本工作簿执行，关闭excel程序不执行备份 End If End Sub Private Sub Workbook_Open() 打开时 Autoexec End Sub 模块： Public hs, ls As Long Sub Autoexec() Worksheets(职工).Activate UserForm1.Show End Sub 窗体1 Option Explicit Dim lie, rq, gly As Long Dim czypassword, biaopassword As String Private Sub ComboBox1_Change() Worksheets(ComboBox1.Text).Activate End Sub Private Sub ComboBox1_Click() 选择类别 Worksheets(ComboBox1.Text).Activate 激活指定工作表 TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox5.Text = TextBox7.Text = TextBox6.Text = Cells(3, lie) 显示当日合计 TextBox8.Text = Cells(3, lie + 35) 显示当日单据合计 TextBox9.Text = TextBox3.SetFocus 编号输入或的焦点 End Sub Private Sub ComboBox2_Click() 设置操作员，获取密码 TextBox10.Text = xxxxxxxx Dim czy As String czy = ComboBox2.Text Select Case czy Case Is = Cells(1001, 2) czypassword = Cells(1001, 3) Case Is = Cells(1002, 2) czypassword = Cells(1002, 3) Case Is = Cells(1003, 2) czypassword = Cells(1003, 3) Case Is = Cells(1004, 2) czypassword = Cells(1004, 3) TextBox4.Text = 外出报销 Case Is = Cells(1005, 2) czypassword = Cells(1005, 3) Case Is = Cells(1000, 2) czypassword = Cells(1000, 3) Case Is = czypassword = zhangyunfei End Select End Sub Private Sub CommandButton1_Click() 纪录按钮 Dim ss As String Dim xx As Integer ss = Cells(1, lie + 35) If ss = Then Cells(1, lie + 35) = ComboBox2.Text If ComboBox2.Text = Cells(1, lie + 35) And CommandButton1.Caption = 纪录 Then jl Else If CommandButton1.Caption = 纪录 Then xx = MsgBox(TextBox4.Text 日—的操作员是— ss Chr(13) Chr(10) ComboBox2.Text —你无权添加记录 Chr(13) Chr(10) 请与管理员联系, vbExclamation, 门诊台帐) End If If CommandButton1.Caption = 登陆 Then xx = MsgBox(密码输入正确后方可记录, 64, 门诊台帐) End