Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36458 / 76732

←次へ　｜　前へ→


	【45455】Re:数値と記号以外の抜き出し方法

りん

- 06/12/25(月) 13:33 -


	引用なし

	パスワード

質問（煮詰まった）さん、こんにちわ。

>　三洋電機
>　ｼｬｰﾌﾟ
>　松下電器産業のように漢字も利用しているのですが
>
>　漢字の場合は何か、手立てありますか？

全角にして、文字コードの範囲で分岐しました。
Function HKGet2(arg1 As String) As String
　 Dim a1 As String, a2 As String
　 For II = 1 To Len(arg1)
　　　a1 = Mid(arg1, II, 1) 'II文字目
　　　 '全角文字コードで判定（濁点等があるかもしれないので更に左のみ）
　　　Select Case Asc(StrConv(a1, vbWide))
　　　　 Case Is < Asc("ぁ")　'文字コード表で意味を確認してみてね
　　　　　　'無視
　　　　 Case Is <= Asc("ヶ")
　　　　　　'追加
　　　　　　a2 = a2 + a1
　　　　 Case Is < Asc("亜")
　　　　　　'無視
　　　　 Case Else
　　　　　　'追加
　　　　　　a2 = a2 + a1
　　　End Select
　 Next
　 '関数の結果
　 HKGet2 = a2
End Function

こんな感じです。
この場合は外字とかも入りますので、文字コードの領域を限定したいときは、文字コード表を参考にCase文を追加してください。

0 hits

▼

【45451】数値と記号以外の抜き出し方法 質問（煮詰まった） 06/12/25(月) 12:09