分かる方教えてください。 現在EXCELのVBAでフォルダ内のEXCELファイル全てを１つのシートに統合するマクロを組もうとしてます。 各ファイルにシートが何種類か入っており、統合したいのは見出し色が黄色のシートだけになります。 色々と調べてみたのですが、シートを指定してPDF統合のマクロはあるのですがそれを使ってもうまくできない上、ネットのEXCELVBAのシート指定方法という中にタブ色指定というのが表示されてないのですが、もしかしてPDF化以外はタブ色指定はできないのでしょうか？ やりたい事は、ボタン１プッシュでそのVBAファイルが入ってるフォルダの全てのEXCELファイルの黄色タブだけ新しいbookの１つのシートに上から順に統合、数式は違う色のシートから読み込んでる為、黄色を読み込むと壊れるので値として貼り付け。 これらを同時にやりたいのですが知識が無いので１プッシュでは無理だと判断したので、とりあえず全ファイルの黄色のシートだけ値として1bookに抽出(１シートに統合じゃなくていいので)するコードがあれば教えて頂きたいです。 ちなみに今作った統合するコードはこれです。 Sub フォルダ内の全ブックを1ブック化するマクロ() Dim filePathList() As String Dim fileName As Variant Dim i As Integer: i = 0 '同フォルダ内のExcelファイルを走査してリストを作ります fileName = Dir(ThisWorkbook.path & "\" & "*.xls*") Do While fileName <> "" If (fileName <> ThisWorkbook.Name) Then '自分は含めない ReDim Preserve filePathList(i) filePathList(i) = ThisWorkbook.path & "\" & fileName 'フルパスで i = i + 1 End If fileName = Dir() Loop '対象が無かったらやめます If (i = 0) Then Exit Sub End If '1つ目のブックに全部移動します Dim filePath As String Dim targetBook As Workbook Dim tmpBook As Workbook For i = LBound(filePathList) To UBound(filePathList) filePath = filePathList(i) If (i = 0) Then Set targetBook = Workbooks.Open(filePath) Else Set tmpBook = Workbooks.Open(filePath) Sheets().Move after:=targetBook.Sheets(targetBook.Sheets.Count) '末尾に移動 End If Next i End Sub 当然シート指定してませんので全てのシートが数式の状態で統合されます。 なので黄色以外のシートを削除すると数式が入ってるセルは死にます。 黄色シートのみPDF化する時に使ったコードはこちらです。 'すべてのシートをループ For i = 1 To Sheets.Count 'シートタブ黄色で条件分岐 If Sheets(i).Tab.Color = 65535 Then Worksheets(i).Select Activate これを合わせてもエラーばっかが出て作れないので、他にやり方があるのであればどなたかわかる方教えて頂きたいです。 よろしくお願いします。