Excel2013マクロでコメントを「(なし)」に設定する方法| OKWAVE

エクセルのマクロについて

エクセルの印刷マクロを作りましたが、動作が非常に遅いのです。スタッフ用と管理者用のマクロを作り、スタッフ用が遅いのです。余計なものが含まれているのでしょうか？お願いします。 Sub スタッフ() ' スタッフ Macro 　　ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$55" With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$55" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 76 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$60" With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$60" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 70 .PrintErrors = xlPrintErrorsDisplayed End With Range("A1").Select End Sub

ヘッダーの編集でフォントの設定をした場合は

マクロの記録でページ設定→ヘッダーフッター→ヘッダーの編集でフォントの設定をした場合はこの設定のマクロの記録は取れないのでしょうか？マクロの記録の結果を見ても Sub Macro1() ' ' Macro11 Macro ' ' Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "あああ" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.590551181102362) .RightMargin = Application.InchesToPoints(0.590551181102362) .TopMargin = Application.InchesToPoints(0.78740157480315) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True End Sub で、フォントの設定は見当たりません。

EXCEL VBAでシートの余白を統一したい。

こんばんは。 EXCEL　VBAでひとつのファイルの中のすべてのシートの余白とA4横サイズに統一したいのです。マクロの記録をとると With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.393700787401575) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed End With End Sub このように記述されますが、どのように加工したらよろしいでしょうか？教えてください。

ヘッダーのタイトルとページ表示のコードがわからない

表のタイトルと日付、ページをヘッダーあるいはフッダーに入れたいのですがうまく表示されません。 1.左ヘッダーに【名古屋市】登録状までしか表示しません。　【名古屋市】登録状況一覧　と表示させたいです。 2.日付は出てきたのですが、作表した日付のままでしょうか？　次の日に印刷したら日付がかわるのでしょうか？　システムからダウンロードした日付をいつも表示するようにしたいです。 3.1/しか表示しません。総ページ数が表示されません。間違っているところを指摘していただけないでしょうか？よろしくお願いします。 With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftHeader = "&""ＭＳＰゴシック,太字""&20【&A】登録状況一覧" .CenterHeader = "" .RightHeader = Format(Date, "ggge年m月d日") & "現在" '日付 .LeftFooter = "" .CenterFooter = "&P/&N" .RightFooter = "" End With

EXCELで印刷範囲指定

マクロの記録で印刷範囲の指定を考えています。以下のマクロを記録しました。 Sub 印刷範囲指定() Cells.Select With Selection.Font .Name = "ＭＳＰゴシック" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("A1").Select With ActiveSheet.PageSetup .PrintTitleRows = "$6:$8" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "&A" .RightHeader = "" .LeftFooter = "" .CenterFooter = "&P / &N ページ" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.78740157480315) .RightMargin = Application.InchesToPoints(0.78740157480315) .TopMargin = Application.InchesToPoints(0.984251968503937) .BottomMargin = Application.InchesToPoints(0.984251968503937) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.511811023622047) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 End With ActiveWindow.View = xlPageBreakPreview ActiveWindow.LargeScroll ToRight:=1 ActiveSheet.PageSetup.PrintArea = "$A$1:$I$50" ActiveWindow.View = xlNormalView Columns("B:I").Select Columns("B:I").EntireColumn.AutoFit Range("A1").Select End Sub やりたいことは・まず最初にcsvファイルをxlsファイルに取り込む機能をつけたい。・取り込んだcsvをシートの一番最後につける。そのファイルを以下のように設定していきたいです。・列の印刷範囲を数ある列のうちA列からI列までとする。・行の印刷範囲をA列の最終行までとしたい。上記マクロでここを修正すればいいというところがあれば教えてください。。

【365】マクロでヘッダー・フッターが消えない

頻繁に設定するページレイアウトをマクロ化してありますが、すでにヘッダー・フッターが設定されている状態でそのマクロを実行してもヘッダー・フッターが消えません。 .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" EvenPageとFirstPageも""に設定してあります。他に設定しなければならないマクロがあるのでしょうか？

エクセルVBAでヘッダーに別ブックのセルにある文字などを入れる方法をお

エクセルVBAでヘッダーに別ブックのセルにある文字などを入れる方法をお尋ねします。マクロ記録をとり、下のようなコードの部分でヘッダー中央に元のブックの元シートC3の文字を入れています。これでできているのですが、さらにE1にある日付、F1にある日付と文字列を入れたいと思っています。今現在C3は会社名が入っています。(仮に「NTT商事」とします) E1には「2010/1/1」の日付が入っているとします F1には「2010/8/22」の日付が入っているとしますこれをヘッダー中央に、[NTT商事(20100101～20100822)売り上げ]というように元のセルにあるデータの利用と、“～”や“売り上げ”などの文字列を複合させてタイトル付けをしたいと思っています。こうするためにはどのようにコードを入れればいいでしょうか？よろしくお願いします。 With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = Workbooks("元ブック").Sheets("元シート").Range("C3").Value .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.787) .RightMargin = Application.InchesToPoints(0.787) .TopMargin = Application.InchesToPoints(0.984) .BottomMargin = Application.InchesToPoints(0.984) .HeaderMargin = Application.InchesToPoints(0.512) .FooterMargin = Application.InchesToPoints(0.512) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed End With

Excelのマクロで実行時エラー”1004”を解決するには？

実行時エラー”1004"で"PageSetupクラスのPrintQualityのプロパティを設定できません”となってしまいます。モジュールは次のようになっています。「グラフのページ設定 Sheets("Graph1").Select With ActiveChart.PageSetup .LeftHeader = "" .CenterHeader = "&F" .RightHeader = "&D" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.787) .RightMargin = Application.InchesToPoints(0.787) .TopMargin = Application.InchesToPoints(0.984) .BottomMargin = Application.InchesToPoints(0.984) .HeaderMargin = Application.InchesToPoints(0.512) .FooterMargin = Application.InchesToPoints(0.512) .ChartSize = xlFullPage .PrintQuality = -3 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .BlackAndWhite = False .Zoom = 100」デバッグで黄色のマーカーが引いてある場所は、"PrintQuality = -3"の箇所です。 Accessのフォームからエクセルへ出力のマクロ実行ボタンを押して一連の処理が行える設定になっています。このシステムは前任者が作成しました。私は修正を行っているものです。 Access、Excelマクロともに初心者です。この現象が起き始めたのは、ＰＣがクラッシュしてデータが消えてしまったため、全てのソフトを再インストールして、バックアップのデータを設定の場所に置き直してからです。 PCがクラッシュする前は、正常に動いていました。 Accessの中身は多少いじりましたが、今、問題になっているものに結びつくものはないと思います。解決策がお分かりになる方はいらしゃいますか？お手数をお掛けして申し訳ございませんが、どうぞ手ほどきをいただきますようお願いいたします。

Excel2010のVBAでライトヘッダーが出ない

2020/10/12　OKウェイヴ　質問 Excel2010にて、VBAで以下を実行するとライトヘッダーの日付が印刷されません。ライトヘッダーの日付が出力されるようにするにはどの部分をどのように修正する必要があるでしょうか。日付が表示されない理由、表示されるようになるための修正点を教えていただきますようお願いします。 ※初心者が記録されたマクロを修正しただけなのでコードが汚いなどは気にしないでください。また、テキスト部分は内容を修正してあります。 Cells(1, 1).Select Application.PrintCommunication = False Worksheets(Worksheets.Count).Copy After:=Worksheets(Worksheets.Count) With ActiveSheet.PageSetup .RightHeader = "&""メイリオ,レギュラー""&D" .LeftFooter = "&""メイリオ,レギュラー""テキスト" & vbLf & "テキスト" .RightFooter = "&""メイリオ,レギュラー""テキスト" & vbLf & "テキスト" & vbLf & "テキスト" .LeftMargin = Application.InchesToPoints(0.984251968503937) .RightMargin = Application.InchesToPoints(0.984251968503937) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1.18110236220472) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.4) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = True .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .PrintTitleRows = "$1:$1" End With Range("U:U").AdvancedFilter Action:=xlFilterCopy, copytorange:=Range("ZZ1"), Unique:=True Range("A1").AutoFilter Field:=17, Criteria1:="<>" Range("A1", Selection.End(xlToRight)).EntireColumn.AutoFit Selection.ShrinkToFit = True Range("A:L,N:P,R:V,ZZ:ZZ").EntireColumn.Hidden = True Range("A1", Selection.End(xlToRight)).EntireColumn.Select ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address With Selection.Font .Name = "Meiryo UI" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Rows("1:1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Dim i As Integer i = 2 Do While Cells(i, "ZZ") <> "" Range("A1").AutoFilter Field:=21, Criteria1:=Cells(i, "ZZ") If Cells(Rows.Count, "Q").End(xlUp) <> "参照先" Then ActiveSheet.PageSetup.LeftHeader = "&""メイリオ,レギュラー""" & Cells(Rows.Count, "U").End(xlUp) & "テキスト" & vbLf & "テキスト" Application.PrintCommunication = True ActiveSheet.PrintOut Application.PrintCommunication = False End If i = i + 1 Loop Range("B2").Select End Sub

Excelでのページ番号付与について（WindowsXP）

Excelでのページ番号付与について（WindowsXP）何枚かのシートがあるファイルに一括でヘッダー・フッターを付けたいと思っています。 Sub SetHeader() Dim mySheet As Worksheet Application.ScreenUpdating = False For Each mySheet In ActiveWindow.SelectedSheets With mySheet.PageSetup .LeftHeader = "左ヘッダー" .CenterHeader = "中央ヘッダー" .RightHeader = "右ヘッダー" .LeftFooter = "左フッター" .CenterFooter = "中央フッター" .RightFooter = "右フッター" End With Next Application.ScreenUpdating = True End Sub 上記のようにマクロを作成したのですが、選択したシートの連番という単純な物ではなくちょっと面倒なページ表示をしなければいけなくなりました。一つのファイルの中で 1シート目→1ページ 2シート目→3ページ 3シート目→2ページなどとなっている場合 1枚目→1 2枚目→2-1/3 　　　2-2/3 　　　2-3/3 3枚目→3-1/2 　　　3-2/2 というようなページ表示にしたいのですが、どのようにマクロを組めばいいかわからなくて困っています。よろしくお願いいたします。　　

EXCEL97で印刷がB4になってしまう！

エクセルで横長の表を作成しました。多少大き目なので印刷範囲を指定し、ページ設定で「拡大縮小印刷」で横１×縦１ページを選択しました。用紙サイズもA4を指定しました。（その結果縮小率は９１％となります。）ところが印刷をかけると自動的にB4になってしまうのです。プリンターにはB4用紙を入れていませんので毎回印刷エラーになってしまいます。（B4用紙を入れればOK）そこでVBAでやってみようと、下記のようにしてみました。 Sub 表印刷() With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.590551181102362) .RightMargin = Application.InchesToPoints(0.590551181102362) .TopMargin = Application.InchesToPoints(0.118110236220472) .BottomMargin = Application.InchesToPoints(0.118110236220472) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub しかしこれでやっても同じ結果でした。なお、同ブックの他のページの表は正常に縮小印刷ができます。原因と対策がまったくわからず困っています。お助けください。

マクロの実行スピードを速くする方法を教えてください

下記のマクロの実行を速くしたいのですが、どのようにしたらいいのか教えていただけないでしょうか。よろしくお願いいたします。 Sub 列幅指定() Dim i As Long Dim t As Long t = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row i = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row Range("A1").RowHeight = 60 '1行目サイズ60 Range("A2:A" & t).RowHeight = 40 '2行目以降 40 Range("A1:AV" & t).WrapText = True '折り返して表示 Range("A1:AV1").VerticalAlignment = xlVAlignCenter '縦位置＝中央揃え Range("A2:AV" & t).VerticalAlignment = xlVAlignTop '縦位置＝上揃え '列幅指定 Const W4 As String = "A1,V1" Const W2 As String = "B1" Const W3 As String = "C1" Const W20 As String = "D1,E1,AH1" Const W10 As String = "F1,K1,L1,P1,Q1,R1,S1,Y1,Z1,AC1,AD1,AE1,AP1,AQ1,AR1,AS1" Const W8 As String = "G1,I1,J1,M1,T1,X1,AF1,AG1,AM1,AT1,AU1,AV1" Const W16 As String = "H1,N1,O1,U1,AB1,AH1,AN1,AO1" Const W6 As String = "W1,AA1" Const W12 As String = "AJ1,AK1,AL1" Range(W4).ColumnWidth = 4 Range(W2).ColumnWidth = 2 Range(W3).ColumnWidth = 3 Range(W10).ColumnWidth = 10 Range(W12).ColumnWidth = 12 Range(W20).ColumnWidth = 20 Range(W10).ColumnWidth = 10 Range(W8).ColumnWidth = 8 Range(W16).ColumnWidth = 16 '用紙サイズ設定 ActiveSheet.PageSetup.PaperSize = xlPaperA3 '用紙を縦向きに設定 ActiveSheet.PageSetup.Orientation = xlPortrait With ActiveSheet.PageSetup .LeftMargin = Application.CentimetersToPoints(0.8) '左 .RightMargin = Application.CentimetersToPoints(0.5) '右 .TopMargin = Application.CentimetersToPoints(1.6) '上 .BottomMargin = Application.CentimetersToPoints(1.5) '下 .HeaderMargin = Application.CentimetersToPoints(1) 'ヘッダ .FooterMargin = Application.CentimetersToPoints(0.8) 'フッダ End With ' 印刷するセル範囲を設定(A1～Ut) ActiveSheet.PageSetup.PrintArea = Range("A1:U" & t).Address '印刷の倍率を指定する ActiveSheet.PageSetup.Zoom = 78 '行タイトルを指定する With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" .PrintTitleColumns = "" End With '罫線を引く Range("A1:U" & t).Borders.LineStyle = xlContinuous Range("W1:AV" & t).Borders.LineStyle = xlContinuous '太線を引く Range("I1:I" & t).Borders(xlEdgeLeft).Weight = xlMedium Range("K1:K" & t).Borders(xlEdgeLeft).Weight = xlMedium Range("R1:R" & t).Borders(xlEdgeLeft).Weight = xlMedium 'ヘッダーフッダー設定 With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftHeader = "&""ＭＳＰゴシック,太字""&20【&A】登録状況一覧" .CenterHeader = "" .RightHeader = Format(Date, "ggge年m月d日") & "現在" '日付 .LeftFooter = "" .CenterFooter = "&P/&N" .RightFooter = "" End With 'グループ化 Call Columns("G").Group '列のグループ化 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 Call Columns("L:N").Group '列のグループ化 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 Call Columns("Q").Group '列のグループ化 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 'カンマを付ける Range("I2:J" & t + 1).NumberFormatLocal = "#,###" End Sub

Excel2003VBA 印刷設定

お世話になります。下記、手入力による（？）印刷設定のコードなのですが不要な行をご教示いただきたく投稿致しました。・設定した内容は上下左右の余白を「0」にした。・用紙サイズと向きを選択した。・「1ページにあわせる」ように設定をした。だけなのですが、恐らく単なる「マクロ記録」を利用したので余計な記述も含まれていると思います。すでに削除してありますが上から4行ほど何かを「""」という設定があったので「勘」で削除し動作確認ではOKでした。でも見れば見るほど迷いが生じどなたかご存知の方にご教示いただこうと投稿致しました。不要な行をご教示ください。宜しくお願い致します。 Sub 印刷設定_A3横() ' ' 印刷設定_A3横 Macro ' マクロ記録日 : 2009/5/14 ' ' With ActiveSheet.PageSetup .LeftMargin = Application.InchesToPoints(1) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.511811023622047) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA3 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _ True End Sub

ExcelのVBAで得た結果を転記したい

Excelで，ひとつのブックの余白や印刷倍率，印刷品質を表示するのに，次のようなVBAを用いています． '上余白を表示する ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup marginInches = ActiveSheet.PageSetup.TopMargin / _ Application.CentimetersToPoints(1) MsgBox "現在の上余白は " & marginInches & " センチです。" End With '下余白を表示する With ActiveSheet.PageSetup marginInches = ActiveSheet.PageSetup.BottomMargin / _ Application.CentimetersToPoints(1) MsgBox "現在の下余白は " & marginInches & " センチです。" End With '左余白を表示する With ActiveSheet.PageSetup marginInches = ActiveSheet.PageSetup.LeftMargin / _ Application.CentimetersToPoints(1) MsgBox "現在の左余白は " & marginInches & " センチです。" End With '右余白を表示する With ActiveSheet.PageSetup marginInches = ActiveSheet.PageSetup.RightMargin / _ Application.CentimetersToPoints(1) MsgBox "現在の右余白は " & marginInches & " センチです。" End With 'ヘッダー余白を表示する With ActiveSheet.PageSetup marginInches = ActiveSheet.PageSetup.HeaderMargin / _ Application.CentimetersToPoints(1) MsgBox "現在のヘッダーは " & marginInches & " センチです。" End With 'フッター余白を表示する With ActiveSheet.PageSetup marginInches = ActiveSheet.PageSetup.FooterMargin / _ Application.CentimetersToPoints(1) MsgBox "現在のフッダーは " & marginInches & " センチです。" End With '印刷倍率を表示する With ActiveSheet.PageSetup Zoom = ActiveSheet.PageSetup.Zoom MsgBox "現在の印刷倍率は " & Zoom & " パーセントです。 " End With '印刷品質を表示する Dim PrintQuality As Variant With ActiveSheet.PageSetup PrintQuality = .PrintQuality(1) MsgBox "現在の印刷品質は" & PrintQuality & "dpiです。" End With 現在，ツールバーのボタンをおして起動させているのですが，シート数が多い時は手間になり，困っています．（ボタンのコードは以下） Private Sub Workbook_AddinInstall() Dim myBar As CommandBar Dim CKB1 As CommandBarButton Dim Exist As Boolean For Each myBar In Application.CommandBars '名前が"余白"であるならばフラグを立てる If myBar.Name <> "余白" Then Exist = False Else Exist = True If Exist = True Then Exit For Next myBar '既に作成されていなければ新規作成 If Exist = False Then _ Set myBar = Application.CommandBars.Add(Name:="余白", Position:=msoBarTop) With myBar Set CKB1 = .Controls.Add(Type:=msoControlButton) CKB1.Caption = "余白" With CKB1 .Style = msoButtonCaption .FaceId = 266 .Parameter = "余白" .OnAction = "余白" End With .Visible = True End With Set myBar = Nothing Set CKB1 = Nothing End If End Sub そこで，シートごとに上記の余白等の結果を，テキストファイルなどに転記できるようにしたいのですが， VBAで可能でしょうか？（以下のような感じです） sheet1 上：40 下：20 左：30 右：10 倍率：98 品質：600

エクセルマクロ　ヘッダーに図挿入　フルパスに変数

エクセルのマクロについての質問です。基本的な事ですみません。同じフォルダ内に、エクセルAと画像Bがあります。エクセルＡの特定シートから新規にシートａをマクロで作ります。新規シートａの印刷設定で、右ヘッダーに画像Bを入れます。 With ActiveSheet.PageSetup.RightHeaderPicture .Filename = "画像Bのフルパスとファイル名.jpg" End With ActiveSheet.PageSetup.RightHeader = "&G" 上記では上手くいったのですが、フォルダの場所が不特定なので、次のようにしたところ、4行目で止まってしまいます。 Dim WP As String WP = ActiveWorkbook.Path With ActiveSheet.PageSetup.RightHeaderPicture .Filename = "WP＆画像Bのファイル名.jpg" End With ActiveSheet.PageSetup.RightHeader = "&G" WP＆画像Bのファイル名.jpg がおかしいと思いますが、記述が分かりません。知識なある方、お手隙の方、宜しくお願いいたします。

エクセル　マクロ

以下のコードではテキスト(ｔｘｔ)ファイルのデータをエクセルへ貼りつけるものですが貼りつけるテキストファイルを参照し選ぶ際、テキストファイル以外を選ぶとエラーが起きてしまいますテキストファイル以外を選んで実行した場合はメッセージボックスを表示するようにはどうすればよいですか？ Private Sub CommandButton1_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd Dim txtpass As Variant If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems txtpass = "TEXT;" & vrtSelectedItem Next vrtSelectedItem Else MsgBox "キャンセルされました" Exit Sub End If End With With ActiveSheet.QueryTables.Add(Connection:= _ txtpass, Destination:=Cells(Rows.Count, 2).End(xlUp).Offset(2, 0)) .Name = "4" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 2 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

エクセルのマクロ

エクセルに 1、コマンドボタンを押す 2、貼り付けたいテキストファイルを選ぶ →B3のセルから貼り付けるというマクロを組みました以下のマクロがそうなんですが、このマクロだと1つのテキストファイルしか貼り付けれません 2回目以降も貼り付けを同じボタンで繰り返しその前に貼り付けたデータのB列最終セルの一つ下のセルから同じようにテキスト貼り付けを行えるようにはすることは可能でしょうか？ Private Sub CommandButton1_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd Dim txtpass As Variant If .Show = -1 Then 　For Each vrtSelectedItem In .SelectedItems txtpass = "TEXT;" & vrtSelectedItem Next vrtSelectedItem Else End If End With With ActiveSheet.QueryTables.Add(Connection:= _ txtpass, Destination:=Range("$B$3")) .Name = "4" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

excel2000マクロエラー

下記のマクロを実行したときにエラーがでます。 Sheets("売上日報").Select Application.CutCopyMode = False ActiveSheet.Unprotect Sheets("売上日報").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenasios:=True エラーメッセージアプリケーション定義またはオブジェクト定義のエラーです。下記のところでマクロがとまります。 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenasios:=True

エクセルの印刷範囲をマクロで決めたいです。

以前こちらで、選択範囲を印刷範囲にする方法を教えていただきました。選択範囲は別の項目で決定されています。 With Selection Vert = .Rows.Count Side = .Columns.Count Print_range = .Cells(1, 1).Address & ":" & .Cells(Vert, Side).Address End With With ActiveSheet.PageSetup .PrintArea = Print_range .PaperSize = xlPaperA3 .Orientation = xlPortrait End With 以上の記述で無事選択範囲が印刷範囲になりました。次に、選択範囲が何種類かのパターンに絞れる事がわかったのでパターンごとに拡大縮小印刷の％も決定しようと Select Case True Case Masu = 10 ActiveSheet.PageSetup.Zoom = 100 Case Masu = 11 ActiveSheet.PageSetup.Zoom = 115 Case Masu = 12 ActiveSheet.PageSetup.Zoom = 123 Case Else ActiveSheet.PageSetup.Zoom = 100 End Select を追加したところエラーになります。何がよくないのかさえわかりません。よい解決策はないものでしょうか？

エクセル記録したマクロを実行するとエラーがでます

マクロを記録させ、実行しようとするとエラーがでます。エラーメッセージは、「コンパイルエラー　印数は省略できません。」で、エラー箇所は下記の☆と☆の間です。 End With With ActiveSheet.PageSetup .LeftMargin = Application.InchesToPoints(0.31) .RightMargin = Application.☆InchesToPoints☆() .TopMargin = Application.InchesToPoints() .BottomMargin = Application.InchesToPoints() .HeaderMargin = Application.InchesToPoints() .FooterMargin = Application.InchesToPoints() .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = 1620 End With 当方マクロの知識がないものでなぜそうなったのか、どうすれば解決するのかわかりません。お力を貸して下さい。

Excel2013マクロでコメントを「(なし)」に設定する方法

【Excel2013マクロ】コメント「なし」

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

お礼 2020/03/13 23:39

その他の回答 (1)

お礼 2020/03/13 23:38

関連するQ&A

エクセルのマクロについて

ヘッダーの編集でフォントの設定をした場合は

EXCEL VBAでシートの余白を統一したい。

ヘッダーのタイトルとページ表示のコードがわからない

EXCELで印刷範囲指定

【365】マクロでヘッダー・フッターが消えない

エクセルVBAでヘッダーに別ブックのセルにある文字などを入れる方法をお

Excelのマクロで実行時エラー”1004”を解決するには？

Excel2010のVBAでライトヘッダーが出ない

Excelでのページ番号付与について（WindowsXP）

EXCEL97で印刷がB4になってしまう！

マクロの実行スピードを速くする方法を教えてください

Excel2003VBA 印刷設定

ExcelのVBAで得た結果を転記したい

エクセルマクロ　ヘッダーに図挿入　フルパスに変数

エクセル　マクロ

エクセルのマクロ

excel2000マクロエラー

エクセルの印刷範囲をマクロで決めたいです。

エクセル記録したマクロを実行するとエラーがでます

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

Excel2013マクロでコメントを「(なし)」に設定する方法

【Excel2013マクロ】コメント「なし」

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

お礼 2020/03/13 23:39

その他の回答 (1)

お礼 2020/03/13 23:38

関連するQ&A

エクセルのマクロについて

ヘッダーの編集でフォントの設定をした場合は

EXCEL VBAでシートの余白を統一したい。

ヘッダーのタイトルとページ表示のコードがわからない

EXCELで印刷範囲指定

【365】マクロでヘッダー・フッターが消えない

エクセルVBAでヘッダーに別ブックのセルにある文字などを入れる方法をお

Excelのマクロで実行時エラー”1004”を解決するには？

Excel2010のVBAでライトヘッダーが出ない

Excelでのページ番号付与について（WindowsXP）

EXCEL97で印刷がB4になってしまう！

マクロの実行スピードを速くする方法を教えてください

Excel2003VBA 印刷設定

ExcelのVBAで得た結果を転記したい

エクセルマクロ ヘッダーに図挿入 フルパスに変数

エクセル マクロ

エクセルのマクロ

excel2000マクロエラー

エクセルの印刷範囲をマクロで決めたいです。

エクセル記録したマクロを実行するとエラーがでます

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

エクセルマクロ　ヘッダーに図挿入　フルパスに変数

エクセル　マクロ