| [转帖]VBA常用操作 | ||
上一篇:[转贴]Use VBA SaveAs and CheckCompatibility in Excel 2007-2010 |
||
| 添加日期：2010/3/5 15:18:47 | 快速返回 返回列表 | 阅读14527次 |
1) ブックを開く ========================================================================================= Sub ブックを開く() Workbooks.Open FILENAME:=("BBB.xls") '※１ End Sub ----------------------------------------------------------------------------------------- Sub ブックを読み取り専用で開く() Workbooks.Open FILENAME:=("BBB.xls"), ReadOnly:=True '※１ End Sub ========================================================================================= ＜コメント＞ ※１ BBBにはブック名を記入 -------------------------------------------------------------------------------- 2) ブックを保存する、閉じる '========================================================================================= Sub アクティブブックを名前を付けて保存する() ブック名 = "BBB.xls" '※１ ActiveWorkbook.SaveAs ブック名 End Sub '----------------------------------------------------------------------------------------- Sub 名前を付けて保存ダイアログボックスを表示する() Application.Dialogs(xlDialogSaveAs).Show '※２ End Sub '----------------------------------------------------------------------------------------- Sub 名前を付けて保存ダイアログボックスの保存先を指定して表示する() フォルダパス = "C:\フォルダ名" '※２、３ Application.Dialogs(xlDialogSaveAs).Show (フォルダパス) End Sub '========================================================================================= Sub アクティブブックのコピーを保存する() ActiveWorkbook.SaveCopyAs Filename:="BBB_Copy.xls" '※１ End Sub '----------------------------------------------------------------------------------------- Sub アクティブブックを上書き保存して閉じる() ActiveWorkbook.Save '上書き保存 ActiveWorkbook.Close '閉じる End Sub '----------------------------------------------------------------------------------------- Sub ブックのファイル形式を指定して保存する() ActiveWorkbook.SaveAs FileFormat:=xlNormal '※４ End Sub '========================================================================================= Sub ブックの内容の変更を保存しないで閉じる() Workbooks("BBB.xls").Close SaveChanges:=False '※１ End Sub '----------------------------------------------------------------------------------------- Sub 確認メッセージを表示しないでブックを閉じる() Application.DisplayAlerts = False '確認メッセージを表示しない ActiveWorkbook.Close '閉じる End Sub '----------------------------------------------------------------------------------------- Sub 開かれているすべてのブックを閉じる() Workbooks.Close End Sub '========================================================================================= ＜コメント＞ ※１ BBB、または、BBB_Copyにはブック名を記入 ※２ サンプルは こちら ※３ 保存先フォルダへのパスを記入 ※４ FileFormatプロパティの定数と値は こちら -------------------------------------------------------------------------------- 3) 保存してない変更があるか調べる ========================================================================================= Sub 保存してない変更があるか調べる() Worksheets("SSS").Activate 'ワークシートをアクティブにする ※１ If ActiveWorkbook.Saved = False Then 'False（変更を未保存）なら メッセージ = "保存してない変更があります" MsgBox メッセージ, vbExclamation, "サンプルマクロ" Else 'そうでなければ メッセージ = "保存してない変更は、ありません" & Chr(13) & Chr(13) & _ "「OK」ボタンを押してから、セルに何か入力し、" & Chr(13) & Chr(13) & _ "その後で、お試しボタンを押してみてください" MsgBox メッセージ, vbInformation, "サンプルマクロ" End If End Sub ========================================================================================= ＜コメント＞ ※１ SSSにはシート名を記入 サンプルブックのダウンロードは ここをクリック （YNxv202_Saved.xls 35KB） ※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。 -------------------------------------------------------------------------------- 4) Webページとして保存する ========================================================================================= Sub アクティブブックをWebページとして保存する() ドライブ = "C" '※１ フォルダ名 = "My Documents" '※２ ファイル名 = "ExcelBookをWebページに" '※３ パス = ドライブ & ":\" & フォルダ名 & "\" & ファイル名 & ".html" '※４ ActiveWorkbook.SaveAs Filename:=パス, FileFormat:=xlHtml '※５ End Sub ========================================================================================= ＜コメント＞ ※１ 保存するドライブ番号を指定 ※２ 保存するフォルダ名を指定 ※３ 保存するファイル名を指定 ※４ 拡張子の '.html' は 'htm' でもよい ※５ FileFormatプロパティの値は、xlHtml とする サンプルブックのダウンロードは ここをクリック （YNxv202_Web.xls 29KB） ※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。 -------------------------------------------------------------------------------- 5) 新しいブックを作成する ========================================================================================= Sub 新しいブックを作成する() Workbooks.Add End Sub ========================================================================================= -------------------------------------------------------------------------------- 6) ブックのシート数を取得 ========================================================================================= Sub アクティブブックのワークシート数を取得する() シート数 = ActiveWorkbook.Worksheets.Count End Sub ----------------------------------------------------------------------------------------- Sub 指定ブックのワークシート数を取得する() ブック名 = "BBB" & ".xls" '※１ シート数 = Workbooks(ブック名).Worksheets.Count End Sub ========================================================================================= Sub アクティブブックのシート数を取得する() シート数 = ActiveWorkbook.Sheets.Count '※２ End Sub ----------------------------------------------------------------------------------------- Sub 指定ブックのシート数を取得する() ブック名 = "BBB" & ".xls" '※１ シート数 = Workbooks(ブック名).Sheets.Count '※２ End Sub ========================================================================================= Sub アクティブブックの選択されているシート数を取得する() シート数 = ActiveWindow.SelectedSheets.Count '※２ End Sub ========================================================================================= ＜コメント＞ ※１ BBBにはブック名を記入 ※２ ワークシートとグラフシートが対象 -------------------------------------------------------------------------------- 7) ブックのプロパティの設定・取得 ========================================================================================= Sub ブックのプロパティを設定する() ActiveWorkbook.BuiltinDocumentProperties("Title").Value = "すぐマク" 'タイトル ※１ ActiveWorkbook.BuiltinDocumentProperties("Author").Value = "永井善王" '作成者 URL = "http://www.geocities.jp/happy_ngi/" ActiveWorkbook.BuiltinDocumentProperties("Hyperlink Base").Value = URL End Sub ----------------------------------------------------------------------------------------- Sub ブックのプロパティを取得して表示する() MsgBox ActiveWorkbook.BuiltinDocumentProperties(3).Value '作成者 ※１ MsgBox ActiveWorkbook.BuiltinDocumentProperties(7).Value '最終更新者 MsgBox ActiveWorkbook.BuiltinDocumentProperties(11).Value '作成日時 MsgBox ActiveWorkbook.BuiltinDocumentProperties(12).Value '更新日時 End Sub ----------------------------------------------------------------------------------------- Sub ブックの作成者の名前を操作する() 作成者名 = ActiveWorkbook.Author '取得する ActiveWorkbook.Author = "" '削除する ActiveWorkbook.Author = 作成者名 '設定する End Sub ----------------------------------------------------------------------------------------- Sub ブックのパスを含めたブック名を表示する() MsgBox ActiveWorkbook.FullName End Sub ========================================================================================= ＜コメント＞ ※１ BuiltinDocumentPropertiesプロパティのインデックス値とプロパティ名は こちら -------------------------------------------------------------------------------- 8) ブックのファイル形式の取得 ========================================================================================= Sub ブックのファイル形式を取得する() 値 = ActiveWorkbook.FileFormat End Sub ----------------------------------------------------------------------------------------- Sub 指定されたファイルの形式と種類を取得して表示する() 定数 = "?" 種類 = "?" 値 = ActiveWorkbook.FileFormat 'ファイル形式の値を取得する If 値 = xlWorkbookNormal Then '-4143 定数 = "xlWorkbookNormal" 種類 = "Microsoft Excelブック (*.xls)" ElseIf 値 = xlExcel5 Then '39 定数 = "xlExcel5" 種類 = "Microsoft Excel5.0/95ブック (*.xls)" ElseIf 値 = xlExcel9795 Then '43 定数 = "xlExcel9795" 種類 = "Microsoft Excel97-2000および5.0/95ブック (*.xls)" End If タイトル = "作業中のブックの現在のファイル形式は" メッセージ = "FileFormatの定数： " & 定数 & " 値： " & 値 & _ Chr(13) & Chr(13) & "ファイルの種類： " & 種類 MsgBox メッセージ, vbInformation, タイトル End Sub ========================================================================================= ＜コメント＞ ※１ FileFormatプロパティの定数と値は こちら -------------------------------------------------------------------------------- 9) ブックのマクロ添付状況の取得 ========================================================================================= Sub ブックのマクロ添付状況を取得する() マクロ添付状況 = ActiveWorkbook.HasVBProject '※１ End Sub ----------------------------------------------------------------------------------------- Sub マクロ添付状況に合わせてファイル形式を設定し名前を付けて保存する() With Application.FileDialog(msoFileDialogSaveAs) If ActiveWorkbook.HasVBProject Then .FilterIndex = 2 '※２ Else .FilterIndex = 1 End If If .Show = -1 Then .Execute '※３、※４ End With End Sub ========================================================================================= ＜コメント＞ ※１ HasVBProjectプロパティの返り値 True…VBAプロジェクトが添付されている、False…いない ※２ FilterIndexプロパティの定数 1…Excel ブック (*.xlsx)、2…Excel マクロ有効ブック (*.xlsm) ※３ Showメソッドの返り値 -1…[保存(S)]ボタン、0…[キャンセル]ボタン ※４ Executeメソッド Showメソッドが呼び出された直後のユーザーのアクションを実行する -------------------------------------------------------------------------------- 10) ブックの複写・削除・移動・変更 ========================================================================================= Sub ブックを複写する() FileCopy "C:\FFF\BBB.xls", "C:\F22\B22.xls" '※１,３,４,５,６ End Sub ----------------------------------------------------------------------------------------- Sub ブックを削除する() Kill "C:\FFF\BBB.xls" '※１,３,４ End Sub ----------------------------------------------------------------------------------------- Sub ブックを移動する() Name "C:\FFF\BBB.xls" As "C:\F22\BBB.xls" '※１,３,４,５ End Sub ----------------------------------------------------------------------------------------- Sub ブックを移動しブック名を変更する() Name "C:\FFF\BBB.xls" As "C:\F22\B22.xls" '※１,３,４,５,６ End Sub ========================================================================================= ＜コメント＞ ※１ BBBにはブック名を記入 ※２ SSSにはシート名を記入 ※３ Cにはフォルダが保存されているドライブを記入 ※４ FFFにはブックが保存されているフォルダ名を記入 ※５ F22には複写・移動先のフォルダ名を記入 ※６ B22には新しいブック名を記入 -------------------------------------------------------------------------------- 11) ブックのアクセス権・読み取り専用 ========================================================================================= Sub ブックを読み取り専用に設定する() ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly End Sub ----------------------------------------------------------------------------------------- Sub ブックを書き込み可能に設定する() ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite '※１,２ End Sub ========================================================================================= Sub ブックが読み取り専用か調べる() If ActiveWorkbook.ReadOnly Then MsgBox "読み取り専用です。" Else MsgBox "読み取り専用ではありません。" End If End Sub ========================================================================================= ＜コメント＞ ※１ 読み取り専用から書き込み可能に変更すると、再読み込みされる ※２ 書き込みパスワードの指定も可能 -------------------------------------------------------------------------------- 12) ブックを保護・非保護 ========================================================================================= Sub ブックの保護_非保護() ActiveWorkbook.Unprotect 'ブック非保護 ActiveWorkbook.Protect Structure:=True, Windows:=False 'ブック保護 End Sub ========================================================================================= -------------------------------------------------------------------------------- 13) ブック・シートをアクティブに ========================================================================================= Sub ブックをアクティブにしてシートを選ぶ() Workbooks("BBB.xls").Activate 'ブックをアクティブにする ※１ Sheets("SSS").Select 'シートを選ぶ ※２ End Sub ----------------------------------------------------------------------------------------- Sub 指定ブックの指定シートをアクティブにする() ブック名 = "BBB" '※１ シート名 = "SSS" '※２ Workbooks(ブック名 & ".xls").Worksheets(シート名).Activate End Sub ----------------------------------------------------------------------------------------- Sub 指定ブックの指定シートの選択状態を調べる() ブック名 = "BBB" & ".xls" '※１ シート名 = "SSS" '※２ For Each 各シート In Workbooks(ブック名).Windows(1).SelectedSheets '※７ If 各シート.Name = シート名 Then MsgBox 各シート.Name & " は選択されています。" Exit For End If Next End Sub ========================================================================================= ＜コメント＞ ※１ BBBにはブック名を記入 ※２ SSSにはシート名を記入 ※３ Cにはフォルダが保存されているドライブを記入 ※４ FFFにはブックが保存されているフォルダ名を記入 ※５ F22には移動先のフォルダ名を記入 ※６ B22には新しいブック名を記入 ※７ アクティブウィンドウは常にWindows(1)と記述 -------------------------------------------------------------------------------- 14) ブック・シート名を取得・変更 ========================================================================================= Sub ブック名シート名を取得する() '※12 ブック名 = ActiveWorkbook.Name シート名 = ActiveSheet.Name 'シートタブに表示される名前 シートのオブジェクト名 = ActiveSheet.CodeName 'コード名 シートのインデックス番号 = ActiveSheet.Index End Sub ----------------------------------------------------------------------------------------- Sub ブック内の全部のシート名を取得する() Worksheets("NNN").Select '※７ 取得したシート名を記入するシート選択 For I = 1 To Worksheets.Count '※８ ワークシートの数だけ繰り返す Cells(I, 1).Value = Worksheets(I).Name '※９ 取得したシート名をセルへ記入する Next End Sub ----------------------------------------------------------------------------------------- Sub ブック名を変更する() Name "C:\FFF\BBB.xls" As "C:\FFF\B22.xls" '※１,３,４,６,10,11 End Sub ----------------------------------------------------------------------------------------- Sub シート名を変更する() Worksheets("Sheet1").Name = "新しい名前" '※11 End Sub ========================================================================================= ＜コメント＞ ※１ BBBにはブック名を記入 ※２ SSSにはシート名を記入 ※３ Cにはフォルダが保存されているドライブを記入 ※４ FFFにはブックが保存されているフォルダ名を記入 ※５ F22には移動先のフォルダ名を記入 ※６ B22には新しいブック名を記入 ※７ NNNには取得したシート名を記入するためのシート名を記入 ※８ Worksheets.CountをSheets.Countに変えるとワークシート以外も取得可能 ※９ Worksheets(I).Nameについても※８と同様 ※10 Macintoshではパスの記述が異なる ※11 ブック名またはシート名に使用禁止文字が含まれているか31文字超の場合は変更されない 使用禁止文字とは : \ / ? * [ ] および 空白 ※12 シートの名前・オブジェクト名・インデックス番号の関連図 -------------------------------------------------------------------------------- 15) シートを保護・非保護 ========================================================================================= Sub シートの保護_非保護() ActiveSheet.Unprotect 'シート非保護 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'シート保護 ActiveSheet.Protect UserInterfaceOnly:=True '画面上からの変更だけ保護 ※１ End Sub ----------------------------------------------------------------------------------------- Sub シートの保護_非保護_パスワード付き() ActiveSheet.Unprotect "PW" '※２ ActiveSheet.Protect "PW", DrawingObjects:=True, Contents:=True, Scenarios:=True '※２ End Sub ========================================================================================= ＜コメント＞ ※１ マクロからの変更は可能。保存して閉じると再度実行しないとマクロからも変更ができなくなる ※２ PWにはパスワードを記入 -------------------------------------------------------------------------------- 16) シート切替時の自動処理 ========================================================================================= シートがアクティブになったときに実行されるイベントマクロ Private Sub Workbook_SheetActivate(ByVal シート名 As Object) '※１ MsgBox "アクティブにされたシート名は、" & シート名.Name End Sub ========================================================================================= シートがアクティブでなくなったときに実行されるイベントマクロ Private Sub Workbook_SheetDeactivate(ByVal シート名 As Object) '※１ MsgBox "非アクティブにされたシート名は、" & シート名.Name End Sub ========================================================================================= ＜コメント＞ ※１ ワークブックのコード画面に作成する -------------------------------------------------------------------------------- 17) シートを隠す ========================================================================================= Sub ユーザーが再表示できないようにシートを隠す() Worksheets("SSS").Visible = xlVeryHidden '※１ End Sub ----------------------------------------------------------------------------------------- Sub シートを隠す() Worksheets("SSS").Visible = False '※１ End Sub ----------------------------------------------------------------------------------------- Sub 隠したシートをもどす() Worksheets("SSS").Visible = True '※１ End Sub ========================================================================================= ＜コメント＞ ※１ SSSにはシート名を記入 -------------------------------------------------------------------------------- 18) シートを削除する ========================================================================================= Sub ワークシート名を指定して削除する() Application.DisplayAlerts = False '※４ 注意メッセージを表示しない シート名 = "SSS" 'ワークシート名をセットする ※１ Worksheets(シート名).Delete 'ワークシートを削除する ※２ Application.DisplayAlerts = True '※４ 注意メッセージを表示する End Sub ----------------------------------------------------------------------------------------- Sub 現在アクティブなワークシートを削除する() Application.DisplayAlerts = False '※４ シート名 = ActiveSheet.Name 'アクティブシート名を取得する Worksheets(シート名).Delete 'ワークシートを削除する ※２ Application.DisplayAlerts = True '※４ End Sub ----------------------------------------------------------------------------------------- Sub 現在アクティブなシートを削除する() Application.DisplayAlerts = False '※４ シート名 = ActiveSheet.Name 'アクティブシート名を取得する ※３ Sheets(シート名).Delete 'シートを削除する ※３ Application.DisplayAlerts = True '※４ End Sub ----------------------------------------------------------------------------------------- Sub シートを選択してから削除する() Application.DisplayAlerts = False '※４ Sheets("SSS").Select 'シートを選択する ※１、３ ActiveWindow.SelectedSheets.Delete '選択されたシートを削除する ※３ Application.DisplayAlerts = True '※４ End Sub ========================================================================================= ＜コメント＞ ※１ SSSにはシート名を記入 ※２ ワークシート以外のシートが指定されているとエラーになる ※３ ワークシート以外のシートも可能 ※４ 注意メッセージを表示したくない場合に指定する （関連ページはこちら） -------------------------------------------------------------------------------- 19) シートを追加する ========================================================================================= Sub 新しいワークシートをアクティブシートの前へ追加する() Sheets("SSS").Select '※１ ActiveWorkbook.Worksheets.Add 'アクティブシートの前へ追加する End Sub ----------------------------------------------------------------------------------------- Sub 新しいワークシートをアクティブシートの後へ追加する() Sheets("SSS").Select '※１ シート名 = ActiveSheet.Name 'アクティブシート名を覚える Worksheets.Add after:=Worksheets(シート名) 'アクティブシートの後へ追加する End Sub ----------------------------------------------------------------------------------------- Sub 新しいワークシートを最後のシートの後へ追加する() Sheets("SSS").Select '※１ Worksheets.Add.Move after:=Worksheets(Worksheets.Count) '最後のシートの後へ追加する End Sub ========================================================================================= ＜コメント＞ ※１ SSSにはシート名を記入 -------------------------------------------------------------------------------- 20) シート見出しをスクロールする ========================================================================================= Private Sub シート見出しを先頭までスクロールする() ActiveWindow.ScrollWorkbookTabs Position:=xlFirst End Sub ----------------------------------------------------------------------------------------- Private Sub シート見出しを末尾までスクロールする() ActiveWindow.ScrollWorkbookTabs Position:=xlLast End Sub ----------------------------------------------------------------------------------------- Private Sub シート見出しを前方にスクロールする() ActiveWindow.ScrollWorkbookTabs Sheets:=1 End Sub ----------------------------------------------------------------------------------------- Private Sub シート見出しを後方にスクロールする() ActiveWindow.ScrollWorkbookTabs Sheets:=-1 End Sub ========================================================================================= -------------------------------------------------------------------------------- 21) シート見出しの色を設定する ========================================================================================= Private Sub シート見出しの色を赤にする() ActiveWorkbook.Sheets("SSS").Tab.ColorIndex = 3 '※１、２ End Sub ----------------------------------------------------------------------------------------- Private Sub シート見出しの色をなしにする() ActiveWorkbook.Sheets("SSS").Tab.ColorIndex = -4142 '※１、２ End Sub ----------------------------------------------------------------------------------------- Private Sub シート見出しの色がなしなら黄色にする() If Worksheets("SSS").Tab.ColorIndex = xlColorIndexNone Then '※１ ActiveWorkbook.Sheets("SSS").Tab.ColorIndex = 6 '※１、２ End If End Sub ========================================================================================= ＜コメント＞ ※１ SSSにはシート名を記入 ※２ カラーパレットのインデックス番号 （1=黒、2=白、3=赤、4=明るい緑、5=青、6=黄、7=ピンク、-4142=なし、等） -------------------------------------------------------------------------------- 22) シートの背景のグラフィックスを設定する ========================================================================================= Sub ワークシートの背景のグラフィックスを設定する() フルパス = "C:\YN2007USA_a.jpg" '※１ Worksheets("Sheet1").SetBackgroundPicture Filename:=フルパス End Sub 画像ファイルのフルパス ----------------------------------------------------------------------------------------- Sub ワークシートの背景のグラフィックスを削除する() Worksheets("Sheet1").SetBackgroundPicture Filename:=vbNullString End Sub ========================================================================================= ＜コメント＞ ※１ ""内には画像ファイルのフルパスを記入 |
||
| 评论 COMMENTS | |
| 没有评论 No Comments. |
