Excel VBA質問箱 IV

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

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


5387 / 76732 ←次へ | 前へ→

【76958】Re:VBAで文字列中に「スペース」を挿入したい
発言  kanabun  - 15/4/20(月) 19:58 -

引用なし
パスワード
   ▼初投稿 さん:

>【サンプル】
>A B C 全角文字列D 全角文字列E F

半角スペースで分割したそれぞれの部分文字列が 全角文字列と半角文字列に
分れていたら、その境界に スペースを挿入する。

Sub trial()
  Dim i As Long, j As Long
  Dim ss As String, s As String
  Dim v
  ss = "A B C 全角文字列D 全角文字列E F"
  
  v = Split(ss)
  For i = 0 To UBound(v)
    s = v(i)
    For j = Len(s) To 2 Step -1
     If LenA(Mid$(s, j, 1)) <> LenA(Mid$(s, j - 1, 1)) Then
       v(i) = Left$(s, j - 1) & " " & Mid$(s, j)
       Exit For
     End If
    Next
  Next
  MsgBox Join(v, " ")
End Sub

Private Function LenA(s As String) As Long
  LenA = LenB(StrConv(s, vbFromUnicode))
End Function

結果-----
A B C 全角文字列 D 全角文字列 E F

368 hits

【76956】VBAで文字列中に「スペース」を挿入したい 初投稿 15/4/20(月) 19:13 質問[未読]
【76957】Re:VBAで文字列中に「スペース」を挿入した... β 15/4/20(月) 19:58 発言[未読]
【76959】Re:VBAで文字列中に「スペース」を挿入した... β 15/4/20(月) 20:06 発言[未読]
【76962】Re:VBAで文字列中に「スペース」を挿入した... 初投稿 15/4/21(火) 22:09 お礼[未読]
【76958】Re:VBAで文字列中に「スペース」を挿入した... kanabun 15/4/20(月) 19:58 発言[未読]
【76960】Re:VBAで文字列中に「スペース」を挿入した... kanabun 15/4/20(月) 20:18 発言[未読]
【76963】Re:VBAで文字列中に「スペース」を挿入した... 初投稿 15/4/21(火) 22:11 お礼[未読]
【76961】Re:VBAで文字列中に「スペース」を挿入した... β 15/4/20(月) 22:00 発言[未読]
【76964】Re:VBAで文字列中に「スペース」を挿入した... γ 15/4/21(火) 22:51 発言[未読]
【76965】Re:VBAで文字列中に「スペース」を挿入した... β 15/4/22(水) 8:21 発言[未読]
【76966】Re:VBAで文字列中に「スペース」を挿入した... γ 15/4/22(水) 23:25 発言[未読]
【76967】Re:VBAで文字列中に「スペース」を挿入した... β 15/4/23(木) 8:27 質問[未読]
【76980】Re:VBAで文字列中に「スペース」を挿入した... γ 15/4/23(木) 21:11 発言[未読]
【76981】Re:VBAで文字列中に「スペース」を挿入した... β 15/4/24(金) 0:12 お礼[未読]

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