Excel VBA質問箱 IV

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

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


72164 / 76734 ←次へ | 前へ→

【9055】Re:トークン?
回答  ハマゾウ E-MAILWEB  - 03/11/16(日) 13:28 -

引用なし
パスワード
   ▼まつ さん:

WorksheetFunctionを使わなくても良いのであれば、以下のコードをお試しください。

Sub test()
  Dim a() As String
  Dim i As Long
  Dim j As Long
  Dim k As Long
  Dim Moji As String
  
  Moji = Sheets("sheet1").Range("a1").Value
  
  j = 0: k = 1
  
  For i = 1 To Len(Moji)
    If Len(Moji) = i Then
      j = j + 1
      ReDim Preserve a(j)
      a(j) = Mid(Moji, k, i - k + 1)
    ElseIf Mid(Moji, i, 1) = "/" Then
      j = j + 1
      ReDim Preserve a(j)
      a(j) = Mid(Moji, k, i - k)
      k = i + 1
    End If
  Next
  
  For i = 1 To UBound(a())
    MsgBox a(i)
  Next i
End Sub

もっとスマートな方法がありそうですが・・・
0 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 回答

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