[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シートへの表示の仕方について』(初心者)
以下のコードをエクセルのシート上で、反転してることを確認したいのですが、戻り値というものを設定すればいいんでしょうか?
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.