Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37725 / 76738 ←次へ | 前へ→

【44175】Re:チェックボックスでシートを選択し印刷する方法
回答  りん@昼休み  - 06/11/7(火) 12:56 -

引用なし
パスワード
   Ramo さん、おはようございます。

>各シート名のチェックボックスにチェックを入れたシートのみを
>プリントアウトしたいのですが、コマンドボタン(印刷)のVBAを
>どのように記入すればいいのか判りません。
日付入力とかは後で考えてもらうとして、
チェックリストで選択したシートを印刷します。

〔準備〕
ユーザーフォームにコマンドボタン(CommandButton1)とリストボックス(ListBox1)を適当に配置します。

フォームに以下のコードを記述
Private Sub CommandButton1_Click()
  Dim II As Integer, Imax As Integer, A As String
  '
  Imax = Me.ListBox1.ListCount - 1
  For II = 0 To Imax
   If Me.ListBox1.Selected(II) Then
     A = A & vbCrLf & Me.ListBox1.List(II)
   End If
  Next
  If A = "" Then
   MsgBox "未選択", vbExclamation, "終了します"
   'フォームを閉じる
   Me.Hide
  Else
   If MsgBox("以下のシートを印刷します" & A, vbInformation + vbOKCancel) = vbOK Then
     '印刷用にもう一度ループ
     For II = 0 To Imax
      If Me.ListBox1.Selected(II) Then
        Application.ActiveWorkbook. _
        Worksheets(Me.ListBox1.List(II)).PrintOut Copies:=1
      End If
     Next
     'フォームを閉じる
     Me.Hide
   End If
  End If
End Sub
'
Private Sub UserForm_Activate()
  Dim II As Integer
  'アクティブなブックが対象
  With Application.ActiveWorkbook
   ReDim Ldat(1 To .Worksheets.Count) As String
   For Each ws In .Worksheets
     II = II + 1
     Ldat(II) = ws.Name
   Next
  End With
  With Me.ListBox1
   .Clear '念のためクリア
   .ListStyle = fmListStyleOption 'オプションボタン又はチェックボックス
   .MultiSelect = fmMultiSelectMulti '複数選択可能
   'リストにデータ(シート名一覧)
   .List = Ldat()
  End With
  Erase Ldat
End Sub

実行してみてください。
0 hits

【44164】チェックボックスでシートを選択し印刷する方法 Ramo 06/11/7(火) 7:00 質問
【44165】Re:チェックボックスでシートを選択し印刷... ichinose 06/11/7(火) 7:59 発言
【44166】Re:チェックボックスでシートを選択し印刷... Ramo 06/11/7(火) 8:33 回答
【44175】Re:チェックボックスでシートを選択し印刷... りん@昼休み 06/11/7(火) 12:56 回答
【44176】Re:チェックボックスでシートを選択し印刷... Ramo 06/11/7(火) 13:35 回答
【44185】Re:チェックボックスでシートを選択し印刷... りん 06/11/7(火) 14:31 発言
【44187】Re:チェックボックスでシートを選択し印刷... Ramo 06/11/7(火) 15:34 質問
【44198】Re:チェックボックスでシートを選択し印刷... りん 06/11/8(水) 12:59 回答
【44204】Re:チェックボックスでシートを選択し印刷... Ramo 06/11/9(木) 10:18 お礼

37725 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free