Excel VBA質問箱 IV

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

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


17530 / 76732 ←次へ | 前へ→

【64655】Re:リストBOXからSheetをコピーしたい(複数枚)
発言  超初心者  - 10/3/2(火) 9:59 -

引用なし
パスワード
   ▼とってぃ さん:

> Private Sub CommandButton1_Click()
>   Dim i As Integer
>   Dim myName As String
>   Dim pasu As String
   Dim myBook As Workbook
>  
   Set myBook = ActiveWorkbook
>   With ListBox1
>     For i = 0 To ListBox1.ListCount - 1
>       If ListBox1.Selected(i) Then
         myBook.Activate
>> '       Worksheets(.List(.ListIndex)).Select
         Worksheets(.List(i)).Select
>         pasu = ActiveWorkbook.Path
>         ActiveSheet.Copy
>         myName = ActiveSheet.Name
>       End If
>     Next i
>   End With
> End Sub

こんな感じでいかがでしょう。

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 お礼

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