過去ログ

                                Page     845
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼ふりがなをユーザーフォーム上で取得したい  KAZ 03/3/7(金) 11:02
   ┗Re:ふりがなをユーザーフォーム上で取得したい  ichinose 03/3/7(金) 11:16
      ┗Re:ふりがなをユーザーフォーム上で取得したい  KAZ 03/3/7(金) 14:08

 ───────────────────────────────────────
 ■題名 : ふりがなをユーザーフォーム上で取得したい
 ■名前 : KAZ
 ■日付 : 03/3/7(金) 11:02
 -------------------------------------------------------------------------
   いつもお世話になります。

フォーム上にテキストボックスが二つあって、一つに何がしか文字を入力して漢字変換
した際に、もう一方のテキストボックスにはそのふりがなを表示することは出来ないで
しょうか?宜しくお願い致します。
 ───────────────────────────────────────  ■題名 : Re:ふりがなをユーザーフォーム上で取得したい  ■名前 : ichinose  ■日付 : 03/3/7(金) 11:16  -------------------------------------------------------------------------
   ▼KAZ さん:
こんにちは。
>いつもお世話になります。
>
>フォーム上にテキストボックスが二つあって、一つに何がしか文字を入力して漢字変換
>した際に、もう一方のテキストボックスにはそのふりがなを表示することは出来ないで
>しょうか?宜しくお願い致します。
私もちょっと前に同じような処理を考えたんですが、セルに入力させた時の
Phonetic関数のようにキーボードで打ったとおりフリガナというわけにはいかないんですよねえ。
'===============================================
Private Sub TextBox1_Change()
  TextBox2.Text = Application.GetPhonetic(TextBox1.Text)
End Sub

とすれば、Textbox2に一応フリガナは入りますが、
例えば私のHNでichinose(漢字のローマ字打ちで)と入力しても最初は
"イチセ"と出てしまいます。
よって、次の候補みたいなボタンを作らなければなりませんでした。

というような場合が出てきてしまいますが・・・。
 ───────────────────────────────────────  ■題名 : Re:ふりがなをユーザーフォーム上で取得したい  ■名前 : KAZ  ■日付 : 03/3/7(金) 14:08  -------------------------------------------------------------------------
   ichinoseさん、こんにちわ。
確か以前に色々とお世話になりました、有難うございました。

今回も早速のご回答有難うございます。
多分私の場合、お答え頂いた方法で十分使えると思います。
ちょうどカタカナのふりがながほしかったので、かえって
好都合です。有難うございました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 845