Archive for 8月 27th, 2019

関数 逆順

火曜日, 8月 27th, 2019 
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

Posted in VBA | No Comments »