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