EXCEL VBA调试一直显示出错“运行时错误‘5’,无效的过程调用或参数” 25
以下这句是哪里出问题了?PrivateSubWorksheet_Activate()IfActiveWindow.FreezePanes=TrueThenActiveWi...
以下这句是哪里出问题了?
Private Sub Worksheet_Activate()
If ActiveWindow.FreezePanes = True Then ActiveWindow.FreezePanes = False
Application.CommandBars("Worksheet menu bar").Controls("员工信息管理").Visible = True
Application.CommandBars("员工信息工具栏").Visible = True
If ActiveCell.Row > 3 And Cells(ActiveCell.Row, 1) <> "" And Cells(ActiveCell.Row, 2) <> 0 Then
Application.StatusBar = "当前:第(" & ActiveCell.Row & ")行,编号(" & Cells(ActiveCell.Row, 1) _
& "),姓名(" & Cells(ActiveCell.Row, 2) & Cells(ActiveCell.Row, 3) & "),性别(" _
& Cells(ActiveCell.Row, 4) & "),部门(" & Cells(ActiveCell.Row, 5) & "),职员类别(" & Cells(ActiveCell.Row, 10) & ")"
Else
Application.StatusBar = False
End If
End Sub
请帮忙,谢谢! 展开
Private Sub Worksheet_Activate()
If ActiveWindow.FreezePanes = True Then ActiveWindow.FreezePanes = False
Application.CommandBars("Worksheet menu bar").Controls("员工信息管理").Visible = True
Application.CommandBars("员工信息工具栏").Visible = True
If ActiveCell.Row > 3 And Cells(ActiveCell.Row, 1) <> "" And Cells(ActiveCell.Row, 2) <> 0 Then
Application.StatusBar = "当前:第(" & ActiveCell.Row & ")行,编号(" & Cells(ActiveCell.Row, 1) _
& "),姓名(" & Cells(ActiveCell.Row, 2) & Cells(ActiveCell.Row, 3) & "),性别(" _
& Cells(ActiveCell.Row, 4) & "),部门(" & Cells(ActiveCell.Row, 5) & "),职员类别(" & Cells(ActiveCell.Row, 10) & ")"
Else
Application.StatusBar = False
End If
End Sub
请帮忙,谢谢! 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询