Microsoft Excel2010自動記録 | |||||||||
ファイル(F) | 編集(E) | 表示(V) | 挿入(I) | 書式(O) | ツ−ル(T) | デ−タ(D) | ウィンドウ(W) | ヘルプ(H) | TOP |
新規作成(N) 開く(O) 閉じる(C) 上書き保存(S) 名前を付けて保存(A) Web ペ−ジとして保存(F) 作業状態の保存(W) ブラウザでプレビュ−(B) ペ−ジ設定(U) 印刷範囲(T) ≫ 印刷プレビュ−(V) 印刷(P) 送信(D) ≫ プロパティ(I) 終了(X) |
●「新規作成」のマクロ例PageTop
Sub Macro1() Workbooks.Add End Sub
●「開く」のマクロ例 Sub Macro2() ChDir "C:\tst" Workbooks.Open Filename:="C:\tst\2010自動記録.xls" End SubPageTop
●「閉じる」のマクロ例 Sub Macro1() ActiveWorkbook.Close End Sub ■ ブックが閉じてしまい自動記録は出来ない (別のブックへ記録すれば記録可)PageTop
●「上書き保存」のマクロ例 ***新規ブックで保存先が未定の場合」は、保存先指定のダイアログが表示される Sub Macro1() ActiveWorkbook.SaveAs Filename:="C:\tst\Book1.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False End Sub ***「1度保存されているブックの場合」 Sub Macro2() ActiveWorkbook.Save End SubPageTop
○「名前を付けて保存」「Excel97-2003ブック(9)」のマクロ例 Sub Macro2() ActiveWorkbook.SaveAs Filename:="C:\tst\tstBook1.xls", FileFormat:=xlExcel8 _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End SubPageTop
■ ファイル名は、Excel5.0では4文字であったが、Excel95以降は255文字(半角)までOK。 ■ ファイル名に[\][<][>][?]["][!][:][/][*]は使用出来ない。 -----------------------------------
○「名前を付けて保存」「Exce ブック」のマクロ例 Sub Macro3() ActiveWorkbook.SaveAs Filename:="C:\tst\tstBook1.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False End Sub ■ マクロを含まないブックは拡張子「xlsx」で保存します。 -----------------------------------
○「名前を付けて保存」「Exce マクロ有効ブック(M)」のマクロ例 Sub Macro4() ActiveWorkbook.SaveAs Filename:="C:\tst\tstBook1.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub ■ マクロを含むブックは拡張子「xlsm」で保存します。 -----------------------------------
Sub Macro5() ActiveWorkbook.SaveAs Filename:="C:\tst\tstBook1.htm", FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub ■「ファイルの種類」を「Webページ」に指定PageTop
●「作業状態の保存」のマクロ例 Sub Macro1() Application.Save Filename:="C:\tst\resume.xlw" End Sub ■何の為にある機能か理解できず使ったことがない(自動記録は上記)。PageTop
★ 自動記録されないPageTop
●「ペ−ジ設定/印刷プレビュ−」のマクロ例 Sub Macro1() マクロ省略 End SubPageTop
■ カスタムマクロ作成で印刷関係を作成の場合、全て自動記録出来るのでそれをコピ−して使用すればよい。
印刷範囲の設定(S) 印刷範囲のクリア(C) |
●「印刷範囲の設定」のマクロ例 Sub Macro1() Range("A1:C3").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$C$3" Range("F7").Select End SubPageTop
●「印刷範囲のクリア」のマクロ例 Sub Macro2() ActiveSheet.PageSetup.PrintArea = "" End Sub
○「印刷」のマクロ例 Sub Macro1() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub ■IgnorePrintAreas オプションはExcel2007から追加PageTop
メ−ルの宛先(添付ファイル)(A) 回覧先(R) Exchangeフォルダ−(E) オンライン会議の参加(O) |
●「プロパティ」のマクロ例 ★ 自動記録されないPageTop
■[ファイル情報][ファイルの詳細][ファイル構成]等をダイアログへ表示。
●「終了」のマクロ例 Application.QuitPageTop
■ 終了してしまい自動記録はできない。マクロは上記のはず