[[20220118025325]] 『シートへの表示の仕方について』(初心者) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

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

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 >


同じ人?

https://www.excel.studio-kazu.jp/kw/20211228204412.html
(?) 2022/01/18(火) 05:53


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

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.