[[20220118025325]]　『シートへの表示の仕方について』（初心者）　ページの最後に飛ぶ

『シートへの表示の仕方について』（初心者）

以下のコードをエクセルのシート上で、反転してることを確認したいのですが、戻り値というものを設定すればいいんでしょうか？

Sub sample()

    Dim s As String
    s = "Apple Grape Orange"
    MsgBox Reverse(s)

End Sub

Function Reverse(s As String) As String

    Dim arr As Variant
    Dim i As Long
    Dim divStr As String

    arr = Split(s)

    Reverse = ""
    divStr = ""

    i = UBound(arr)
    Do Until i < 0
        Reverse = Reverse & divStr & arr(i)
        divStr = " "
        i = i - 1
    Loop

End Function

Sub WordCombination()

    Dim s1 As String
    Dim s2 As String
    Dim s3 As String
    Dim s As String

    s1 = "Apple"
    s2 = "Grape"
    s3 = "Orange"

    s = s1 & " " & s2 & " " & s3
    Debug.Print s

    End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

同じ人？

 こういうことでいいんですかね？

 Sub sample()
    Dim s As String
    s = "Apple Grape Orange"
    Range("A1").Value = Reverse(s)
 End Sub
（qwerty） 2022/01/18(火) 06:37

コメント返信：