请大侠帮忙看下到底是哪里的错误。提示块if 没有endif

鎈钚哆姺泩

Private Sub SubmitBtn_Click()
  On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
  Dim n As String
  na = UserName.Text '获取登陆名
  pwd = PassWord.Text '获取登密码
  Set sh = Sheets("设置")
  If na = "" Or pwd = "" Then
   MsgBox "用户名或密码不能为空", , "提示": Exit Sub
   s = WorksheetFunction.Match(na, sh.[a:a], 0) '查找用户在A列的位置
   n = sh.Cells(n, 2).Value '取出“设置”表中的权限密码，字符型
  If n <> pwd Then GoTo 10
   Call ThisWorkbook.HideSheets
   '检查一下“设置”表的C列及右边各格中的内容，有内容的，说明可以打开内容所指定的工作表
   For i = 4 To 255
     b = sh.Cells(s, i).Value
     If b = 1 And sh.Cells(1, i) <> "" Then '单元格为1时，表示有权限打开这个表，就让它显示出来
     Sheets(sh.cell(1, i).Value).Visible.Value = -1
     End If
   Next
  Unload LoginForm '退出登陆框
  Exit Sub
10:
  MsgBox "姓名或密码错误，不能登录", , "提示"

End Sub

张三李四

If 通常与 End If 联合应用的。
If     Then


End If

良好的习惯是在这个组合段内的代码通一缩进。提示已经告诉你了缺 End If ，自己查查吧。

好奇心

Private Sub SubmitBtn_Click()
  On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
  Dim n As String
  na = UserName.Text '获取登陆名
  pwd = PassWord.Text '获取登密码
  Set sh = Sheets("设置")
If na = "" Or pwd = "" Then
   MsgBox "用户名或密码不能为空", , "提示": Exit Sub
end if
   s = WorksheetFunction.Match(na, sh.[a:a], 0) '查找用户在A列的位置
   n = sh.Cells(n, 2).Value '取出“设置”表中的权限密码，字符型
  If n <> pwd Then GoTo 10
   Call ThisWorkbook.HideSheets
   '检查一下“设置”表的C列及右边各格中的内容，有内容的，说明可以打开内容所指定的工作表
   For i = 4 To 255
     b = sh.Cells(s, i).Value
     If b = 1 And sh.Cells(1, i) <> "" Then '单元格为1时，表示有权限打开这个表，就让它显示出来
     Sheets(sh.cell(1, i).Value).Visible.Value = -1
     End If
   Next
  Unload LoginForm '退出登陆框
  Exit Sub
10:
  MsgBox "姓名或密码错误，不能登录", , "提示"

End Sub

鎈钚哆姺泩

好奇心 发表于 2013-4-9 15:14
Private Sub SubmitBtn_Click()
  On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
...

If n <> pwd Then GoTo 10 这里就不用加吗？  按照你的提示改了下，没有问题

crazy0qwer

写代码时候注意缩进，IF  ... END IF   ;FOR  ...  NEXT;等语句先写好结构，即先写好
FOR I=1 TO 2

NEXT
然后再在里面写代码。
缩进可按 TAB键，缩进四个字符。

好奇心

鎈钚哆姺泩 发表于 2013-4-9 15:19
If n  pwd Then GoTo 10 这里就不用加吗？  按照你的提示改了下，没有问题

If n <> pwd Then GoTo 10    '此  If  语句结构是完整的，不用加何东东。

鎈钚哆姺泩

好奇心 发表于 2013-4-9 15:29
If n  pwd Then GoTo 10    '此  If  语句结构是完整的，不用加何东东。

大侠现在又有这么一个问题
  '检查一下“设置”表的C列及右边各格中的内容，有内容的，说明可以打开内容所指定的工作表
   For i = 4 To 255
     b = sh.Cells(s, i).Value
     MsgBox b  '这里指只执行一次 如果将下面三行代码注释则执行200+次 是哪里错了呢
     If b = 1 And sh.Cells(1, i) <> "" Then '单元格为1时，表示有权限打开这个表，就让它显示出来
     Sheets(sh.Cells(1, i).Value).Visible.Value = -1
     End If
   Next

好奇心

鎈钚哆姺泩 发表于 2013-4-9 15:56
大侠现在又有这么一个问题
  '检查一下“设置”表的C列及右边各格中的内容，有内容的，说明可以打开内容 ...

For i = 4 To 255
     b = sh.Cells(s, i).Value
     If b = 1 And sh.Cells(1, i) <> "" Then '单元格为1时，表示有权限打开这个表，就让它显示出来
        Sheets(sh.Cells(1, i).Value).Visible.Value = -1
       MsgBox b
    End If
   Next

鎈钚哆姺泩

好奇心 发表于 2013-4-9 16:04
For i = 4 To 255
     b = sh.Cells(s, i).Value
     If b = 1 And sh.Cells(1, i)  "" Then '单元格 ...

不执行了。 我怀疑是不是 if语句的问题 直接goto 10 了呢？

张三李四

  s = WorksheetFunction.Match(na, sh.[a:a], 0) '查找用户在A列的位置
   n = sh.Cells(S, 2).Value '取出“设置”表中的权限密码，字符型