Excel VBA質問箱 IV

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

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


61308 / 76732 ←次へ | 前へ→

【20045】Re:リストボックスで選択している数
お礼  ととりん  - 04/11/25(木) 18:39 -

引用なし
パスワード
   ichinose さま

ありがとうございました!!

思うとおりの動作が確認できました。
私が、1日半悩んでいたことだったので、とてもすっきり致しました。
ありがとうございました。

それにしても...
本当にすぐに解答をよせてくださる、ichinoseさんに感謝です。
ありがとうございました。


>↑これだとリストボックスの最後のメンバを選択しない限り、1の処理はおこないませんよ。
>又、Sheets()内は、シート名のカンマ区切りの文字列で選択できましたっけ?
>(マクロの記録を使って確認して下さい)


実はまだ、確認段階だったのです。

>  Sheets(theItem).Select
>  Sheets(theItem).Copy

のコードの前で、メッセージボックスにtheItemの内容を表示させて
確認していた段階でした。
そこで、悶々と悩んでいたのです。

ほんとうにすっきりと致しました。
ありがとうございました。
私も、もっともっと勉強します。


>
>以下のようにして確認して下さい。
>'=========================================================
>Private Sub CommandButton1_Click()
>  Dim theItem() As String
>  Dim i As Integer
>  Dim sdx As Long
>  sdx = 0 '選択してメンバ数
>  With ListBox1
>   For i = 0 To .ListCount - 1
>    If .Selected(i) = True Then
>      ReDim Preserve theItem(sdx)
>      theItem(sdx) = .List(i)
>      sdx = sdx + 1
>      End If
>    Next i
>   End With
>  If sdx > 0 Then
>    With ThisWorkbook
>     'コピーが目的ならSelectの必要はありませんよ
>     .Sheets(theItem()).Copy
>     End With
>    End If
>  Erase theItem()
>End Sub

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

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