１）アクティブセルに漢字を含む文字が書いてある。
２）そのセルの文字列にふりがなを打つ（[Alt]+[O],[T],[E]で得られる動作に等しい）
３）その下のセルに同様の動作。
４）終了条件＝空白セル発見。
というのも、今5000行のふりがなのあるファイル名とふりがなの無いファイル名を管理しているのですが、オートフィルタで"昇順で並び替え"ても、ふりがなのあるファイルと無いファイルが別々に分かれて困っているからです。
最初マクロの記録機能でやろうと思いましたが、
ActiveCell.FormulaR1C1 = "マクロの録音"
ActiveCell.Characters(1, 11).PhoneticCharacters = "マクロノロクオン"
Range("D5175").Select
のように、私の貧弱なプログラムの技術ではうまく表現できませんでした。
No.1
505
61
100pt
こちらでいかがでしょうか？
183
178
Option Explicit
Sub PhoneticSet()
Do Until ActiveCell.Value = ""
ActiveCell.SetPhonetic
ActiveCell.Phonetics.Visible = True
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
参考
No.1
50561
ここでベストアンサー
100pt
こちらでいかがでしょうか？
Option Explicit
Sub PhoneticSet()
Do Until ActiveCell.Value = ""
ActiveCell.SetPhonetic
ActiveCell.Phonetics.Visible = True
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
参考
ありがとうございます。
No.2
33555
27pt
以下のコードでどうでしょうか？
一応どのようなふり仮名が振られてるか確認できるように、ふり仮名も表示するようにしてあります。もし、それはいらないのであれば、(2)のところを
Cells(i,j).Phonetic.Visible = False
としてください。
また、ファイル名のある列がA列として、書いてあります。もしB列なら、(1)を
j = 2
とC列なら
j = 3
としてください。
Public Sub setPhenotic()
Dim i As Long
Dim j As Long
i = 1
j = 1 '(1)
Do Until Cells(i, j).Value = ""
Cells(i, j).SetPhonetic
Cells(i, j).Phonetic.Visible = True '(2)
i = i + 1
Loop
End Sub
ありがとうございます。
llusall
2007/06/05 00:45:44
1
1
1
1
1
ありがとうございます。