Excel VBA質問箱 IV

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

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


12758 / 13644 ツリー ←次へ | 前へ→

【8809】文字列の一部を取得 LIFE 03/11/3(月) 22:39 質問
【8810】Re:文字列の一部を取得 りん 03/11/3(月) 22:46 回答
【8823】Re:文字列の一部を取得 LIFE 03/11/5(水) 0:55 お礼

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

引用なし
パスワード
   下記内容で困っています。
どなたか助けて頂けないでしょうか?

アクティブセルに5桁の数字が並んでいるとして、
その数字を1文字目と2〜3文字目と4〜5文字目に分割し、
それぞれを変数に代入したいのですがうまくいきません。
何かいい方法は無いでしょうか?

宜しくお願いします。

【8810】Re:文字列の一部を取得
回答  りん E-MAIL  - 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"

【8823】Re:文字列の一部を取得
お礼  LIFE  - 03/11/5(水) 0:55 -

引用なし
パスワード
   うまくいきました。
どうもありがとうございました。

12758 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free