主页 / user-6796929

timorgano's questions

Martin Hope
timorgano
Asked: 2024-11-14 20:15:01 +0800 CST
  • 5

我正在使用我们的用户名在 Excel 的 VBA 中构建动态宏Environ("Username")，需要提取大写字符。因此 JohnSmith 变成了 JS

我无法让宏仅返回首字母。它只会给我一个空白的回复

'
' Macro1 Macro
'
Dim Username As String
Dim UserInits As String
Username = Environ("UserName")
Dim i As Integer
Dim spltStr() As String
spltStr = Split(Username)

UserInits = ""

i = 1
Do While i <= Len(Username)

    If UCase(spltStr(i)) = spltStr(i) Then
        UserInits = UserInits & spltStr(i)
    End If
    
i = i + 1
Loop

MsgBox UserInits

End Sub

有人能看到我做错什么了吗？

vba