时间戳

首页 > 解决方案 > 具有多个用户的环境功能

excel - 具有多个用户的环境功能

问题描述

我试图使用 environ 功能只允许某些用户使用文档

这是我的问题：它适用于一个用户名，而不是多个用户名....

我知道嵌套循环在这里可能是一个解决方案，但我认为可能有更简单的方法。参考表也没有成功

当前代码看起来像

If ((IDnumber=“12345”) or (IDnumber=“1234”) or IDnumber=“123”))  then 
Msgbox “approved”
Else: msgbox “denied”

标签： excelvba

解决方案

Select Case是要使用的适当语句，此处：

Dim strMsg as String
Select Case IDnumber
    Case 12345, 1234, 123
        strMsg = "Approved"
    Case Else
        strMsg = "Denied"
End Select
Msgbox strMsg

如果您的变量IDnumber是一个字符串（在这种情况下，变量名的选择错误！）然后在列表中的每个项目周围使用引号：

Dim strMsg as String
Select Case IDnumber
    Case "alpha", "bravo", "charlie"
        strMsg = "Approved"
    Case Else
        strMsg = "Denied"
End Select
Msgbox strMsg

推荐阅读