Excel VBAの作法コピペ素材

少々ExcelVBAを使うことがありましたので、備忘録として記載しておきます。

自分自身のブック

ThisWorkbook.Sheets("シート名").Range("アドレス(A1など)")

ThisWorkbook.Sheets("シート名").Cells(行番号,列番号)

セルの指定

Workbooks("エクセルファイル名(フォルダ名は含まない)")_ 
  .Sheets("シート名").Range("アドレス(A1など)")

Workbooks("エクセルファイル名(フォルダ名は含まない)")_
  .Sheets("シート名").Cells(行番号,列番号)

複数プロパティーの指定

With Workbooks("エクセルファイル名(フォルダは含まれない)")_ 
 .Sheets("シート名").Range("アドレス(A1など)")
   .Value = "12000"
   .Formula = "#,##0"
End With

エクセルファイル名にはフォルダ名は含まない。拡張子は必ずつけたほうが良い。（拡張子を省略した場合、エクスプローラの「登録済の拡張子は表示しない」とした場合で動作が異なる場合あり？）

複数シートの選択

Workbooks("エクセルファイル名(フォルダ名は含まない)")_ 
    .Sheets(Array("シート1","シート2")).Select

シート3,シート4と続く場合は、Arrayの中に追加する。

複数シートの選択解除

Workbooks("エクセルファイル名(フォルダ名は含まない)")_ 
    .Sheets(1).Select

一番フロントのシートを選択状態にしたほうが良いかもしれません。

選択中のシートを調べる

選択中のシート数を調べる。

Windows(Workbooks("エクセルファイル名(フォルダ名は含まない)").Name)_
     .SelectedSheets.Count

選択中のシート名を一覧する。

For Each sh In Windows( _
  Workbooks("エクセルファイル名(フォルダ名は含まない)").Name).SelectedSheets 
   MsgBox sh.Name
Next

シートの順序入れ替え

With Workbooks("エクセルファイル名(フォルダ名は含まない)")
      .Sheets("移動対象シート").Move Before:= .Sheets("シート")
End With

移動対象シートをシート名の前に移動する。後ろに移動する場合はBeforeの箇所にAfterを指定する。

異なるワークブックからシートをコピー

With Workbooks("エクセルファイル名(フォルダ名は含まない)")
   .Sheets("コピー対象シート").Copy Before:= _ 
  Workbooks("コピー先エクセルファイル名(フォルダ名は含まない)").Sheets("コピー先シート")
End With

コピー先シートの前にコピー対象シートをコピーする。後ろにコピーする場合、Beforeの箇所にAfterを指定する。

セルコピー

With Workbooks("エクセルファイル名(フォルダ名は含まない)")
  .Sheets("コピー元シート").Range("セル範囲(A1:A2など)").Copy _ 
    .Sheets("コピー先シート").Range("セル範囲(B1:B2など)")
End With

Copyメソッドは必ずクリップボードが使われます。 MS Excel VBA Range.Copyリファレンスには、コピー先を省略した場合、クリップボードにコピーされますとありますが、コピー先を指定してもクリップボードが使われます。注意してください。

描画停止/再開

停止

Application.Screenupdateing = False

再開

Application.Screenupdateing = True

計算停止/再開

停止

Application.calculation = xlManual

再開

Application.calculation = xlAuto

プリンタとの通信を停止/再開

停止

Application.PrintCommunication = False

再開

Application.PrintCommunication = True

停止するとPageSetupの高速化が図れる。ただし、当該プロパティはExcel2010より前のバージョンには存在しないので注意。

プロパティーの存在チェック

少々雑なコードですが...PrintCommunicationがあるかどうか調べています。

  If hashasPrintCommunication(Application) Then
   MsgBox "PrintCommunicationあります"
Else
   MsgBox "PrintCommunicationありません"
End If
Function hasPrintCommunication(o As Object) As Boolean
   On Error Goto hasPrintCommunication_error:
   Dim s As Boolean
   s = o.PrintCommunication
   hasPrintCommunication = True
hasPrintCommunication_exit:
   Exit Function
hasPrintCommunication_error:
   Resume hasPrintCommunication
End Function

プロパティの存在チェックを調べたところ、TypeLib Informationを使って調べる方法があるようです。こちらは今後使ってみます。