• ベストアンサー

Excel VBAでのシート全選択

Excel2003を使用しています。 シートの数:毎回違う シート名前:毎回違う このような状況で、ExcelのVBAを使用して シートを全て選択する方法はありますでしょうか? ご存知の方、ご教授願います。

質問者が選んだベストアンサー

  • ベストアンサー
  • vvooo
  • ベストアンサー率33% (3/9)
回答No.1

Worksheets.Select とか Sheets.Select でしょか。

triumph405
質問者

お礼

おわ・・・そんな簡単に・・・ 目から鱗。 灯台下暗し。 ありがとうございましたっ!

その他の回答 (1)

  • pamsd
  • ベストアンサー率18% (39/209)
回答No.2

Dim aa() ReDim aa(0) b = 0 For Each s In Sheets ReDim Preserve aa(b) aa(b) = s.Name b = b + 1 Next s Worksheets(aa).Select で、どう?

関連するQ&A

  • Excel VBAで選択したシートの表を一つのシートに転記する方法

    こんばんは。 Excel VBAで、 複数のシートを選択した状態で、 マクロを実行すると、最後のシートに、選択したシートの表が 転記され、1つのシートにまとまる便利なマクロが組めないでしょうか。 よく全てのシートを1つのシートにまとめるのは見るのですが、 選択した複数のシートの名前を書き出す方法がわかりません。 良い方法をご存知でしたら教えていただけないでしょか。 宜しくお願い致します。

  • VBAで全シートを一括選択したい

    VBAを勉強し始めたばかりの初心者です。 エクセルで非表示に切り替えられているシートを 一括で表示に切り替えできるマクロを作成しているのですが 「全シートの選択」方法がわかりません。 ひとつずつのシートなら 下記のマクロでうまくいくのですが・・・ 2行目の「("Sheet3")」を全シートに切り替えれば うまくいくかなって思っているのですけど 方法がわかりません。 よい方法をご存知の方、よろしくご教授願います。 Sub Macro1() Sheets("Sheet3").Visible = True Sheets("Sheet1").Select End Sub

  • エクセルシートでVBAについての質問です。

    VBA初心者です。 エクセルのシート上にコンボボックスを配置してリストを選択すると同じシート上のセルに選択されたリストが表示されるようにしたいのですが、よくわかりません。 コンボボックスのオブジェクト名は名前ボックスに表示される名前でいいのでしょうか? 詳しい方ご教授お願いします。

  • VBA シートの選択と追加

    ExcelのVBAで以下の処理をするにはどうすれば良いですか。 ①現在シートが7枚あります。 ②そのうち1枚目から5枚目を選択しています。 ③先頭(最後でも可)に1シート追加します。 ④最初に選択したシート(2枚目から6枚目)に戻って処理をします。 なお、選択するシート(この場合は1枚目から5枚目)は毎回変わります。

  • 複数画像から1つ選択し別シートへ貼り付ける

    EXCEL2010を使用しております。 1シートに複数枚ある画像の中から1枚を選び(クリックして)、それを別のシートへ貼り付ける (コピー)VBAができません。 1シート内にある全ての画像を選択の対象として、選択(クリック)された画像のみを張り付けたい のですが何方かお解りになる方はいませんか。 何分VBA初心者の為、ご教授願います。

  • VBAを埋め込んだエクセルのシートの複製

    VBAを埋め込んだエクセルのシートを複製したら、ボタン類が全て無くなってしまいまいした。 Excel2010です。Excel2003では、複製してもボタンは残ります。 何か設定があるのでしょうか?

  • Excel VBAで複数シートをコピーする

    Excel VBAで複数のシートを新たらしいブックにコピーする方法が分かりません。 一応、Selectで全てのシートを選択し コピーする方法は分かるのですが 出来ればSelectなどの画面遷移をプログラム内に含ませたくありません シートは n件存在します。 ご存知の方がおられましたら ぜひ、教えて頂けないでしょうか?

  • 閉じたエクセルファイルに特定シートの有無を調べるには?

    閉じたままの状態のエクセルファイルについて、 ある名前のシートがあるかどうかを調べることはできますか? VBA使用の有無は問いませんが、なるべくスマートな方法がベターです。 ご存知の方、是非ともご教授よろしくお願いいたします。

  • ExcelのVBAでシートのコピー

    Excel2000 Win2000 複数(最低5)のシートが存在するExcelのBookでExcelのVBAを使用して strSheetName="XXX1" intSheetNo = 1 Sheets(strSheetName).Copy after:=Sheets(intSheetNo) とシートのコピーをしています。 この時コピーされたシートのインデックスが2にならないんですが、何故なんでしょ? やりたい事はコピーしたシートの名前をExcelが勝手につけた名前から変更したいんです。 コピーされたシートのインデックスが2になると思っていたので上手く行きません。 Sheets(intSheetNo + 1).Name = "XXX1-1"

  • エクセルのVBAで、開いているブックのシート数を知りたいのですが。

    エクセル97で入力したシートをVBAプログラムで最後のシートの後ろにコピーするようにしています。何枚になるかはデータ量によりシート数が違ってきます。 処理が終了した後、コピーしたシートが何枚有るのかをVBAで把握する方法なり、コマンドなりを知りたいのですが。 ご存じの方教えて下さい。

専門家に質問してみよう