|
▼kiku さん:
こんにちは。
>はじめまして。
>VBAはまったくの初心者に近いものです。
>ある列に2000行くらいの文字列がありそれにふりがなを振りたいのですが、
>一度に処理できる方法はありませんか?
>現在一つ一つセルを選択して右クリックしてふりがなの編集で表示させて隣の列に
>phoneticの関数でふりがなを表示させていますが、時間がかかり過ぎてしまいます。
>文字列には入力情報は入っていません。
>何か良い方法がありましたら教えてください。
>宜しくお願い致します。
ふりがなを設定したいセル範囲を選択した状態で実行して下さい
隣の列にphonetic関数を設定しておきました。
但し、人名・地名などの読みが違う場合もありますよ。
その場合は、修正しなければなりませんが・・・。
2500行で試しましたが、数秒でした。
'==========================================================
Sub フリガナ設定()
With Selection
.SetPhonetic
.Offset(0, 1).Formula = "=phonetic(rc[-1])"
End With
End Sub
|
|