ＶＢ リストボックス選択項目が取得できない。

エクセルのユーザフォームで日程表を作っています。
下記ListBox1で会議名称だけ表示させています（チェックボックス無し）。
Private Sub ListBox1_click()で選択さした項目を、ここではあらかじめ結合したＦ５、Ｆ６セルに入力させたいのですが、なにも入力されません。
また、ウォッチウインドゥで ｃとListIndexとListBox1.Valueを設定し、実行後に見るとListIndex　2、ListBox1.Value : "責任者会議"とそれなりに表示されますが、ｃはEmptyです。
なぜＦ５セルと、併せてウォッチウインドゥに変数ｃが設定されないのでしょうか。教えてください。
Excel 2007 VB6.5です。

'行事入力一覧
Private Sub UserForm_Initialize()
With ListBox1
.AddItem ""
.AddItem "サービス課会議"
.AddItem "責任者会議"
.AddItem "安全衛生委員会"
.AddItem "ＩＳＯ委員会"
　End With
End Sub
---------------------------------
Private Sub ListBox1_click()

MsgBox ("選択した行事名を「行事等」欄へコピーします。" _
& vbCrLf & vbCrLf & "コピーしたい日付の「行事等」欄をクリックしてください。")

Dim ListIndex As Long '選択番号
Dim c As Variant
ListIndex = ListBox1.ListIndex
With ActiveSheet
For i = 0 To -1
　　c = ListBox1.Value
Range("F5").Value = ListBox1.Value
’ Range("F5:F6").MergeCells.Value = ListBox1.Value
’ Cells(5, 6).Value = ListBox1.Value
Next i
　.Range("G5").Value = "-4A56" 'Test G5とG6の結合セルだが入力される。
End With
Stop
　　　　 ListBox1.Value = ""
　　　　　　Unload Me
End Sub

No.1 ベストアンサー 回答者： MAXIMAX 回答日時： 2011/09/20 03:48

その for 文は何の目的であるのでしょうか？？for 分の初期値より終値が小さいので、中は通っていませんよ。

その for 文を実現するなら、

for i=0 to -1 step -1

です。

No.2 回答者： KURUMITO 回答日時： 2011/09/20 07:02

表示された日付の行で「行事」の列に会議の種類を選択表示させるだけのことでしたらエクセルでは「データの入力規則」から「リスト」で設定することができます。

マクロを使った作業はかえって操作を難しくします。書かれたマクロではListBox1の値をF5セルに書くだけのことです。
Forなどを使って処理することは全く必要がありませんね。Forを使ったケースはリスト形式が2列になっている場合などにそれぞれを別のセルに表示させるような場合で、For i=0 To .ListCount -1 のように使われますが、ここではその必要も全くありません。For の中で使われている　i の意味がよく理解されていないままに使われています。c　の値が空白のままであるのもそのためです。

この回答へのお礼

ご指摘ありがとうございました。「データの入力規則」から「リスト」での設定を試みました。ただ、入力先が縦書きなので、選択項目の幅が狭すぎ、見た目が解りくく、この方法は断念しました。大変勉強になりました。

お礼日時：2011/09/21 23:27