Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36771 / 76807

←次へ　｜　前へ→


	【45214】Re:ふりがな挿入の件

Kein - 06/12/15(金) 17:12 -


	引用なし

	パスワード

Dim i As Long, rw As Long
Dim CAry As Variant, VAry As Variant

'変数 rw に値をセットしておく
CAry = Array(3, 4, 7, 10, 11, 12)
VAry = Array(TextBox1.Value, TextBox2.Value, _
ComboBox2.Value, TextBox4.Value, TextBox6.Value, _
ComboBox3.Value)
For i = 0 To 5
　 With Cells(rw, CAry(i))
　　　.Value = VAry(i)
　　　.Phonetic.Text = _
　　　Application.GetPhonetic(VAry(i))
　 End With
Next i

などとするとか・・。単に配列に入れてループしただけですが。

1 hits

▼

【22747】ふりがな挿入の件 hisao 05/3/2(水) 9:10