こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBAで条件に適合したシートを全て選択にするには

いつもお世話になります。
エクセルでシート数が100枚あり各シートのA1には0か1かの値が入っているとします。
その中で、A1の値が1のシートをすべて選択するにはどのようなマクロを組めばいいのでしょうか?

投稿日時 - 2004-09-14 20:24:19

QNo.1001879

すぐに回答ほしいです

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

多分こういう事でしょう。

Public Sub SelectSheets()
  Dim flag As Boolean: flag = True
  Dim ws As Worksheet

  For Each ws In Worksheets
    If ws.Range("A1").Value = 1 Then
      ws.Select flag
      flag = False
    End If
  Next
End Sub

投稿日時 - 2004-09-14 21:25:30

お礼

初心者なもので大変助かります。
ありがとうございました。
また機会がありましたらよろしくお願いいたします。

投稿日時 - 2004-09-14 22:09:01

ANo.3

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

Sub test01()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
If sh.Range("A1") = 1 Then
MsgBox sh.Name
End If
Next
End Sub
>「をすべて選択する」が何を意味するか(その後何をするのか)判りませんので、上記コードをご参考にして発展させてください。

投稿日時 - 2004-09-14 21:20:48

お礼

説明が悪かったと思います。
ありがとうございました。参考にさせていただきます。

投稿日時 - 2004-09-14 22:05:28

ANo.1

Dim i As Integer

For i = 1 To Sheets.Count
If Sheets(i).Cells(1, 1).Value = 1 Then
With Sheets(i)
.Select
.Cells.Select
End With
End If
Next i

投稿日時 - 2004-09-14 21:19:41

お礼

早速のご回答ありがとうございました。

投稿日時 - 2004-09-14 22:06:05

あなたにオススメの質問