Excel VBA質問箱 IV

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

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


6249 / 13646 ツリー ←次へ | 前へ→

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

【46399】任意のセルに入力したひらがなをカタカナに...
質問  みどりかなぶん  - 07/2/1(木) 21:34 -

引用なし
パスワード
   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=strconv(mycl,vbkatakana)
   next


と考えましたがうまくいきません。どなたかご教示ください。よろしくお願い致します。

【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

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

【46403】Re:任意のセルに入力したひらがなをカタカ...
回答  Kein  - 07/2/1(木) 22:17 -

引用なし
パスワード
   >確定と同時にカタカナに
なら、イベントマクロにしないと出来ませんね。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range

  Application.EnableEvents = False
  On Error Resume Next
  For Each C In Target
   If Not IsNumeric(C.Value) Then
     C.Value = StrConv(C.Value, vbkatakana)
   End If
  Next
  Application.EnableEvents = True
End Sub

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