IF块没有end if

unsamesky

大量重复性按钮，执行同样的过程和判断，用类模块比较方便！
测试一下附件中的东西是否可以运行，马上13：30要上班了，没时间测试了！

unsamesky

如果你窗体上选项按钮的名称能够跟工作表的名称完全对应，commandbutton1_click事件的代码还可以简化为：

1. 
   
2. Private Sub CommandButton1_Click()
   
3. If myopValue Then
   
4.    Sheets(myopCaption).Activate
   
5. Else
   
6.    MsgBox "请选择您要操作的项目...", 1 + 64, "人力资源管理系统"
   
7. End If
   
8. Unload Me
   
9. End Sub
   

复制代码

附注：如果本附件中的代码提示“下标越界”，原因是选项按钮的caption与工作表的名称不能完全对应！