« «
» »

関数 逆順

Function 逆順(単セル As Range)
    
    Dim i As Integer
    If 単セル.Count = 1 Then
        For i = Len(単セル) To 1 Step -1
            逆順 = 逆順 & Mid(単セル, i, 1)
        Next i
    Else
        逆順 = "引数は1つのセルを選んでね"
    End If
    
End Function

This entry was posted on 火曜日, 8月 27th, 2019 at 1:16 AM and is filed under VBA. You can follow any responses to this entry through the RSS 2.0 feed. Responses are currently closed, but you can trackback from your own site.