|
こんにちは。かみちゃん です。
>簡単な文字列操作について、教えて下さい
>ある文字列があって、たとえばある セルに
>"あいうえお" とかかれていた場合
>最初の文字を消す方法、2番目の文字を消す方法、
>最後の文字を消す方法を教えて下さい。
Mid関数だけでしようとすると、以下のような感じでできると思います。
Sub Sample()
Dim ss1 As String, ss2 As String
ss1 = "あいうえお"
ss2 = Mid(ss1, 2)
MsgBox ss1 & vbCrLf & vbCrLf & _
"の最初の文字を消すと" & vbCrLf & vbCrLf & _
ss2
ss2 = Mid(ss1, 1, 1) & Mid(ss1, 3)
MsgBox ss1 & vbCrLf & vbCrLf & _
"の2番目の文字を消すと" & vbCrLf & vbCrLf & _
ss2
ss2 = Mid(ss1, 1, Len(ss1) - 1)
MsgBox ss1 & vbCrLf & vbCrLf & _
"の最後の文字を消すと" & vbCrLf & vbCrLf & _
ss2
End Sub
|
|