Excel VBA質問箱 IV

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

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


7331 / 13646 ツリー ←次へ | 前へ→

【39774】シートの選択 イナさん 06/6/30(金) 21:49 質問[未読]
【39776】Re:シートの選択 ぱっせんじゃー 06/6/30(金) 21:54 発言[未読]
【39785】Re:シートの選択 イナさん 06/6/30(金) 22:33 お礼[未読]
【39777】Re:シートの選択 ひげくま 06/6/30(金) 21:56 回答[未読]

【39774】シートの選択
質問  イナさん  - 06/6/30(金) 21:49 -

引用なし
パスワード
   はじめまして。
シート数が変動するWORKBOOKで左から2番目のシートから一番右のシートまでを選択するVBAが解りません。Arrayで出来るのではとHELPで検索したのですが無理でしょうか?
ご指導宜しくお願いします。

【39776】Re:シートの選択
発言  ぱっせんじゃー  - 06/6/30(金) 21:54 -

引用なし
パスワード
   こんな感じでしょうか?

Sub test()
Dim i As Long
Dim wscnt As Long
Dim myarray() As Variant
 wscnt = Worksheets.Count
  For i = 2 To wscnt
  ReDim Preserve myarray(0 To i - 2)
  myarray(i - 2) = Worksheets(i).Name
  Next i
 Worksheets(myarray).Select
End Sub

【39777】Re:シートの選択
回答  ひげくま  - 06/6/30(金) 21:56 -

引用なし
パスワード
   ▼イナさん さん:
こんばんは。

>シート数が変動するWORKBOOKで左から2番目のシートから一番右のシートまでを選択するVBAが解りません。Arrayで出来るのではとHELPで検索したのですが無理でしょうか?
>ご指導宜しくお願いします。

左から2番目のシートは、
Worksheets(2)
一番右のシートは、
Worksheets(Worksheets.count)

これでどうでしょう?

【39785】Re:シートの選択
お礼  イナさん  - 06/6/30(金) 22:33 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
▼ひげくまさん:

ご指導ありがとうございます。
ReDim Preserve は初めて知りました。
HELPで調べたら”動的配列変数に対するメモリ領域の再割り当てる”だと書いてありました。勉強になりました。
本当にありがとうございます。

>こんな感じでしょうか?
>
>Sub test()
> Dim i As Long
> Dim wscnt As Long
> Dim myarray() As Variant
> wscnt = Worksheets.Count
>  For i = 2 To wscnt
>  ReDim Preserve myarray(0 To i - 2)
>  myarray(i - 2) = Worksheets(i).Name
>  Next i
> Worksheets(myarray).Select
>End Sub

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