luckluckerのブログ一覧

天気がダメすぎて、写真撮る気が全くしない。。


なので、最近おっ？と思ったことでも書きます。
仕事上の作業工程で、漢字混ざりの全角テキストを元に、
半角カナ名称を持ってくる必要が出ました。
つまり、〇〇名称漢字　という項目から、　検索用カナ文字　を
作るイメージです。

数件なら手入力でもいいですが、数千件となるとさすがに・・

なにかうまい手はないもんかと考えてみたら、
エクセルで結構簡単に出来た。


手順１　マクロの登録。
①ツール⇒マクロ⇒新しいマクロの記録を選択
②すぐに　■　ボタンを押して記録終了
③ツール⇒マクロ⇒マクロ　で、②で記録したマクロを選択して　編集　を選択。
④以下を貼り付けて保存。
　Public Sub フリガナ追加()
　　Dim rg As Range
　　Application.ScreenUpdating = False
　　For Each rg In Selection
　　　　rg.SetPhonetic
　　Next
　　Application.ScreenUpdating = True
　End Sub

手順２　マクロの実行
①カナ文字にしたい漢字入りテキストを選択する（範囲指定も可）
②ツール⇒マクロ⇒マクロ　で「フリガナ追加」を選択して　実行
※コレで、漢字入りテキストにフリガナが追加されます。
　確認したい場合は、①部分を選択して、　書式⇒ふりがな⇒表示／非表示　を選択


手順３　フリガナ文字部分の取得
①エクセルの関数「PHONETIC」を使って、手順２で追加されたフリガナ部分を持ってきます。
例）セル　A2 に"東京都は晴天" とあった場合
セル　B2で =PHONETIC(A2)
と入力すると、 "トウキョウトハセイテン"となります。


手順４　半角にする
手順３までだとまだ全角カナなので、ASC関数で半角カナに変換。
例）セル　B2 に"トウキョウトハセイテン" とあった場合
セル　C2で =ASC(B2)
と入力すると、 "ﾄｳｷｮｳﾄﾊｾｲﾃﾝ"となります。


コレでＯＫ。
（数式が嫌なら、選択してコピー、形式を選択して貼り付けで"値"にチェックをつけてＯＫ）

お陰で途方もない作業量が、10分未満で完成して満足しました。



お勉強コーナーが終わったのでブレイクタイム・・・
面白いトヨタのＣＭ。
このセンス・・・シュールだけど凄い・・こんなの日本でやってくれたらなぁ。
でも、ロケ地は日本なんですね。