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