Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17537 / 76738

←次へ　｜　前へ→


	【64654】リストBOXからSheetをコピーしたい(複数枚)

とってぃ

- 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

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

0 hits

▼

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

≪