| 
    
     |  | ▼ichinose さん: >こうちゃん、ookurayamaさん、JuJuさん、おはようございます。
 >横レス、失礼します。
 >
 >>
 >>エクセルのワークシート関数使ってみてください。
 >>
 >>MsgBox Application.WorksheetFunction.Asc("アイウ")
 >>
 >>#VBAのASC関数とはだいぶ違うので気をつけてくださいね。
 >>
 >>ではではぁ (JuJuさん風にぃ・・)
 >これでは、駄目なんですか?一応、半角カナになっています。
 >
 >  With Application
 >   MsgBox StrConv(.GetPhonetic("漢字"), vbNarrow)
 >   End With
 >>strConvじゃ無理くさいです^^;
 >
 >こうちゃんが言うんだから何かあるのかと思いまして・・・。
 >それと上記コードを記述したそこそこのステップ数のマクロがあるんですが、
 >この動作自体は問題なく表示されていますが、Excel終了後、異常終了するもので
 >何か関係があるのかと思い、便乗しました。
 
 皆さん、お忙しい中本当に有難うございました。
 心より感謝致しております。
 上記でマクロ実行しました結果、うまくできました。
 今後共、宜しくお願い致します。 ookurayama
 
 |  |