Excel VBA質問箱 IV

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

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


35469 / 76732 ←次へ | 前へ→

【46462】Re:マシン性能が弱く、VBAに頼りたいのです。
発言  ichinose  - 07/2/3(土) 22:28 -

引用なし
パスワード
   こんばんは。
>
>Phonetic関数は、私もよく利用します。
>
>説明をしなくて大変申し訳ありませんでした。
>
>今回、VBAが必要になった理由は、Phonetic関数を列の全部に振ると、エクセルの動作が遅くなるような気がしているからなのです。
なるほど・・・。
では、このPhonetic関数をVBAコード内で使いましょうか!!

当該シートのシートモジュール(標準モジュールではないですよ)に

'===============================================================
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  Dim crng As Range
  Application.EnableEvents = False
  Set rng = Application.Intersect(Target, Range("E:E"))
  If Not rng Is Nothing Then
    For Each crng In rng
     With crng
       .Offset(0, -1).Value = _
        Evaluate("asc(phonetic(" & .Address & "))")
       End With
     Next
    End If
   
  Application.EnableEvents = True
End Sub

として、E列に「松下電器」と入力してください。

対応するD列に「マツシタデンキ」と表示されます。
D列には、関数ではなく実際の文字列が入っているはずです。

ためして見てください。
5 hits

【46420】別のセルにフリガナを振る方法 マップー 07/2/2(金) 13:48 質問
【46421】Re:別のセルにフリガナを振る方法 りん@とおりすがり 07/2/2(金) 14:06 発言
【46425】Re:別のセルにフリガナを振る方法 ichinose 07/2/2(金) 18:45 発言
【46458】マシン性能が弱く、VBAに頼りたいのです... マップー 07/2/3(土) 21:53 お礼
【46462】Re:マシン性能が弱く、VBAに頼りたいの... ichinose 07/2/3(土) 22:28 発言
【46547】ありがとうございました。たすかりました。 マップー 07/2/6(火) 14:16 お礼
【46457】初心者すぎてすみません。 マップー 07/2/3(土) 21:45 お礼

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