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,"保存確認") |
|
|
|
|
|
|
|
|
|