Ｐａｇｅ 565 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼シートのクリアを選択式にするには？ こう 03/1/17(金) 0:48 ┗＋シートのクリアを選択式にするには？ こう 03/1/17(金) 0:52 ┗Re:＋シートのクリアを選択式にするには？ ポンタ 03/1/17(金) 2:34 ┗Re:＋シートのクリアを選択式にするには？ こう 03/1/17(金) 19:13 ─────────────────────────────────────── ■題名 ： シートのクリアを選択式にするには？ ■名前 ： こう ■日付 ： 03/1/17(金) 0:48 -------------------------------------------------------------------------
| 現在Book中の各シートセル範囲を指定してすべてのシートをクリアするようにしてますが、 これをダイアログボックスを表示してクリアするシートを複数選択式にするには どのようにしたらいいのでしょうか？ よろしくお願いします。 |
| ダイアログボックスではなくリストボックスでした。 だから選択する対象シート表示も作成して、CTRLやSHITによって選択可能にする方法だけでも教えてください すみません。 |
| サンプルコードです。 UserForm上にListBox1とCommandButton1を 作り、フォームモジュールに以下のコードを貼り付けて お試しください。 ListBox1のMultiSelectプロパティをfmMultiSelectMultiにすると、 複数選択可能になります。 Private Sub CommandButton1_Click() Me.Hide Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Worksheets(ListBox1.List(i)).Activate MsgBox ("このシートは選択されました") End If Next End Sub Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Worksheets.Count Call ListBox1.AddItem(Worksheets(i).Name) Next End Sub |
| ▼ポンタ さん： >サンプルコードです。 ありがとうございます。m(_ _)m 早速試してみます。 助かります。。 > >UserForm上にListBox1とCommandButton1を >作り、フォームモジュールに以下のコードを貼り付けて >お試しください。 > >ListBox1のMultiSelectプロパティをfmMultiSelectMultiにすると、 >複数選択可能になります。 > > >Private Sub CommandButton1_Click() > Me.Hide > Dim i As Integer > For i = 0 To ListBox1.ListCount - 1 > If ListBox1.Selected(i) = True Then > Worksheets(ListBox1.List(i)).Activate > MsgBox ("このシートは選択されました") > End If > Next >End Sub > >Private Sub UserForm_Initialize() > Dim i As Integer > For i = 1 To Worksheets.Count > Call ListBox1.AddItem(Worksheets(i).Name) > Next >End Sub |