Excel VBA質問箱 IV

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

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


41298 / 76736 ←次へ | 前へ→

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

引用なし
パスワード
   いつもお世話になっております。

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

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


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

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

A3セルは

モジ ハイチ シケン
文字配置の試験です。

となり、A4セルは

モジハイチノシケンデス。
文字配置の試験です。

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

ちなみに、A5は、A3と同じものが表示されます。

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

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

【40519】ふりがなの表示について hito 06/7/15(土) 17:41 質問
【40523】Re:ふりがなの表示について awu 06/7/15(土) 19:11 回答
【40540】Re:ふりがなの表示について hito 06/7/16(日) 6:39 発言
【40541】Re:ふりがなの表示について ichinose 06/7/16(日) 7:22 発言
【40543】Re:ふりがなの表示について hito 06/7/16(日) 8:30 発言
【40545】Re:ふりがなの表示について ichinose 06/7/16(日) 9:10 発言
【40546】Re:ふりがなの表示について hito 06/7/16(日) 9:22 お礼

41298 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free