Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72480 / 76807

←次へ　｜　前へ→


	【8810】Re:文字列の一部を取得

りん

- 03/11/3(月) 22:46 -


	引用なし

	パスワード

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"

2 hits

▼

【8809】文字列の一部を取得 LIFE 03/11/3(月) 22:39