|
はじめまして。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にコピーする。
以上です。
|
|