Excel VBA質問箱 IV

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

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


17531 / 76732 ←次へ | 前へ→

【64654】リストBOXからSheetをコピーしたい(複数枚)
質問  とってぃ E-MAIL  - 10/3/2(火) 9:32 -

引用なし
パスワード
   はじめまして。VBAの初心者です。
色々模索して考えたのですが下記コードだとリストBOXから複数枚
選択でコピー(コマンドボタン)実行で同一Sheetがコピーされます。

Private Sub UserForm_Initialize()
For i = 1 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name 
Next
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer
Dim myName As String

With ListBox1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Worksheets(.List(.ListIndex)).Select
pasu = ActiveWorkbook.Path
ActiveSheet.Copy
myName = ActiveSheet.Name
End If
Next i
End With
End Sub

実行したいこと
1.リストBOXで全Sheetを表示する。
2.リストBOXからSheetを選択させる(複数可)
3.リストBOXで選択したSheetをコマンドボタンで新しいBookにコピーする。
以上です。

0 hits

【64654】リストBOXからSheetをコピーしたい(複数枚) とってぃ 10/3/2(火) 9:32 質問
【64655】Re:リストBOXからSheetをコピーしたい(複数... 超初心者 10/3/2(火) 9:59 発言
【64657】Re:リストBOXからSheetをコピーしたい(複数... とってぃ 10/3/2(火) 10:57 お礼
【64656】Re:リストBOXからSheetをコピーしたい(複数... Yuki 10/3/2(火) 10:29 発言
【64658】Re:リストBOXからSheetをコピーしたい(複数... とってぃ 10/3/2(火) 10:58 お礼

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