ユーザフォームのリストボックス

質問

お世話になります。

ユーザフォームのリストボックス内の下記2個のどちらかを選択し
Private Sub UserForm_Initialize()
ListBox1.AddItem ("印刷プレビュー")
ListBox1.AddItem ("印刷")
End Sub

CommandButton1をクリックして
Worksheets("Sheet1").PrintOut
か
Worksheets("Sheet1").PrintPreview
を実行したいのですが

どうやってリストボックスとコマンドボタンを
連動できるようにすればいいのでしょうか
コマンドボタンのみだったら出来るのですが、
リストボックスを使うとうまくいきません。

ご教授よろしくお願いいたします。

回答No.1

kabilunlun · ベストアンサー

ListBox1.SelectedIndex（ListBox1の選択されたリストのインデックス）を判断すればよいのでは。
0なら「印刷プレビュー」、1なら「印刷」といった感じに。
何も選択されていないときは-1を返すのでエラー処理も必要かと。

お礼

お早いご返信ありがとうございます。
何も選択されてないときは-１になるなんて知りませんでした。
参考になりました。

回答No.2

KenKen_SP

こんにちは。一例です。

Private Sub CommandButton1_Click()
　　Select Case Me.ListBox1.Value
　　　　Case "印刷プレビュー"
　　　　　　Worksheets("Sheet1").PrintPreview
　　　　Case "印刷"
　　　　　　Worksheets("Sheet1").PrintOut
　　　　Case Else
　　　　　　' 何もしない
　　End Select
End Sub

お礼

返信ありがとうございます。
具体例まであげていただきまして助かりました。