Excel VBA質問箱 IV

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

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


36696 / 76732 ←次へ | 前へ→

【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 質問
【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 お礼

36696 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free