| XLRunCommand | 
  エクセルVBAのコマンドを連続実行 | 
  2020/9/16 3:41 更新 | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | 実行時の注意点 | 
   | 
   | 
   | 
   | 
 
 
   | 
  起動しておくワークブックは1つ−複数ブックが起動している場合は、最初に起動されたブックが操作対象になる | 
   | 
   | 
 
 
  | 動作条件 | 
   | 
   | 
   | 
   | 
 
 
   | 
  ・MicroSoft EXCEL がインストールされていること | 
   | 
   | 
   | 
 
 
   | 
  ・VisualBasicプロジェクトへのアクセスが許可されていること | 
   | 
   | 
   | 
 
 
   | 
  (VisualBasicプロジェクトへのアクセスの許可設定方法) | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | 
  
  
  
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  |   | 
    | 
    | 
    | 
    | 
    | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
  例 | 
  補足説明 | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | クリップボード | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  データ格納 | 
  ClipboardSet Range("A1") | 
  クリップボードにテキストデータを格納 | 
   | 
   | 
 
 
   | 
  データ取り出し | 
  Range("A1") = ClipboardGet() | 
  クリップボードからテキストデータを取り出す | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | セル操作 | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  選択(アクティブ ) | 
  Range("A1").Activate ,
  Range("A1").Select | 
  Cells(1,1).Activete , Cells(1,1).Select | 
   | 
   | 
 
 
   | 
  文字入力 | 
  Range("A1") = "bb" ,
  Range("A1D5") = "bb" | 
  Cells(1,1) = 33 | 
   | 
   | 
 
 
   | 
  フォントの色 | 
  Range("A1").Font.ColorIndex = 5 | 
  Cells(1,1).Font.ColorIndex = 5 | 
   | 
   | 
 
 
   | 
  背景色 | 
  Range("A1").Interior.ColorIndex = 5 | 
  Cells(1,1).Interior.ColorIndex = 5 | 
   | 
   | 
 
 
   | 
  表選択 | 
  Range("A3").CurrentRegion.Select | 
  ← A3 を含む表全体を選択(空白行、空白列で囲まれた内部) | 
 
 
   | 
  左揃え | 
  Selection.HorizontalAlignment = xlLeft | 
  右揃え:xlRight 中央揃え:xlCenter | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | 行列 | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  列幅 | 
  Columns("D:D").ColumnWidth = 11.38 | 
   | 
   | 
   | 
 
 
   | 
  行高 | 
  Rows("4:4").RowHeight = 27.75 | 
   | 
   | 
   | 
 
 
   | 
  追加 | 
  Rows("4:4").Insert Shift:=xlDown | 
  上に追加 | 
   | 
   | 
 
 
   | 
  削除 | 
  Rows("4:4").Delete Shift:=xlUp | 
  削除して上に詰める | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | シート操作 | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  シート切り替え | 
  Sheets("売上").Activate ,
  Sheets("売上").Select | 
   | 
   | 
   | 
 
 
   | 
  追加 | 
  Sheets.Add | 
   | 
   | 
   | 
 
 
   | 
  削除 | 
  Sheets("Sheet2").Delete | 
   | 
   | 
   | 
 
 
   | 
  名前変更 | 
  Sheets("Sheet2").Name = "売上報告書" | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | ブック操作 | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  上書き保存 | 
  ActiveWorkBook.Save | 
   | 
   | 
   | 
 
 
   | 
  別名保存 | 
  ActiveWorkBook.SaveAs "D:\一課\計算書.xls" | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | EXCEL操作 | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  最小化 | 
  Application.WindowState = xlMinimized | 
  ← 最大化:xlMaximized 元のサイズ:xlMinimized | 
   | 
 
 
   | 
  上位置 | 
  Application.Top = 100 | 
  ← 左位置:Left 幅:Width 高さ:Height | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  終了 | 
  Application.Quit | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  再計算オフ | 
  Application.Calculation = xlCalculationManual | 
  ← 再計算オンは xlCalculationAutomatic | 
   | 
   | 
 
 
   | 
  警告オフ | 
  Application.DisplayAlerts = False | 
  ← オンにする場合は True | 
   | 
   | 
 
 
   | 
  画面更新オフ | 
  Application.ScreenUpdating = False | 
   | 
   | 
   | 
 
 
   | 
  イベントオフ | 
  Application.EnableEvents = False | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  ツールバー | 
  Application.CommandBars("Drawing").Visible =
  False | 
  ← 「図形描画」ツールバーを非表示 | 
   | 
   | 
 
 
   | 
   | 
  Application.CommandBars("Formatting").Visible =
  False | 
  ← 「書式」ツールバーを非表示 | 
   | 
   | 
 
 
   | 
   | 
  Application.CommandBars("Standard").Visible =
  False | 
  ← 「標準」ツールバーを非表示 | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
  | 対話ツール | 
   | 
   | 
   | 
   | 
 
 
   | 
   | 
   | 
   | 
   | 
   | 
 
 
   | 
  インプットボックス | 
  Height =
  InputBox("身長をcm単位で入力してください。", "BMI計算−身長の入力", , 1500,
  6000) | 
   | 
   | 
 
 
   | 
  メッセージボックス | 
  Rc = MsgBox(
  "保存しますか",vbYesNoCancel,"保存確認") | 
   | 
   | 
   | 
 
 
 
   | 
   | 
   | 
   | 
   | 
   |