No.2
- 回答日時:
ふりがなは、シートの設定でPhoneticの表示種類を変えられますが、以下のユーザー定義関数はどのような設定がされていても指定した文字種類で表示します。
=Furigana(A1,3)のようにして使います。(Excel2000です)
参考に、文字をひらがなにするユーザー定義関数も書いておきます。ご参考に。
標準モジュールに貼り付けます。
フリガナを指定の文字種にする。
1:半角カタカナ、2:全角カタカナ、3:全角ひらがな
Public Function Furigana(moji As Range, kata)
Dim dmy As String
dmy = WorksheetFunction.Phonetic(moji)
Select Case kata
Case 1: dmy = StrConv(dmy, vbNarrow + vbKatakana) '半角カタカナ
Case 2: dmy = StrConv(dmy, vbKatakana + vbWide) '全角カタカナ
Case 3: dmy = StrConv(dmy, vbHiragana + vbWide) '全角ひらがな
End Select
Furigana = dmy
End Function
文字を指定の文字種にする
1:半角カタカナ、2:全角カタカナ、3:全角ひらがな
Public Function Henkan(moji As String, kata)
Select Case kata
Case 1: moji = StrConv(moji, vbNarrow + vbKatakana) '半角カタカナ
Case 2: moji = StrConv(moji, vbKatakana + vbWide) '全角カタカナ
Case 3: moji = StrConv(moji, vbHiragana + vbWide) '全角ひらがな
End Select
Henkan = moji
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/03/04 09:54
- Excel(エクセル) エクセルで日付が入っているセルを一定の法則に従って違うセルに表示したい 2 2022/04/04 17:16
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセルの数式について教えてください。 7 2023/06/18 10:16
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/10/25 09:26
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
長音「ー」とマイナス「-」の...
-
エクセルシート中の全角英数字...
-
エクセル2016 条件付き書式で全...
-
「ー」←これは伸ばし棒ですか?...
-
アクセスのLENBとエクセルのLEN...
-
ハイフン(-)が長音(ー)
-
UTF-8 と SHIFT-JIS について
-
更新クエリで半角カタカナのみ...
-
特定のセルが空白だったら、そ...
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
VBAでActiveDirectoryのユーザ...
-
【Excel】指定したセルの名前で...
-
テキストボックスのvalueとtext...
-
Accessのクエリで、replace関数...
-
表にフィルターをかけ、絞った...
-
i=cells(Rows.Count, 1)とi=cel...
-
ExcelのINDEXとMATCH関数でスピ...
-
ListView 項目の選択/選択解除...
-
特定の文字を条件に行挿入とそ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
長音「ー」とマイナス「-」の...
-
ハイフン(-)が長音(ー)
-
「ー」←これは伸ばし棒ですか?...
-
更新クエリで半角カタカナのみ...
-
エクセルシート中の全角英数字...
-
UTF-8 と SHIFT-JIS について
-
エクセル2016 条件付き書式で全...
-
特定の列の値を、ひらがな・漢...
-
Outlookの連絡先のフリガナを半...
-
アクセス2000:クエリの関数で...
-
Excelで文字の長さを揃えるには
-
Wordの日本語全角文字・半角カ...
-
掲示板に書き込む文字の半角/全...
-
グローバルなCD-TEXT?
-
オリジナルCD の CD TEXT作成...
-
全角文字を PDFで変換できませ...
-
VBA エクセル 全角 半角
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
VBAでActiveDirectoryのユーザ...
おすすめ情報