Excel VBA質問箱 IV

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

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


35391 / 76738 ←次へ | 前へ→

【46547】ありがとうございました。たすかりました。
お礼  マップー  - 07/2/6(火) 14:16 -

引用なし
パスワード
   ▼ichinose さん 、ご親切にありがとうございました。

下記のコードでうまくできました。

お世話になりました。

一安心しました。


>
>'===============================================================
>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
0 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 お礼

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