IF块没有end if

ccf650

请教各位:
如附件,我的代码中明明有if,也有end if.为什么系统说我的块if没有end if.请高手帮我检测下,错在哪里,谢谢了
问题源:选择选项框后,点确定键问题就出来了.

[ 本帖最后由 ccf650 于 2009-8-6 01:05 编辑 ]

xyh_bear

楼主：附件呢?

zhaozyuan

你是不是在 IF end if 中间有end with 之类的东西呀

xyh_bear

把代码发上来吧! 别人怎么知道代码错在哪里。

ccf650

不好意思各位,刚才忘记传附件了,现在补传了,麻烦帮看下

zdyaini

If OptionButton1.Value = False And OptionButton2.Value = False Then
If OptionButton2.Value = False And OptionButton3.Value = False Then
  If OptionButton3.Value = False And OptionButton4.Value = False Then
   If OptionButton4.Value = False And OptionButton5.Value = False Then
    If OptionButton5.Value = False And OptionButton6.Value = False Then
     If OptionButton6.Value = False And OptionButton7.Value = False Then
      If OptionButton7.Value = False And OptionButton8.Value = False Then
       If OptionButton8.Value = False And OptionButton9.Value = False Then
        If OptionButton9.Value = False And OptionButton10.Value = False Then
         If OptionButton10.Value = False And OptionButton11.Value = False Then
          If OptionButton11.Value = False And OptionButton12.Value = False Then
           If OptionButton12.Value = False And OptionButton13.Value = False Then
            If OptionButton13.Value = False And OptionButton14.Value = False Then
             If OptionButton14.Value = False And OptionButton1.Value = False Then
MsgBox "请选择您要操作的项目...", 1 + 64, "人力资源管理系统"
    Exit Sub
End If
If OptionButton1.Value = True Then Sheet2.Select Else Sheet3.Select
If OptionButton2.Value = True Then Sheet3.Select Else Sheet4.Select
  If OptionButton3.Value = True Then Sheet4.Select Else Sheet7.Select
   If OptionButton4.Value = True Then Sheet7.Select Else Sheet14.Select
    If OptionButton5.Value = True Then Sheet14.Select Else Sheet13.Select
     If OptionButton6.Value = True Then Sheet13.Select Else Sheet5.Select
      If OptionButton7.Value = True Then Sheet5.Select Else Sheet6.Select
       If OptionButton8.Value = True Then Sheet6.Select Else Sheet11.Select
        If OptionButton9.Value = True Then Sheet11.Select Else Sheet8.Select
         If OptionButton10.Value = True Then Sheet8.Select Else Sheet9.Select
          If OptionButton11.Value = True Then Sheet9.Select Else Sheet12.Select
           If OptionButton12.Value = True Then Sheet12.Select Else Sheet10.Select
            If OptionButton13.Value = True Then Sheet10.Select Else Sheet15.Select
             If OptionButton14.Value = True Then Sheet15.Select Else Sheet2.Select

少end if 少的也太多了点了吧

gyzzf

if..........then后面换行的话，每个if要对应有一个end if

zhaozyuan

原帖由 gyzzf 于 2009-8-6 06:48 发表
if..........then后面换行的话，每个if要对应有一个end if

不光少end if  这样的程序看了都头疼

sonewboy

lz可以用  case

何彪

呵呵,跟俺水平差不多,要加强学习啊