Excel VBA質問箱 IV

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

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


61320 / 76732 ←次へ | 前へ→

【20033】Re:リストボックスで選択している数
質問  ととりん  - 04/11/25(木) 6:35 -

引用なし
パスワード
   ichinose 様

おはようございます。早々の解答ありがとうございました。

選択しているリストの数は無事確認できました。
しかし。。。 どうもしてもやりたいと思っていたことができません。

実は、複数選択しているシートを新しいブックにコピーしたいのですが、
上手くいきません。

当初、下記のコードを考えたのですが、どうしてもワークシート枚数分ループするため
最終のシートを選択したときには、シート名の後に[,]はつきませんが、それ以外は付いてしまい、
シートの選択が上手くいかないのです。

そこで、選択したシート枚数分のループを行うことを考え、選択しているシートの数の数え方を質問しましたが、
どうも、根本的に間違っているのか...
こんがらがってしまいました。

よろしければ、どうすれば、リストボックスで複数選択したシートを
新しいブックにコピーすることが出来るのか教えていただけませんでしょうか?
よろしくお願いいたします。


'コマンドボタンクリック時
Private Sub CommandButton1_Click()
 
  Dim theItem As String
  Dim i, t As Integer

   
  t = Worksheets.Count
  i = 0
  
  Do
    If i <= t - 1 Then
     
      If ListBox1.Selected(i) = True Then
       theItem = theItem & ListBox1.List(i) + ","
      End If
    ElseIf i = t - 1 Then
      If ListBox1.Selected(i) = True Then
        theItem = theItem & ListBox1.List(i)
      End If
    End If
    i = i + 1
  Loop Until i = t

  Sheets(theItem).Select
  Sheets(theItem).Copy
 
End Sub

1 hits

【20029】リストボックスで選択している数 ととりん 04/11/24(水) 21:41 質問
【20031】Re:リストボックスで選択している数 ichinose 04/11/24(水) 21:59 回答
【20033】Re:リストボックスで選択している数 ととりん 04/11/25(木) 6:35 質問
【20034】Re:リストボックスで選択している数 ichinose 04/11/25(木) 7:53 発言
【20045】Re:リストボックスで選択している数 ととりん 04/11/25(木) 18:39 お礼

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