コマンドボタン選択でリストボックス内容変更

ユーザーフォーム内のあ～たコマンドボタンをクリックするたびにリストボックス内のリスト内容が変更する。
"あ"のコマンドボタンをクリックしたらsheetの氏名頭文字あ列の氏名がリストボックスに反映するようなコードがわかりません。どなたかご教授のほどよろしくお願いします。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2013/01/20 20:44

以下のような仕組みでいけると思います

Sub SetListBox(ss As String)
　　Dim r As Range, c As Range, n As Integer
　　' ListBoxを空にする
　　ListBox1.Clear
　　' 読み仮名の列を取得
　　Set r = Range("B1:B10")
　　' 各行ごとの処理を開始
　　For Each c In r
　　　　' あ い う え お などで始まるかどうかをチェック
　　　　For n = 1 To 5
　　　　　　If c.Text Like Mid(ss, n, 1) & "*" Then
　　　　　　　　' 条件に一致したものを ListBoxに追加
　　　　　　　　ListBox1.AddItem c.Offset(, -1).Value
　　　　　　End If
　　　　Next
　　Next
End Sub

Private Sub CommandButton1_Click()
　　SetListBox "あいうえお"
End Sub

Private Sub CommandButton2_Click()
　　SetListBox "かきくけこ"
End Sub

Private Sub CommandButton3_Click()
　　SetListBox "さしすせそ"
End Sub

Private Sub CommandButton4_Click()
　　SetListBox "たちつてと"
End Sub

といった具合です