Excel VBA質問箱 IV

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

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


43023 / 76735 ←次へ | 前へ→

【38773】Re:文字列から漢字のみ取得
お礼  mam  - 06/6/9(金) 18:38 -

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

 早々のご返信ありがとうございます。
 ご掲示頂いた、コードを実行してみました。一文字ずつ漢字の
抜き取り(読み取り?)が出来ています。
ここから先を検討する前に、私まだまだ弱輩者ですので、
コードの解析からがんばります。

 説明が下手ですみません。
 これからはこの一文字ずつを連結させて文字列にして、条件判断の
元データとします。

 今更ですが、
 ex:ブック名
    (1G)鈴木ファイル.xls → 鈴木  のみ抽出
    (2G)佐々木ファイル1.xls  → 佐々木 のみ抽出
    (3G)岡ファイル.xls     → 岡   のみ抽出


>なんだかよくワカリマセンが、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
2 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 お礼

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