Excel VBA

アプリケーション

アプリケーション操作

最小化
ActiveWindow.WindowState = xlMinimized

警告メッセージ表示・非表示

シートの削除、ブックの終了時等
Application.DisplayAlerts = False
Application.DisplayAlerts = True

遂次実行

ＶＢＡ上での画面操作(行削除やテキスト変更等)を実際の画面で反映させる・させないの設定
Application.ScreenUpdating = False
Application.ScreenUpdating = True

Book

ActiveBookパス
ActiveWorkbook.Path

Book操作

新規Book開く
Workbooks.Add
既存Bookを開く
Workbooks.Open ("C:\Time.csv")
Set ObjTime = ActiveWorkbook.Worksheets(1)
保存して閉じる
ActiveWorkbook.Close SaveChanges:=True
Set ObjTime = Nothing
CSV形式で保存
ActiveWorkbook.SaveAs SavePath & "\" & "TEST", Excel.XlFileFormat.xlCSV
TEXT形式で保存
ActiveWorkbook.SaveAs SavePath & "\" & "TEST", Excel.XlFileFormat.xlCurrentPlatformText
ActiveWorkbook.SaveAs SavePath & "\" & "TEST", Excel.XlFileFormat.xlNormal
保存せずに終了
ActiveWorkbook.Close SaveChanges:=False

シート

Sheet情報

シート数
１枚の時：1。0という事はない
ReturnValue = ActiveWorkbook.Sheets.Count
ReturnValue = 1
シート名
ReturnValue = ActiveWorkbook.Worksheets(1).Name
ReturnValue = "Sheet1"

シート操作

新シート追加
ActiveWorkbook.Sheets.Add
全シートを削除
ActiveWorkbook.Sheets.Delete
シートコピー
ActiveSheets.Copy After:=Worksheets(1)
ActiveSheets.Copy Before:=Worksheets(1)
Book間シートコピー
ActiveWorkBook.WorkSheets(1).Copy After:=Workbooks("～").Worksheets(1)
ActiveWorkBook.WorkSheets(1).Move Before:=Workbooks("～").Worksheets(1)

行・列操作

～.Rows(1:1).Copy　'行のコピー
～.Rows(1:1).Cut　'行の切り取り
～.Columns("A:D").Copy　'列のコピー
～.Rows(2:2).Insert　'↑内容の貼り付け
先頭行の固定
～.Rows(2:2).Select
～.ActiveWindow.FreezePanes = True
～.Columns("A:D").ColumnWidth = 20　'列幅
～.Rows("2:2").RowHeight = 20　'行高
～.Rows(5).EntireColumn.AutoFit　'列幅自動調整
～.Columns(5).EntireRow.AutoFit　'行高自動調整

ヘッダー・フッター

With ActiveSheet.PageSetup
　.LeftHeader = Range("A1").Value　'ヘッダー文字
　.CenterHeader = Range("A2").Value
　.RightHeader = Range("A3").Value
　.LeftFooter = Range("A4").Value　'フッター文字
　.CenterFooter = Range("A5").Value
　.RightFooter = Range("A6").Value
End With

抽出

Range("A1:B5000").AdvancedFilter
　Action:=xlFilterCopy, _
　CriteriaRange:=Range("F1:F2"), _　'CriteriaRange … 検索条件
　CopyToRange:=Range("F4"), _　'CopyToRange … 検索結果出力先
　Unique:=False

ソート

Cells(1, 1)、Cells(1, 2)順に並び変え
Range("A1:E5").Sort key1:=Cells(1, 1), _　'キー
　order1:=xlAscending, _ '昇順
　key2:=Cells(1, 2), _
　order2:=xlAscending

フィルタリング

Range("A1:D500").AutoFilter
　Field:=2, _ 　'フィルタリング対象列番号
　Criteria1:=Array("1","2","3"), _ 　'Variant型の配列(↓参照)
　Operator:=xlFilterValues
※Dim Test(2) As Integer
Test(0) = 1 : Test(1) = 2 : Test(2) = 3
の時、Array("1","2","3") = Test

重複削除

ActiveSheet.Range("A1:D500").RemoveDuplicates Columns:=1, Header:=xlNo

オートシェイプ

絶対位置を取得。オートシェイプを配置する。
SX = Obj.Cells(2, 2).Left
SY = Obj.Cells(2, 2).Top + Obj.Cells(2, 2).Height / 2
EX = Obj.Cells(2, 5).Left
EY = Obj.Cells(2, 5).Top + Cells(2, 5).Height / 1
Set MyLine = Obj.Shapes.AddLine(SX, SY, EX, EY)　'描画

点線の矢印
Obj.Shapes.Range(MyLine.Name).Line.EndArrowheadStyle = msoArrowheadTriangle　'矢印に
Obj.Shapes.Range(MyLine.Name).Line.Weight = 0.75　'細さ
Obj.Shapes.Range(MyLine.Name).Line.DashStyle = msoLineDash　'点線に

セル

線引き

With Cells(1,1)
　.Borders(xlEdgeTop).LineStyle = xlLineStyleNone '線を消す
　.Borders(xlEdgeTop).LineStyle = xlContinuous　'上部に線を引く
　.Borders(xlEdgeBottom).LineStyle = xlContinuous　'下部に線を引く
　.Borders(xlEdgeLeft).LineStyle = xlContinuous　'左部に線を引く
　.Borders(xlEdgeRight).LineStyle = xlContinuous　'右部に線を引く
　.Borders.LineStyle = xlContinuous　'格子状に線を引く
　(例) Range(Cells(2,2),Cells(4,4)).Borders.LineStyle = xlContinuous

　.Borders.Weight = xlMedium　'周りの線を太線に
　.Borders.Weight = xlThick　'周りの線を極太線に

　線引きと色付けをまとめて
　Call .Range("A5").BorderAround(
　LineStyle:=xlContinuous, _
　Weight:=xlThick, _
　Color:=vbRed)
End With

結合

セルを結合する
Cells(1,1).Range(Cells(2,2),Cells(7,2)).Merge
結合しているか否か？
ReturnValue = Cells(1,1).Cells(2,2).MergeCells
ReturnValue = True
選択状態のセルの情報を取得
ReturnValue = Sellection.Row
ReturnValue = 2
(結合されている場合最上位行)
↑の法則を利用して結合セルの内容を取得
ReturnValue = Cells(Sellection.Row,2)
ReturnValue = "Header"

セル操作

選択状態に
Cells(3,2).Select
表の端のセルを参照
ReturnValue = Cells(2, 2).End(xlDown).Row
ReturnValue = 7
xlUp / xlDown / xlToLeft / xlToRight
指定のセルの相対位置のセルを参照
ReturnValue = Cells(2, 2).OffSet(5,0)
ReturnValue = Range("A5").OffSet(5,5)
ReturnValue = 7
Excelの関数を使用
Application.WorksheetFunction.～
Application.WorksheetFunction.SUM()
Application.WorksheetFunction.COUNT

通常方式のセル位置の文字列を取得
ReturnValue = .Cells(2, 2).Address
≠Ｒ１Ｃ１参照形式
ReturnValue = "$B$2"

書式

With Cells(1,1)
　.NumberFormatLocal = "[h]:mm"　時間設定(9:00)
　.NumberFormatLocal = "hh:mm"　'09:00
　.NumberFormatLocal = "@"　'文字列

　.VerticalAlignment = xlVAlignCenter　'センター表示
　.HorizontalAlignment = xlHAlignCenter　'センター表示
　.WrapText = True　'折り返して全体を表示する
　.Orientation = 0　'方向の角度
　.AddIndent = True　'前後にスペースを入れる
　.IndentLevel = 0　'インデントの数値
　.ShrinkToFit = True　'縮小して全体を表示する
　.ReadingOrder = xlContext　'文字の方向

　.Cells(1,1).Interior.Color = VbRed　背景色

　.Cells(1,1)Font.Size = 5　'文字サイズ
　.Cells(1,1)Font.Bold = True　'太字
　.Cells(1,1)Font.Color = VbRed　'文字色
End With