|
LIFE さん、こんばんわ
>アクティブセルに5桁の数字が並んでいるとして、
>その数字を1文字目と2〜3文字目と4〜5文字目に分割し、
>それぞれを変数に代入したいのですがうまくいきません。
>何かいい方法は無いでしょうか?
Mid関数などを使って文字列を分割すればいいです。
Sub test()
Dim s1 As String
s1 = ActiveCell.Value
If Len(s1) = 5 Then
MsgBox Left(s1, 1), vbInformation, "1"
MsgBox Mid(s1, 2, 2), vbInformation, "2,3"
MsgBox Right(s1, 2), vbInformation, "4,5"
Else
MsgBox s1, vbExclamation, "対象外"
End If
End Sub
こんな感じです。
全部Midであらわすなら、
MsgBox Mid(s1, 1, 1), vbInformation, "1"
MsgBox Mid(s1, 2, 2), vbInformation, "2,3"
MsgBox Mid(s1, 4, 2), vbInformation, "4,5"
|
|