Excel VBA質問箱 IV

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

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


43029 / 76732 ←次へ | 前へ→

【38763】Re:文字列から漢字のみ取得
発言  Blue  - 06/6/9(金) 16:58 -

引用なし
パスワード
   なんだかよくワカリマセンが、RegExpオブジェクト(正規表現)を使う方法です。

Sub sample()
  Dim objMatchs As Object
  Dim objMatch As Object
  Dim strTarget As String
  
  strTarget = "A.漢字が在ります(終)"
  With CreateObject("VBScript.RegExp")
    .Pattern = "([一-龠])" ' これで漢字1文字に該当
    .Global = True
    Set objMatchs = .Execute(strTarget)
    For Each objMatch In objMatchs
      Debug.Print objMatch.FirstIndex & "文字目:"; objMatch.Value
    Next
  End With
End Sub

0 hits

【38762】文字列から漢字のみ取得 mam 06/6/9(金) 16:48 質問
【38763】Re:文字列から漢字のみ取得 Blue 06/6/9(金) 16:58 発言
【38773】Re:文字列から漢字のみ取得 mam 06/6/9(金) 18:38 お礼
【38774】Re:文字列から漢字のみ取得 Blue 06/6/9(金) 20:03 回答
【38776】Re:文字列から漢字のみ取得 mam 06/6/9(金) 20:53 お礼

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