- ベストアンサー
エクセルのふりがなの関数について
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
次のマクロを実行すると振り仮名が設定されます。 10~12行目を実情に合わせて設定してください。 Sub rubi_uchi() 'ルビ打ち、非表示 Dim retsu As String Dim cel_ichi As String Dim rec As Long Dim kana As Variant Dim strPhoText As Variant Dim start_rec As Long Dim end_rec As Long retsu = "A" ' 列を指定 start_rec = 1 ' 開始行を指定 end_rec = 1000 ' 終了行を指定 For rec = start_rec To end_rec cel_ichi = retsu & CStr(rec) Range(cel_ichi).Select strPhoText = ActiveCell kana = Application.GetPhonetic(strPhoText) ActiveCell.Characters.PhoneticCharacters = kana If Not IsEmpty(strPhoText) Then ActiveCell.Phonetics(1).CharacterType = xlHiragana 'ActiveCell.Phonetics(1).CharacterType = xlKatakana Selection.Phonetics.Visible = False End If Next rec End Sub
その他の回答 (4)
> ただ、一つ一つのデータにこの作業を繰り返さなければならないのですか? > 一度に処理する方法はありますでしょうか? その答えはすでに書いてあります。 > すいません・・・初心者過ぎて恥ずかしいのですが、、、 > 具体的にどうすればいいのか下記を見てもわかりませんでした・・・ > 例えば何を開いて何を設定するとか・・・ 具体的な使用方法ですが、No.3のプログラムコードをマクロから呼び出して ください。 手順は、以下の通りです。 (1)対象となるExcelブックを立ち上げる。 (2)[ツール] メニュー - [マクロ] - [Visual Basic Editor] を実行。 (3)VBエディタの [挿入] メニュー - [標準モジュール] を実行。 (4)上記のプログラムコードをコピー & ペーストする。 (5)ワークシートのメニューより、[ツール] - [マクロ] - [新しいマクロ の記録] を選択。 (6)マクロ名を入力し、[OK]ボタンをクリック。 (7)[ツール] - [マクロ] - [記録終了] を選択。 (8)[ツール] - [マクロ] - [Visual Basic Editor] を選択。 (9)作成された新規のマクロへ下記のように記述すれば完成です。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2003/02/09 ユーザー名 : nanashinogombei ' Call GetKanaSimple("Sample", 1, 2, 2, 30) ' End Sub 「Sampleの1列目(A列)2行 - 30行に入力されている漢字をカタカナに変換して、 2列目(B列)に出力する」処理となります。
> ご回答ありがとうございます。 > エクセルのマクロ等、まったく初心者なので、GetPhoneticメソッドの > 使い方(設定?)を教えてください。 > ワークシート関数のPHONETIC を使っても、漢字のままでてきてしまいます。 例えば、A1のフリガナが欲しい場合は、まず、A1のセルを選択して、 メニューの[書式] - [ふりがな] - [編集]を選択して<Enter>キーを 叩いてください。その後、カナを表示したいセルに、 =PHONETIC(A1) のように関数式を記述すればOKです。 GetPhoneticメソッドは、一例ですが、下記のように使います。 Option Explicit Public Function GetKanaSimple(ByRef strWorkSheetName As String, _ ByVal InColmn As Long, _ ByVal OutColmn As Long, _ Optional ByVal StartRow As Long = 1, _ Optional ByVal EndRow As Long = -1) '************************************************************************************* ' '機 能 : 指定範囲のセルに格納された漢字をカタカナに変換し、別の列に出力する。 ' '引 数 : strWorkSheetName 処理対象ワークシート名(通常はActiveSheet.Nameで可) ' InColmn 入力列番号 ' OutColmn 出力列番号 ' StartRow 開始行(省略可) 規定値は1 ' EndRow 終了行(省略可) 規定値は有効セルの最終行 ' '戻 り 値 : 変換後の文字列。 ' '************************************************************************************* Dim i As Long '処理対象範囲の終了行が指定されていない場合は、入力済み範囲の最終行とみなす。 If EndRow = -1 Then EndRow = Worksheets(strWorkSheetName).UsedRange.Rows.Count End If With Worksheets(strWorkSheetName) '指定範囲の開始行から終了行まで順次処理する。 For i = StartRow To EndRow '変換されたカタカナを指定のセルに入力する。 .Cells(i, OutColmn).Value = Application.GetPhonetic(.Cells(i, InColmn).Value) Next i End With End Function
Excel 2000以上なら、GetPhoneticメソッド、または、ワークシート関数のPHONETIC を使用すればできます。
補足
ご回答ありがとうございます。 エクセルのマクロ等、まったく初心者なので、GetPhoneticメソッドの 使い方(設定?)を教えてください。 ワークシート関数のPHONETIC を使っても、漢字のままでてきてしまいます。 あとこのエラーはいったい?「=#N/A」 よろしくお願いします。
- HAL007
- ベストアンサー率29% (1751/5869)
Excel2002でやりましたので他のバージョンで出来るかは不明です。 書式→ふりがな→編集でふりがなが表示されます。合っていればそのままです。 違って居れば変更して下さい。 次に、書式→ふりがな→表示/非表示 でふりがなが表示されます。
補足
ご回答ありがとうございます。 データの並べ替えに利用したいため、ふりがなだけを別のセルに表示させる 方法はありますか? また、大量のデータに一度にふりがなをつける事はできますか? よろしくお願いします。
関連するQ&A
- エクセルのふりがな関数について
既に入力してあるデータのふりがなを出したいのですが、phonetic関数を使ってももとある漢字のデータしか表示されません。”書式”の”ふりがな”の”編集”をクリックするとふりがなが表示されるようにはなるのですが、セル1つ1つに対してその操作をしないとふりがなの表示ができません。なんとか一括でふりがなの表示ができる方法はないでしょうか?ご教示ください。
- ベストアンサー
- オフィス系ソフト
- Excelのふりがなについてお尋ねします
ちょっとした疑問に答えてください。 あるEXCEL2002のサンプルデータをもらったのです。 そのデータのセルに入力されている文字列(漢字やカタカタの地名)にふりがなを出そうとして、「書式」「ふりがな」「表示/非表示」をクリックしましたら、ふりがなが出るセルもあれば出ないセルもありました。 これはどうしてでしょうか? 入力した文字がふりがなとなって出るのではないのでしょうか? 教えてください。
- ベストアンサー
- オフィス系ソフト
- Excelのふりがなを消したい
Excel内のテキストをHTML内にコピーしたいのですが、ただコピーすると「ふりがな」までコピーされてとても邪魔です。 ひとつひとつ付いているふりがなを消して行くのは大変手間です。 何か効率の良い方法はありませんか?
- 締切済み
- オフィス系ソフト
- エクセル,ふりがなの自動設定
エクセル2000で,ふりがな情報をもっていないセル(テキストデータをコピペしたので.)に自動的に標準的なふりがなを設定したいんです. [書式-ふりがな-編集]で,一つのセルの標準ふりがなが設定できるのですが,セルが大量にあるため,マクロか何かを用いて,選択範囲内のセルすべてに標準読み仮名を設定したいんです. どうぞ,誰か教えてくださいm(_ _)m
- ベストアンサー
- オフィス系ソフト
- Excelでふりがな
俳句などをExcelで入力しています。 作品や、作者に入力時に自動でふりがながつくように入力しています。 作者名は下付けで入力になるのですが、名前の漢字よりふりがなが長い 場合(例えば「源重之=みなもとのしげゆき」)にふりがなが切れて しまいます。(上手に表現できませんが、ふりがなが「みなもとのし」 くらいであとは切れてしまいます) ふりがなのフォントを小さくすると入りますが、見えづらくなってしまいます。 ふりがなが漢字より上にはみだしてもいいので、他の名前と同じ フォントで全部表記できるようにする方法はありませんか?
- ベストアンサー
- オフィス系ソフト
- エクセル で ふりがなを つける
エクセルで 名前の上に振り仮名を つけたいのですが(20名くらい) 書式 ふりがな を選んで 設定しても ふりがなの つく人 付かない人 がでてきます なぜですか??? 特別難しなまえではありませんが つかない人がいます
- ベストアンサー
- オフィス系ソフト
- Excelで、ふりがなの振り方を設定する方法
Excelで悩んでいます。 文字列にふりがなをふりたいのですが、英数字の文字列にふりがなを ふると 元:「ABC」 → ふりがな:「ABC」 となり、英数字がそのままふりがなとなってしまいます。 元:「ABC」 → ふりがな:「エービーシー」 というふうに、英数字にもカタカナでふりがなをふりたいのですが、 これには「ふりがなの編集」で自分でふりがなを編集するしか方法は ないのでしょうか? 膨大な量のデータを処理したいので、一つ一つのふりがなを編集する には時間がかかってしまいます。 一括でできるような方法はないでしょうか? 最終的には、ふりがなでセルをソートできるようにしたいのですが。。 皆さんならどうしますか? 回答お願いいたします。
- 締切済み
- その他(業務ソフトウェア)
- PHONETIC関数でフリガナが表示されない
本の付録のエクセルデータの名簿に フリガナ表示をさせてみたくなり エクセルPHONETIC関数を使ってみたのですが フリガナが表示されません。 表示されたのはフルガナではなく、元の漢字で表示されました。 PHONETIC関数は?と思い 求めたセルをクリックするとPHONETIC関数が入っていましたが・・ もしやと思い 欄外に新たに氏名を入力して PHONETIC関数を求めるとフリガナ(PHONETIC関数)が表示がされます。 一度作成したデータなどを開いて フリガナ表示はできないのでしょうか? まるでロックがかかったみたいな感覚なのですが。
- ベストアンサー
- オフィス系ソフト
- EXCELでふりがなの編集について
EXCEL2003を使っています。 ふりがなの編集について質問させていただきます。 元々ふりがな情報を持たないデータに、VBAでふりがな表示させたのですが、編集が必要になりました。 編集に関しては1件ずつ手作業で行なわなくてはいけないでしょうか?または、ふりがな表示させる時に、読みをあらかじめ指定しておいて、ふりがな表示をさせることはできるのでしょうか? 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
補足
ありがとうございます。 >例えば、A1のフリガナが欲しい場合は、まず、A1のセルを選択して、 >メニューの[書式] - [ふりがな] - [編集]を選択して<Enter>キーを >叩いてください。その後、カナを表示したいセルに、 >=PHONETIC(A1) >のように関数式を記述すればOKです。 できました。 ただ、一つ一つのデータにこの作業を繰り返さなければならないのですか? 一度に処理する方法はありますでしょうか? >GetPhoneticメソッドは、一例ですが、下記のように使います。 すいません・・・初心者過ぎて恥ずかしいのですが、、、 具体的にどうすればいいのか下記を見てもわかりませんでした・・・ 例えば何を開いて何を設定するとか・・・ よろしくお願いします。