Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
36702 / 76738 ←次へ　｜　前へ→
【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

などとするとか・・。単に配列に入れてループしただけですが。
0 hits
▼ 【22747】ふりがな挿入の件 hisao 05/3/2(水) 9:10 質問
【22749】Re:ふりがな挿入の件 G-Luck 05/3/2(水) 9:49 回答
【22754】Re:ふりがな挿入の件 hisao 05/3/2(水) 12:55 お礼
【22755】Re:ふりがな挿入の件 G-Luck 05/3/2(水) 14:13 回答
【22765】Re:ふりがな挿入の件 hisao 05/3/2(水) 15:58 お礼
【22766】Re:ふりがな挿入の件 G-Luck 05/3/2(水) 16:12 発言
【45204】Re:ふりがな挿入の件 キンタロウ 06/12/15(金) 11:58 質問
【45214】Re:ふりがな挿入の件 Kein 06/12/15(金) 17:12 回答≪
【45290】Re:ふりがな挿入の件 キンタロウ 06/12/18(月) 11:27 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
36702 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free