[已解决]用VBA这个Msgbox输出大小写

laoau138

用VBA这个Msgbox输出大小写



用inputbox提示输入字符串


用msgbox输出    大写变小写   小写变大写   字符串


例如:输入 ChA    输出为:  cHa

最佳答案

月排行榜 / 总排行榜

raymanrrr

2017-4-3 22:11

Sub Macro()
    Dim txt As String
    Dim result As String
    Dim i As Integer
   
    result = ""
    txt = InputBox("")

    For i = 1 To Len(txt)
        result = result & change(Mid(txt, i, 1))
    Next

    MsgBox result

End Sub

Function change(ByVal char As String) As String
On Error GoTo errorhandler
    Dim x As Byte
    x = Asc(char)
    If x > 64 And x < 91 Then
        change = chr(x + 32)
    ElseIf x > 96 And x < 123 Then
        change = chr(x - 32)
    Else
        change = char
    End If
Exit Function
errorhandler:
    change = char
End Function


我也不知道vba有没有vb.net或者python类似的转换大小写函数，就自己写一个，然后遍历字符串里面的每一个字符用这个函数实现转换就行了

跳转到最佳答案楼层

raymanrrr

Sub Macro()
    Dim txt As String
    Dim result As String
    Dim i As Integer
   
    result = ""
    txt = InputBox("")

    For i = 1 To Len(txt)
        result = result & change(Mid(txt, i, 1))
    Next

    MsgBox result

End Sub

Function change(ByVal char As String) As String
On Error GoTo errorhandler
    Dim x As Byte
    x = Asc(char)
    If x > 64 And x < 91 Then
        change = chr(x + 32)
    ElseIf x > 96 And x < 123 Then
        change = chr(x - 32)
    Else
        change = char
    End If
Exit Function
errorhandler:
    change = char
End Function


我也不知道vba有没有vb.net或者python类似的转换大小写函数，就自己写一个，然后遍历字符串里面的每一个字符用这个函数实现转换就行了

大灰狼1976

1. Sub aaa()
   
2. Dim s$, s1$, i&
   
3. s ="ABcDefGhijKL"
   
4. For i = 1 To Len(s)
   
5.   s1 = Mid(s, i, 1)
   
6.   If s1 = UCase(s1) Then Mid(s, i, 1) = LCase(s1) Else Mid(s, i, 1) = UCase(s1)
   
7. Next i
   
8. MsgBox s
   
9. End Sub

复制代码