エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14740 for VBA�� (0.003 sec.)

[[20220902130030]]: #score: 3407; @digest: 53362733e2c57751d98326868a405cf7; @id: 92182; @mdate: 2022-09-02T04:58:40Z; @size: 2382; @type: text/plain; #keywords: トpd (5545), xltypepdf (3926), exportasfixedformat (3719), 刷対 (3573), 換時 (3105), color (1782), トタ (1648), 黄色 (1380), のpd (1355), 成() (1056), クテ (1025), ト毎 (973), ィブ (941), ト見 (873), pdf (871), replace (869), アク (840), 己解 (835), 数選 (830), tkit (780), ＞sh (773), 実現 (741), （tk (713), が黄 (656), colorindex (636), filename (635), シー (627), タブ (602), ティ (572), 数シ (545), 2022 (545), ファ (544); 『シートタブの色が黄色のものを一つのPDFファイルに保存したい』（VBA初心者）
1つのExcelデータの中に複数のシートがあり、条件に一致したシートタブの色を黄色に設定するところまでVBAで実現いたしました。あとは、シートタブの色が黄色のものを全て選択し、1つのPDFファイルに保存したく、他のサイトを参考に、以下のようにシート毎にはPDFファイルで出力することはできたのですが、1つのファイルにまとめられず、躓いております。できればPDFファイルに変換時に1つのデータにしたのですが、どのようにしたら良いかご教授いただけないでしょうか。 Sub シート見出しの色で判定してPDF作成() Dim i As Long 'すべてのシートをループ For i = 1 To Sheets.Count 'シート色で条件分岐 If Sheets(i).Tab.Color = 65535 Then Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _ FileName:=ActiveWorkbook.Path & "¥" & Sheets(i).Name & ".pdf" End If Next i End Sub ＜使用 Excel:unknown、使用 OS:unknown ＞ ---- VBA 複数シート pdf で検索し、ヒットしたトップが↓でした。 https://life-note.me/2021/06/29/1121/ （tkit） 2022/09/02(金) 13:23 ---- tkitさん教えていただいたサイトや、他のサイトを参照したところ下記のコードで実現できました。ただもう一歩のところで躓いているのですが、作成したVBAコードは、Sheet1にあるボタンから動作させたいのですが、Sheet1もアクティブとなってしまい、印刷対象に含まれてしまいます。これを回避する方法はないでしょうか。よろしくお願いします。 Sub アクティブシートの黄色のシートを印刷する() Dim color_id As Long Dim sh As Object color_id = 6 For Each sh In Sheets If sh.Tab.ColorIndex = color_id Then sh.Select Replace:=False End If Next sh ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:=export_FilePath Worksheets(1).Select 'ワークシートの複数選択を解除 End Sub （VBA初心者） 2022/09/02(金) 13:38 ---- 先ほどのコードから自己解決いたしました。皆様ありがとうございました。（VBA初心者） 2022/09/02(金) 13:54 ---- 書いてるうちに先を越されましたが、そのまま。解決されてよかったです。＞ Sheet1もアクティブとなってしまい、印刷対象に含まれてしまいます。＞ If sh.Tab.ColorIndex = color_id Then ＞ sh.Select Replace:=False ＞ End If sh.Select Replace:=False となっているので、そうなりますね。最初に見つかる color_id のシート時、Trueにすれば、アクティブが変わります。（tkit） 2022/09/02(金) 13:58 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202209/20220902130030.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ