パソコンに関することからゲームに関する商品や情報を紹介しているサイトです。
Excelをデータベースとして使うときには、「ふりがな」というのは重要で、便利な機能です。
フリガナの機能には「フリガナをふる」「PHONETIC関数を使ってフリガナを取得する」など色々な機能があります。
とはいっても日本語入力と漢字の関係性から言っても万全ではないのが弱点なのですが・・・
さらに弱点として、フリガナはExcel上で行われた入力の読みを保持しているだけと言う事も上げられます。ということは、読み(ふりがな)の情報を持っていなければふりがなというのは画面上に表示されないということになります。
ツールからふりがなをふる際の弱点は、CSVファイルをエクセル上にインポートして使用する場合ですが、この場合は読みの情報は保持されない状態でインポートされてきます。
そのため、ふりがなのツール「メニュー[書式]→[ふりがな]→[表示/非表示]」を実行してもふりがながふられないということになります。
このような場合には「PHONETIC関数」を使ってマクロでふるようにしましょう。
【PHONETIC関数を使った、ふりがなをふるマクロ】
Sub Phonetic-Furigana()
Selection.SetPhonetic
Selection.Phonetics.Visible = True
End Sub
上記のようなマクロを作成して、フリガナをふりたいセルで実行するようにするとふりがなを取得することができます。
-----------------------------------------------------------------------------------------------------------------------------------
スポンサードリンク
-------------------------------------------------------------------------------------------------------------------
エクセル,ふりがなの自動設定
エクセル2000で,ふりがな情報をもっていないセル(テキストデータをコピペしたので.)に自動的に標準的なふりがなを設定したいんです.[書式-ふりがな-編集]で,一つのセルの標準ふりがなが設定できるのですが,セルが大量にあるため,マクロ....
郵便番号から住所を出力
エクセルで郵便番号を入力して住所を表示するのに下のようにやってます。これを一発で目的を達するマクロにしたいのですが、どなたかご指導ください。セルA2に郵便番号が入力されるとセルB2にも同じ値を書き込むマクロをつくり、セル....
エクセル コピーしたセルにふりがなを表示させる方法
にふりがなを表示させたいです。私はマクロには疎いのですが、ネットで検索したところ、Sub ふりがな設定() Selection.SetPhonetic Selection.Phonetics.Visible = TrueEnd Subを登録して実行すれば良いと書いてあったので試したのですが実行しても、ふりがな....
エクセルをHTMLとして貼り付けるとふりがなが表示される
ます。エクセルで作った表を、OutLook Express 等のhtmlを編集できるエディタ(htmlメールを作る)にコピー&ペーストすると、漢字のふりがなが表示されてコピーされます。これを回避する方法はあるでしょうか?今は、コピー前に次のマクロでふりがなを....
エクセルの並べ変え
Excel 2003で、納品書の発行リストを作成しています。A列に納品書番号、B 列に 日付、C 列に 相手先、D 列に品名、E 列に金額を入力していますが、相手先は、カタカタの名前、漢字の名前、アルファベットの名前があり、....
お願いします!エクセルで半角英数の八桁のランダムな文字にふりがなの列を作る方....
お願いします!エクセルで半角英数の八桁のランダムな文字にふりがなの列を作る方法があったら教えてください!例)abc5defg7h→エイ・ビー・シー・ゴ・ディー・イー・エフ・ジー・ナナ・エイチ といったように。 下記の関数を作ったけどアルファベットのみのものは、できたけど、ランダムな数字のはいった文字列ができないです。 別シート(Sheet2とする)のA列にアルファベット、B列に読み仮名を設定して A1 --> a B1 --> エー A2 --> b B2 --> ビー ・ ・ ・ A26 --> z B26 --> ゼット A27-->1 B27-->イチ ・ ・ ・ A36--> 9 B36--> ク 対象シートのA列にアルファベットがあるとして(1行目は見出しとして最初のデータはA2とする) 振り仮名を入れる列に =VLOOKUP(MID($A2,1,1),Sheet2!$A:$B,2,FALSE)&"・" &VLOOKUP(MID($A2,2,1),Sheet2!$A:$B,2,FALSE)&"・" &VLOOKUP(MID($A2,3,1),Sheet2!$A:$B,2,FALSE)&"・" &VLOOKUP(MID($A2,4,1),Sheet2!$A:$B,2,FALSE)&"・" &VLOOKUP(MID($A2,5,1),Sheet2!$A:$B,2,FALSE)&"・" &VLOOKUP(MID($A2,6,1),Sheet2!$A:$B,2,FALSE)&"・" &VLOOKUP(MID($A2,7,1),Sheet2!$A:$B,2,FALSE)&"・" &VLOOKUP(MID($A2,8,1),Sheet2!$A:$B,2,FALSE) ※改行はしてないです。※セルを文字列に設定しています。※PONETICや書式→ふりがなをやってみたけど、アルファベットのままふりがなになっってしまいました。これは、数字とアルファベット両方がランダムに入った文字列に対しては有効ではない関数なのでしょうか? アルファベットだけなら、できました。どうして数字が入った文字列だけがだめなのかわからないのです。ちなみにマクロのスキルはないので、関数でお答えいただきたいです。
先日、エクセルでマクロが使えないために、アルファベットにフリガナをフル列を作....
先日、エクセルでマクロが使えないために、アルファベットにフリガナをフル列を作る方法を聞いたものですが、続きをおねがいたします。経緯は下記を御覧になってください。【前回の質問】お願いします!エクセルで半角英数の八桁のランダムな文字にふりがなの列を作る方法があったら教えてください。例)abcdefgh→エイ・ビー・シー・ディー・イー・エフ・ジーといったようにです。・ふりがな、文字と文字の間は半角でもかまいません。・文字間の記号は空白でも別のものでもかまいません。・マクロのスキルはありません。・PONETICや書式→ふりがなをやってみましたが、アルファベットのままふりがなになってしまいました。・方法がない場合、フリーソフトなどあったら教えてください。 と、いう質問に下記のご回答を頂きました。【回答】別シート(Sheet2とする)のA列にアルファベット、B列に読み仮名を設定する。A1 --> aB1 --> エーA2 --> bB2 --> ビー・・・A26 --> zB26 --> ゼット対象シートのA列にアルファベットがあるとして(1行目は見出しとして最初のデータはA2とする)振り仮名を入れる列に=VLOOKUP(MID($A2,1,1),Sheet2!$A:$B,2,FALSE)&"・"&VLOOKUP(MID($A2,2,1),Sheet2!$A:$B,2,FALSE)&"・"&VLOOKUP(MID($A2,3,1),Sheet2!$A:$B,2,FALSE)&"・"&VLOOKUP(MID($A2,4,1),Sheet2!$A:$B,2,FALSE)&"・"&VLOOKUP(MID($A2,5,1),Sheet2!$A:$B,2,FALSE)&"・"&VLOOKUP(MID($A2,6,1),Sheet2!$A:$B,2,FALSE)&"・"&VLOOKUP(MID($A2,7,1),Sheet2!$A:$B,2,FALSE)&"・"&VLOOKUP(MID($A2,8,1),Sheet2!$A:$B,2,FALSE)※改行はしないで。※アルファベットのある列がAじゃ無い場合 MID($A」のAを変えてください。=ここまで==============これは、数字とアルファベット両方がランダムに入った文字列に対しては有効ではない関数なのでしょうか?アルファベットだけの場合は成功しましたが、数字の入った文字列ができません。何か方法があったら教えてください。よろしくお願いいたします。長くなってしまってすみません。
エクセルVBAでふりがなを自動入力する方法について
エクセルVBAでふりがなを自動入力する方法について漢字の名前を入力すると、(姓E7、名F7)、その1行下のセルにそれぞれ半角カナのふりがなを表記するために、関数を入力するのではなく、マクロを使用する方法をさがしています。changeイベントで漢字の名前を入力をすると自動的にふりがなが表示されるまではできたのですが、入力後のデータは隣のシートに転記されるマクロを別にくんでおり、入力シートにきちんとふりがな表示ができても転記が間違ったふりがなだったり、転記されなかったりで、うまくいきません。(転記はarrayで配列転記をしています)下に作ったプログラムをのせます。ちなみにphoneticだと転記されないgetphoneticだと転記がちがうsetphoneticだとエラー(サポートなし)となります。基本的な知識がないので、ネットで調べていろいろメソッドを入力して試行錯誤しながらやっています。すみませんが、アドバイスお願いします。Private Sub Worksheet_Change(ByVal Target As Range)'姓名にふりがなをつける '姓セルの時動作させる If Target.Address = "$E$7" Then Cells(8, 5).Value = StrConv(Application.Phonetic(Cells(7, 5)), vbNarrow) End If '名セルの時動作させる If Target.Address = "$F$7" Then Cells(8, 6).Value = StrConv(Application.Phonetic(Cells(7, 6)), vbNarrow) End If
エクセルで漢字にふりがなを振りたいのですが・・・・・・PHONETIC関数を使用して....
エクセルで漢字にふりがなを振りたいのですが・・・・・・PHONETIC関数を使用しても表示されません。読み情報がないデータなのかもしれません・・・どうにかなるものでしょうか?