Excel VBA質問箱 IV

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

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


37702 / 76738 ←次へ | 前へ→

【44198】Re:チェックボックスでシートを選択し印刷する方法
回答  りん E-MAIL  - 06/11/8(水) 12:59 -

引用なし
パスワード
   Ramo さん、こんにちわ。

>このリストボックスに入るシートを指定して出すことは出来るのでしょうか。
>Sheet1〜10まで表示されているシートをSheet1〜6までを表示
>出来ないでしょうか。
判定の条件がわからないので、チェックボックスリストに表示するシートをリストに持っておいて分岐しています。

Private Sub UserForm_Activate()
  Dim II As Integer, shtl As Variant, JJ As Integer
  'シートのリスト
  shtl = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")
  'アクティブなブックが対象
  With Application.ActiveWorkbook
   ReDim Ldat(1 To .Worksheets.Count) As String
   For Each ws In .Worksheets
     For JJ = LBound(shtl) To UBound(shtl)
      '一致した名前のシートのみリストに追加
      If ws.Name = shtl(JJ) Then
        II = II + 1: Ldat(II) = ws.Name
        Exit For
      End If
     Next
   Next
   '
   If II > 0 And II < .Worksheets.Count Then
     ReDim Preserve Ldat(1 To II) As String
   End If
  End With
  '
  With Me.ListBox1
   .Clear '念のためクリア
   .ListStyle = fmListStyleOption 'オプションボタン又はチェックボックス
   .MultiSelect = fmMultiSelectMulti '複数選択可能
   If II = 0 Then
     MsgBox "リストを確認", vbExclamation, "該当シートなし"
   Else
     'リストにデータ(シート名一覧)
     .List = Ldat()
   End If
  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 お礼

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