人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

お気持ちのみですが合計で150p差し上げます。次の簡単な動作をするエクセルのマクロを作って下さい。

1)アクティブセルに漢字を含む文字が書いてある。

2)そのセルの文字列にふりがなを打つ([Alt]+[O],[T],[E]で得られる動作に等しい)

3)その下のセルに同様の動作。

4)終了条件=空白セル発見。


というのも、今5000行のふりがなのあるファイル名とふりがなの無いファイル名を管理しているのですが、オートフィルタで"昇順で並び替え"ても、ふりがなのあるファイルと無いファイルが別々に分かれて困っているからです。

最初マクロの記録機能でやろうと思いましたが、

ActiveCell.FormulaR1C1 = "マクロの録音"
ActiveCell.Characters(1, 11).PhoneticCharacters = "マクロノロクオン"
Range("D5175").Select

のように、私の貧弱なプログラムの技術ではうまく表現できませんでした。

●質問者: ReoReo7
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:SELECT いるか ふりがな アクティブ エクセル
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● llusall
●100ポイント ベストアンサー

こちらでいかがでしょうか?

Option Explicit

Sub PhoneticSet()

 Do Until ActiveCell.Value = ""
 ActiveCell.SetPhonetic
 ActiveCell.Phonetics.Visible = True
 ActiveCell.Offset(1, 0).Activate
 Loop

End Sub

参考

http://www.relief.jp/itnote/archives/001453.php

◎質問者からの返答

ありがとうございます。


2 ● freemann
●27ポイント

以下のコードでどうでしょうか?

一応どのようなふり仮名が振られてるか確認できるように、ふり仮名も表示するようにしてあります。もし、それはいらないのであれば、(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

◎質問者からの返答

ありがとうございます。


3 ● きゃづみぃ
●26ポイント

http://q.hatena.ne.jp/1172632091

以前の質問で回答したのを 参考にしてみてください。

◎質問者からの返答

いつもありがとうございます。きちんと検査すれば出てくるところを、見逃していたようです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ