エクセルVBA、チェックボックス付きのListBoxのInputBox？を作ってみた

Private myWords() As String

'ボタン押した時
Private Sub CommandButton1_Click()
    Call GetWords
    Me.Hide 'ユーザーフォームを非表示にする
End Sub

Private Sub UserForm_Initialize()
    'ListBoxの初期化
    With Me.ListBox1
        .AddItem "ささやき"
        .AddItem "えいしょう"
        .AddItem "いのり"
        .AddItem "ねんじろ！"
        .ListStyle = fmListStyleOption      'チェックボックスにする
        .MultiSelect = fmMultiSelectMulti   '複数選択可にする
    End With
End Sub

'チェックされたリストを配列に入れる
Private Sub GetWords()
    Dim i As Long, j As Long
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            ReDim Preserve myWords(j)
            myWords(j) = Me.ListBox1.List(i)
            j = j + 1
        End If
    Next
End Sub

'標準モジュールから呼び出す関数
'ListBoxでチェックされた項目名群を返す
Public Function doModal() As String()
    Me.Show
    doModal = myWords
End Function

Sub GetMyWords()
    Dim Ash() As String
    Ash = UserForm1.doModal
    Unload UserForm1 'ユーザーフォームはここで閉じる
End Sub

午後ツールその53、ウィンドウの整列、異なるブック(ウィンドウ)の整列 ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14655664.html