|
▼みどりかなぶん さん:
こんばんは。
>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
こういう記述のほうが一般的ですし、応用も利きますよ!!
|
|