Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41294 / 76732

←次へ　｜　前へ→


	【40519】ふりがなの表示について

hito - 06/7/15(土) 17:41 -


	引用なし

	パスワード

いつもお世話になっております。

ふりがなについて、相談なのですが、
ふりがなを表示する設定をしたセルで文字の入力を行い、
別のセルに格納したいのですが、その後、呼び出して
表示すると、ふりがなの表示内容が変わってしまいます。

Ｃｏｐｙをすれば、同じものが表示されるのですが
ふりがなと漢字は別々に管理したいため
Ｃｏｐｙを使わずに、おこないたいです。

Sub test()

Dim furigana As String
Dim kanji As String

kanji = Range("A3").Value
Range("A4 ").Value = kanji

furigana = Range("A3").Phonetic.Text
Range("A4").Phonetic.Text = furigana

Range("A3").Copy Range("A5")

End Sub

Ａ３のセルに”文字配置の試験です。"と入力すると

Ａ３セルは

ﾓｼﾞﾊｲﾁ　ｼｹﾝ
文字配置の試験です。

となり、Ａ４セルは

ﾓｼﾞﾊｲﾁﾉｼｹﾝﾃﾞｽ｡
文字配置の試験です。

となり、入力時の画面表示と変わってしまいます。

ちなみに、Ａ５は、Ａ３と同じものが表示されます。

入力した時と、格納後に表示した時で、表示イメージが
変わってしまうのをなんとかしたいです。

よろしくお願いいたします。

0 hits

▼

【40519】ふりがなの表示について hito 06/7/15(土) 17:41

≪