Excel VBA質問箱 IV

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

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


72163 / 76734 ←次へ | 前へ→

【9056】Re:トークン?
回答  りん E-MAIL  - 03/11/16(日) 13:34 -

引用なし
パスワード
   まつ さん、こんにちわ。

>またまた関数の使い方で困っています
>セルA1 に"23/25/200/300"と入力するとします "/"区切りで文字列を修得したいのですが・・・ 

WorksheetFunctionは使っていませんが、考え方は同じです。
Sub test()
  Dim a1$, p1%, p2%
  '
  a1$ = "23/25/200/300/"
  p1% = 1
  Do
   p2% = InStr(p1%, a1$, "/")
   If p2% = 0 Then p2% = Len(a1$) + 1
   MsgBox Mid(a1$, p1%, p2% - p1%)
   '
   p1% = p2% + 1
  Loop While p1% < Len(a1$)
End Sub

こんな感じです。
1 hits

【9054】トークン? まつ 03/11/16(日) 11:55 質問
【9055】Re:トークン? ハマゾウ 03/11/16(日) 13:28 回答
【9056】Re:トークン? りん 03/11/16(日) 13:34 回答
【9057】Re:トークン? まつ 03/11/16(日) 15:05 お礼
【9058】Re:トークン? kein 03/11/16(日) 17:51 回答

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