VBA字符串功能

用户名

这是提示的问题：

编写一个执行以下操作的子程序：1）它要求用户输入单词；2）在第5行的连续单元格中，以倒序输入单词的每个字符，从单元格“ B5”开始。提示：使用for循环。

我真的不知道如何开始，这是我所拥有的，但是我知道这是完全错误的：

Public Sub Question2()

Dim Word As String
Dim Counter As Integer

Word = InputBox("Please Enter a word")

For Counter = 1 To Len(Word)
    Range("B5").EntireRow.Value = StrReverse(Word)
Next

End Sub

大本钟

也许像下面这样，Step -1用于从最后一个字符循环到第一个字符Offset，在循环的每次迭代中增加列，并一次Mid$返回一个字符：

Public Sub Question2()

    Dim Word As String
    Dim Counter As Integer

    Word = InputBox("Please Enter a word")

    For Counter = Len(Word) To 1 Step -1
        Range("B5").Offset(, Len(Word) - Counter).Value = Mid$(Word, Counter, 1)
    Next

End Sub

如果要使用StrReverse：

Public Sub Question2()

    Dim Word As String
    Dim Counter As Integer

    Word = InputBox("Please Enter a word")
    Word = StrReverse(Word)

    For Counter = 1 To Len(Word)
        Range("B5").Offset(, Counter - 1).Value = Mid$(Word, Counter, 1)
    Next

End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。