Excel VBA質問箱 IV

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

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


35528 / 76732 ←次へ | 前へ→

【46402】Re:任意のセルに入力したひらがなをカタカナに変える方法を教えてください
発言  ichinose  - 07/2/1(木) 21:54 -

引用なし
パスワード
   ▼みどりかなぶん さん:
こんばんは。

>A1からA5までのセルにひらがな、たとえばA1に「あ」、A2に「い」というように入れ、確定と同時にカタカナに変えたいのですがうまく入りません。
>   [a1]=strconv([a1],vbkatakana)
>   [a2]=strconv([a2],vbkatakana)
>         ・
>         ・
>         ・ 
>         ・
>というように入れれば入るのですが、入れたいセルが多いので簡略化したいと思い、
>   dim myrg as variant
>   dim mycl as variant
>
>   myrg=array([a1],[a2],[a3])
>
>   for each mycl in myrg
     mycl.Value=strconv(mycl.value,vbkatakana)
>   next

とすれば良いですよ!!プロパティは付けるようにしてください。

それと私もここの投稿の簡単なサンプルでは[A1]この表記使いますが、
実務で使うことはまずありません。
応用がきかないから・・・。

Sub test2()
   Dim mycl As Range
   For Each mycl In Range("a1:a3")
    mycl.Value = StrConv(mycl.Value, vbKatakana)
   Next
End Sub

こういう記述のほうが一般的ですし、応用も利きますよ!!
1 hits

【46399】任意のセルに入力したひらがなをカタカナに変える方法を教えてください みどりかなぶん 07/2/1(木) 21:34 質問
【46402】Re:任意のセルに入力したひらがなをカタカナ... ichinose 07/2/1(木) 21:54 発言
【46403】Re:任意のセルに入力したひらがなをカタカナ... Kein 07/2/1(木) 22:17 回答

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