Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13539 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4718】ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ変換するプログラム記述方法 ookurayama 03/4/3(木) 16:11 質問
【4754】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ... JuJu 03/4/4(金) 12:35 回答
【4939】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ... ookurayama 03/4/14(月) 20:02 お礼
【4947】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ... こうちゃん 03/4/15(火) 8:54 回答
【4948】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ... ichinose 03/4/15(火) 9:05 発言
【4949】追伸 ichinose 03/4/15(火) 9:14 発言
【4950】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ... ookurayama 03/4/15(火) 9:31 お礼
【4954】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ... こうちゃん 03/4/15(火) 11:51 発言
【4718】ACCESS又はEXCEL VBAで漢字から半角ｶﾅへ変...
質問  ookurayama  - 03/4/3(木) 16:11 -
引用なし
パスワード
   表記のとおり、お分かりの方お教えくださいますでしょうか。
お手数ですが、宜しくお願い致します。
【4754】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅ...
回答  JuJu E-MAIL  - 03/4/4(金) 12:35 -
引用なし
パスワード
   ookurayamaさん、こんにちはぁ

>表記のとおり、お分かりの方お教えくださいますでしょうか。

Excelでしたら、Application.GetPhoneticメソッドを使います。

例）　MsgBox Application.GetPhonetic("漢字")

このままだと結果は全角カタカナになるので、半角が良い場合は StrConv関数で変換してね。

ではではぁ
【4939】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅ...
お礼  ookurayama  - 03/4/14(月) 20:02 -
引用なし
パスワード
   ▼JuJu さん：
>ookurayamaさん、こんにちはぁ
>
>>表記のとおり、お分かりの方お教えくださいますでしょうか。
>
>Excelでしたら、Application.GetPhoneticメソッドを使います。
>
>例）　MsgBox Application.GetPhonetic("漢字")
>
>このままだと結果は全角カタカナになるので、半角が良い場合は StrConv関数で変換してね。
>
>ではではぁ

JuJuさん
お礼が大変遅くなりまして申し訳ございません。
お忙しいところ有難うございました。
度々すみませんが以前、StrConvを使って記述しましたが
動作せず、諦めてしまいました。
お手数ですが、より具体的に記述して頂ければ幸いです。
宜しくお願い致します。
【4947】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅ...
回答  こうちゃん E-MAIL  - 03/4/15(火) 8:54 -
引用なし
パスワード
   ookurayamaさん、JuJuさん、こんにちは

>度々すみませんが以前、StrConvを使って記述しましたが
>動作せず、諦めてしまいました。

strConvじゃ無理くさいです^^;

エクセルのワークシート関数使ってみてください。

MsgBox Application.WorksheetFunction.Asc("アイウ")

＃VBAのASC関数とはだいぶ違うので気をつけてくださいね。

ではではぁ （JuJuさん風にぃ・・）
【4948】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅ...
発言  ichinose  - 03/4/15(火) 9:05 -
引用なし
パスワード
   こうちゃん、ookurayamaさん、JuJuさん、おはようございます。
横レス、失礼します。

>
>エクセルのワークシート関数使ってみてください。
>
>MsgBox Application.WorksheetFunction.Asc("アイウ")
>
>＃VBAのASC関数とはだいぶ違うので気をつけてくださいね。
>
>ではではぁ （JuJuさん風にぃ・・）
これでは、駄目なんですか？一応､半角カナになっています。

　　With Application
　　　MsgBox StrConv(.GetPhonetic("漢字"), vbNarrow)
　　　End With
>strConvじゃ無理くさいです^^;

こうちゃんが言うんだから何かあるのかと思いまして・・・。
それと上記コードを記述したそこそこのステップ数のマクロがあるんですが、
この動作自体は問題なく表示されていますが、Excel終了後、異常終了するもので
何か関係があるのかと思い、便乗しました。
【4949】追伸
発言  ichinose  - 03/4/15(火) 9:14 -
引用なし
パスワード
   >こうちゃん、ookurayamaさん、JuJuさん、おはようございます。
>横レス、失礼します。
>
>>
>>エクセルのワークシート関数使ってみてください。
>>
>>MsgBox Application.WorksheetFunction.Asc("アイウ")
>>
>>＃VBAのASC関数とはだいぶ違うので気をつけてくださいね。
>>
>>ではではぁ （JuJuさん風にぃ・・）
>これでは、駄目なんですか？一応､半角カナになっています。
>
>　　With Application
>　　　MsgBox StrConv(.GetPhonetic("漢字"), vbNarrow)
>　　　End With
>>strConvじゃ無理くさいです^^;
>
>こうちゃんが言うんだから何かあるのかと思いまして・・・。
>それと上記コードを記述したそこそこのステップ数のマクロがあるんですが、
>この動作自体は問題なく表示されていますが、Excel終了後、異常終了するもので
>何か関係があるのかと思い、便乗しました。
Ascで試してみましたが、同様にExcel終了後、異常終了は直りませんでした。
この投稿とは関係無いようです。すみませんでした。
【4950】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅ...
お礼  ookurayama  - 03/4/15(火) 9:31 -
引用なし
パスワード
   ▼ichinose さん：
>こうちゃん、ookurayamaさん、JuJuさん、おはようございます。
>横レス、失礼します。
>
>>
>>エクセルのワークシート関数使ってみてください。
>>
>>MsgBox Application.WorksheetFunction.Asc("アイウ")
>>
>>＃VBAのASC関数とはだいぶ違うので気をつけてくださいね。
>>
>>ではではぁ （JuJuさん風にぃ・・）
>これでは、駄目なんですか？一応､半角カナになっています。
>
>　　With Application
>　　　MsgBox StrConv(.GetPhonetic("漢字"), vbNarrow)
>　　　End With
>>strConvじゃ無理くさいです^^;
>
>こうちゃんが言うんだから何かあるのかと思いまして・・・。
>それと上記コードを記述したそこそこのステップ数のマクロがあるんですが、
>この動作自体は問題なく表示されていますが、Excel終了後、異常終了するもので
>何か関係があるのかと思い、便乗しました。

皆さん、お忙しい中本当に有難うございました。
心より感謝致しております。
上記でマクロ実行しました結果、うまくできました。
今後共、宜しくお願い致します。　ookurayama
【4954】Re:ACCESS又はEXCEL VBAで漢字から半角ｶﾅ...
発言  こうちゃん E-MAIL  - 03/4/15(火) 11:51 -
引用なし
パスワード
   ichinoseさん、こんにちは

>これでは、駄目なんですか？一応､半角カナになっています。
>
>　　With Application
>　　　MsgBox StrConv(.GetPhonetic("漢字"), vbNarrow)
>　　　End With

>こうちゃんが言うんだから何かあるのかと思いまして・・・。
ごめんなさい。何もありません^^;
よく確認しませんでした。
昔、StrConvでうまく変換できないことがあったような記憶があって、そのときワークシート関数で逃げたのですが、その時の記憶だけでレスしちゃいました。
（ちなみにそのときはアクセスからエクセルのワークシート関数呼び出してたような記憶が・・）
反省しております。みなさんご迷惑おかけしました。

>それと上記コードを記述したそこそこのステップ数のマクロがあるんですが、
>この動作自体は問題なく表示されていますが、Excel終了後、異常終了するもので
>何か関係があるのかと思い、便乗しました。
こっちが気になりますね？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13539 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free