いぶろぐ　part2

日々創作

Latest(Selected) Entries

文字列を半角大文字英数字＋全角日本語に変換する (01/09)

<< 括弧の中身だけを取得するマクロ | main | ナチュラルビュッフェ　やおまん >>

こちらのテンプレート(JUGEM用)はフリーダウンロードできるようになっています。
お使いになりたいからはこちらからどうぞ。テンプレート[Rooms YouTube対応版]
テレビ無しのシンプルバージョンはこちら。テンプレート[Rooms]
また感想やご意見、改訂版の確認などはこちらの記事へ。 [Rooms]シリーズサポート

文字列を半角大文字英数字＋全角日本語に変換する

JUGEMテーマ：Office VBA

引き続きVBAマクロを使ったユーザー定義関数なのだけれど、英数字と日本語が混在した文字列のフォーマットを統一するための関数を作ってみた。
英数字は半角、特にアルファベットは大文字に、そして半角カタカナも全角に統一する関数。

いろいろな商品や部材を管理する際に、取引先の請求書などからそのまま入力すると、取引先によってカナが半角だったり全角だったり、またデータ形式で受け取った場合の英数字もフォントによってはパッと見で半角なのか全角なのかがわからなかったりもする。
なんだかんだでデータの一致を図ったり、ソートの順番をきれいにしたいときなどに有効だと思う。
うちの会社では特に、データ入力をする人によって英数字が半角だったり全角だったり、一部が小文字だったりという問題を回避するのに役立つ・・・・はず。
前回までと同様、標準モジュールに入れて使ってもらえばいいかと。

'===============================================
'==== 文字列を半角記号英字大文字＋全角カナ＋かなに変換
'===============================================
Function STRtoUNarrowKanaWide(wd As String)
If Len(wd) = 0 Then STRtoUNarrowKanaWide = ""
wd = StrConv(wd, vbUpperCase + vbWide)
wd2 = ""
For i = 1 To Len(wd)
Select Case Mid(wd, i, 1)
Case "Ａ" To "Ｚ", Chr(&H21) To Chr(&H2F), Chr(&H3A) To Chr(&H40), _
Chr(&H5B) To Chr(&H60), Chr(&H7B) To Chr(&H7E), "！" To "９"
wd2 = wd2 & StrConv(Mid(wd, i, 1), vbNarrow)
Case Else
wd2 = wd2 & Mid(wd, i, 1)
End Select
Next i
STRtoUNarrowKanaWide = wd2
End Function