Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6256 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46372】Ｐｈｏｎｅｔｉｃｓについて かなり初心者 07/2/1(木) 8:49 質問[未読]
【46374】Re:Ｐｈｏｎｅｔｉｃｓについて りん 07/2/1(木) 9:16 回答[未読]
【46375】Re:Ｐｈｏｎｅｔｉｃｓについて かなり初心者 07/2/1(木) 9:26 お礼[未読]
【46372】Ｐｈｏｎｅｔｉｃｓについて
質問  かなり初心者  - 07/2/1(木) 8:49 -
引用なし
パスワード
   申し訳ございませんが、教えてください。
過去の質問箱から検索させていたのですが、肝心な所が
消されていましたので質問いたします。
User Formで入力した漢字を、セルの”Ａ２”に貼り付けし
Ａ２の漢字のﾌﾘｶﾞﾅを”Ａ１”に入れたいのですがうまくいきません
ので教えていただけないでしょうか？
以下の記述で試みたのですが、駄目でした
　　With Worksheets("漢字")
　　　　.Range("A1").Value = ""
　　　　.Range("A2") = Textbox漢字
　　　　.Range("A2").SetPhonetic
　　　　.Cells(1, 1).Value = .Range("A2").Phonetics(1)
　　End With
【46374】Re:Ｐｈｏｎｅｔｉｃｓについて
回答  りん E-MAIL  - 07/2/1(木) 9:16 -
引用なし
パスワード
   かなり初心者 さん、おはようございます。

>User Formで入力した漢字を、セルの”Ａ２”に貼り付けし
>Ａ２の漢字のﾌﾘｶﾞﾅを”Ａ１”に入れたいのですがうまくいきません
>ので教えていただけないでしょうか？
フリガナをセットして文字列を取得します。

　 With Thisworkbook.Worksheets("漢字")
　　　.Range("A2").Value = Textbox漢字.TEXT
　　　.Range("A2").SetPhonetic
　　　.Range("A1").Value = .Range("A2").Phonetic.Text
　 End With

こんな感じです。
フォームの部分は試していないので、そこでエラーになるなら別の原因ですので、また質問してください。
【46375】Re:Ｐｈｏｎｅｔｉｃｓについて
お礼  かなり初心者  - 07/2/1(木) 9:26 -
引用なし
パスワード
   りんさん早速の返信ありがとうございました。
教えていただいた記述で行なった所、うまくいきました。
大変、助かりました。ありがとうございました。

>かなり初心者 さん、おはようございます。
>
>>User Formで入力した漢字を、セルの”Ａ２”に貼り付けし
>>Ａ２の漢字のﾌﾘｶﾞﾅを”Ａ１”に入れたいのですがうまくいきません
>>ので教えていただけないでしょうか？
>フリガナをセットして文字列を取得します。
>
>　 With Thisworkbook.Worksheets("漢字")
>　　　.Range("A2").Value = Textbox漢字.TEXT
>　　　.Range("A2").SetPhonetic
>　　　.Range("A1").Value = .Range("A2").Phonetic.Text
>　 End With
>
>こんな感じです。
>フォームの部分は試していないので、そこでエラーになるなら別の原因ですので、また質問してください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6256 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free