Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3168 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63770】継続するデータから取り出す データ 09/12/11(金) 22:12 質問[未読]
【63772】Re:継続するデータから取り出す ponpon 09/12/11(金) 22:34 発言[未読]
【63779】Re:継続するデータから取り出す データ 09/12/12(土) 21:47 質問[未読]
【63780】Re:継続するデータから取り出す ponpon 09/12/12(土) 23:36 発言[未読]
【63782】Re:継続するデータから取り出す データ 09/12/13(日) 23:55 お礼[未読]
【63770】継続するデータから取り出す
質問  データ  - 09/12/11(金) 22:12 -
引用なし
パスワード
   とあるデータ（２パターンあります）より必要なものだけを抽出するコードを書きたいのですが、わからず悩んでおります。

《やりたいこと》
1.元データ）100.5-100.4-25-124
となっており１個目は100.5　２個目は100.4という具合に
「-」で区切られたデータを１個ずつ抽出し、データ（n)に入れて、その後そのデータを別のシートのC1、C2という感じで順に入力していきたい。


2.元データ）テストＡ__実施日12/4（_は半角のスペースです。２コスペースがあります）
となっており１個目はテストＡという言葉だけ抽出
２個目は実施日12/4だけ抽出して、それぞれ別のシートのN1、N2という感じで順に入力していきたい。


1.は「-」を認識して順に抽出していく？
2.「_」半角スペースを認識して順に抽出していく？

と考えているのですが、コードはどのように記述すればよろしいでしょうか。
【63772】Re:継続するデータから取り出す
発言  ponpon  - 09/12/11(金) 22:34 -
引用なし
パスワード
   ▼データ さん：
Split関数を調べられたらどうでしょう？
参考になれば

Sub test()
　　Dim A As String
　　A = "100.5-100.4-25-124"
　　MsgBox Split(A, "-")(0)
　　MsgBox Split(A, "-")(1)
　　
End Sub
【63779】Re:継続するデータから取り出す
質問  データ  - 09/12/12(土) 21:47 -
引用なし
パスワード
   ▼ponpon さん：

ありがとうございます。
例えば区切られている文字が[-]以外で例えばスペースなどの場合も
splitで検索できるのでしょうか。
試してみると、「　」スペースは認識せず次の言葉まで一緒の語句として
認識するようです。
なにかよい方法はありますでしょうか
【63780】Re:継続するデータから取り出す
発言  ponpon  - 09/12/12(土) 23:36 -
引用なし
パスワード
   >Split関数を調べられたらどうでしょう？
スペースでもできますよ。

Sub test()
　　Dim A As String
　　A = "100.5　100.4　25 124"
　　A = Replace(A, "　", " ")
　　MsgBox Split(A, " ")(0)
　　MsgBox Split(A, " ")(1)
　　MsgBox Split(A, " ")(2)
　　MsgBox Split(A, " ")(3)
End Sub
【63782】Re:継続するデータから取り出す
お礼  データ  - 09/12/13(日) 23:55 -
引用なし
パスワード
   ▼ponpon さん：

Replaceで変換するんですね。
解決しました。
ご教授ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3168 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free