- ベストアンサー
エクセルVBAで条件に適合したシートを全て選択にするには
いつもお世話になります。 エクセルでシート数が100枚あり各シートのA1には0か1かの値が入っているとします。 その中で、A1の値が1のシートをすべて選択するにはどのようなマクロを組めばいいのでしょうか?
- aiueochama
- お礼率93% (15/16)
- オフィス系ソフト
- 回答数3
- ありがとう数3
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
多分こういう事でしょう。 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
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17068)
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 >「をすべて選択する」が何を意味するか(その後何をするのか)判りませんので、上記コードをご参考にして発展させてください。
お礼
説明が悪かったと思います。 ありがとうございました。参考にさせていただきます。
- nazo-nazo
- ベストアンサー率39% (17/43)
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
お礼
早速のご回答ありがとうございました。
関連するQ&A
- EXCELのすべてのシートから特定セルの値だけを別のシートに書き出すには
excelのマクロで別のEXCELファイルを選択して、たとえば、A3、E4、F10のセルの値だけをそのファイル内のシートすべて(シート数は変化)に対して別のEXCELファイルの1シートに各項目としてまとめて書き出すマクロを教えて下さい。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- EXCEL の複数シートを選択するVBA
お世話になります。 複数のシートがあるEXCELファイルで、特定のセル(A1)に「オリンピック」と入力れているワークシートをすべて選択するマクロを組みたいのです。ご教示よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- VBAでシートの選択、削除について
シートA,B,C,D~とありB以降全てを選択して削除する方法はありますか? シートの数はマクロの実行の度に変わるので直接B,C,D~と選択することはできません。 どなたかよろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel VBAでのシート全選択
Excel2003を使用しています。 シートの数:毎回違う シート名前:毎回違う このような状況で、ExcelのVBAを使用して シートを全て選択する方法はありますでしょうか? ご存知の方、ご教授願います。
- ベストアンサー
- オフィス系ソフト
- Excel VBAで選択したシートの表を一つのシートに転記する方法
こんばんは。 Excel VBAで、 複数のシートを選択した状態で、 マクロを実行すると、最後のシートに、選択したシートの表が 転記され、1つのシートにまとまる便利なマクロが組めないでしょうか。 よく全てのシートを1つのシートにまとめるのは見るのですが、 選択した複数のシートの名前を書き出す方法がわかりません。 良い方法をご存知でしたら教えていただけないでしょか。 宜しくお願い致します。
- ベストアンサー
- その他(Windows)
- エクセルVBA シートを選択した時にマクロを起動したい
いつもお世話なります。 ファイル内に、Sheet1~5の5つのシートがあり、それぞれのシートを選択した時に、別々のマクロを起動させたいのですが、どのように書けば良いのでしょうか? 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロで選択しているシートが何枚目かを出す方法は?
いつもお世話になっています。 エクセルで、ひとつのブックの中にシートが20枚ほど入っています。 今、選択しているシートが、全部のシートの中で何枚目か、を 定義したいのです。 どのようにしたら良いのでしょうか?
- ベストアンサー
- オフィス系ソフト
- Excelマクロで、多数のシートの値だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。
あまり詳しくないのですが、Excelマクロで、1つのファイルにある40くらいのシートの計算式等をすべて排除した値&図だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。 マクロを使わないでの方法は、 (1)、シート選択 (2)、CTRL+A(すべて選択) (3)、CTRL+C(コピー) (4)、形式を選択して貼り付け (5)、値(選択値) これをそのファイルが持っているシート分の繰り返しです。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルのシートについて
エクセルでシート数を指定して挿入するマクロはどうやって作ったらいいでしょうか。 例えばA1セルに挿入したいシートの数を入力するとその数のシートが作成されるというようなマクロを作りたいのですが・・・
- ベストアンサー
- オフィス系ソフト
お礼
初心者なもので大変助かります。 ありがとうございました。 また機会がありましたらよろしくお願いいたします。