0

次のように月が入力されたリストボックスがあります。

Private Sub UserForm_Initialize()
    Dim i As Integer

    For i = 1 To 12
        ListBox1.AddItem MonthName(i)
    Next

End Sub

次に、選択した値を文字列として保存します。私が興味を持っているのは、計算に月名の代わりに i の同等の値を使用することです。

たとえば、ユーザーが 7 月 ( i = 7) を選択した場合、選択した文字列の前の月として定義された 2 番目の文字列を格納します。i - 1この場合は 6 月 ( i = 6) です。

月の文字列の名前ではなく、コードで i の値を参照するにはどうすればよいですか?

4

1 に答える 1

1

ListBoxのListIndexプロパティを使用します。

Debug.Print Listbox1.ListIndex + 1

インデックスが0から始まると、1ずつ増加します

前月は常に選択した月より1少ないと想定するように注意してください....ユーザーが「1月」を選択するとどうなりますか?

于 2012-09-20T12:23:34.623 に答える