Excel VBA質問箱 IV

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

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


13537 / 13644 ツリー ←次へ | 前へ→

【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終了後、異常終了するもので
>何か関係があるのかと思い、便乗しました。
こっちが気になりますね?

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