VBAマクロ

VBAマクロ

お知らせ：当社は、お客様により充実したサポート情報を迅速に提供するため、本ページのコンテンツは機械翻訳を用いて日本語に翻訳しています。正確かつ最新のサポート情報をご覧いただくには、本内容の英語版を参照してください。

マクロの作成

マクロを作成するには。
  1. ［開発者］→［マクロを作成］に移動します
  2. 表示されたダイアログで、マクロの名前と説明を入力し、［作成］をクリックします。
  3. VBAエディターにコードを入力します。
  4. ［保存］をクリックします。

マクロ作成に役立つサンプルコード

行の非表示と再表示

  1. Sub HideUnhideRowColumn()
  2. Sheets('Sheet1').Columns('A:E').Hidden = True
  3. Sheets('Sheet1').Columns('C:D').Hidden = False
  4. Sheets('Sheet1').Rows('11:15').Hidden = True
  5. Sheets('Sheet1').Rows('12:13').Hidden = False
  6. End Sub

行の切り取り、コピー、貼り付け

  1. Private Sub CopyCutRow()
  2. WorkSheets('Sheet1').Rows(2).Copy WorkSheets('Sheet1').Rows(4) //行2をコピーして行4に貼り付けます
  3. WorkSheets('Sheet2').Rows(2).Cut WorkSheets('Sheet1').Rows(4)//行2を切り取って行4に貼り付けます
  4. End Sub

セルの値の変更に基づくメール送信

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Set watchRange = Range('B1:B100') '監視対象のセルの範囲を次のように想定します
  3. If Not Intersect(Target,watchRange) Is Nothing Then
  4. If Target.Value = 'Send Mail' Then
  5. ThisWorkbook.HasRoutingSlip = True
  6. With ThisWorkbook.RoutingSlip
  7. .Recipients = Array('SendEmail@zoho.com') '複数の受信者にメールを送信できます
  8. .Subject = 'タスクが完了しました'
  9. .Message = 'メール本文' & Target.Row 'メールでセルの値を送信します
  10. .AttachWorkbook = True
  11. '初期設定では、ファイルがメールに添付されます。添付が不要な場合は、
  12.         ' .AttachWorkbookをFalseに設定します。
  13. End With
  14. ThisWorkbook.Route
  15. End If
  16. End If
  17. End Sub
   

ワークブックを開くイベントと新しいシートの作成イベント
   

  1. REM ThisWorkbookモジュール

  3. Private Sub Workbook_Open()
  4. Msgbox('ワークブックを開くイベントです',-1,'おかえりなさい！')
  5. End Sub
  6. Private Sub Workbook_NewSheet(ByVal sh As Object)
  7. Msgbox('新しいシートの作成イベントです。シートを作成しました！',-1,'名前を付けてください')
  8. End Sub

ワークシートの変更イベント
   

  1. REM シートモジュール

  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4. Application.EnableEvents = false
  5. On Error Goto ENEV
  6. REM 以下にコードを追加します
  7. Msgbox('変更イベントです',-1,'適切な変更です！')
  8. ENEV:
  9. Application.EnableEvents = true
  10. End Sub

マクロを記録するには

マクロを使用すると、日常的なタスクを自動化できます。毎日同じ書式設定を適用する場合は、その操作をマクロとして記録できます。
マクロを記録するには。
  1. ［開発者］→［マクロの記録］に移動します。
  2. 入力項目に名前と説明を入力します。
  3. 必要に応じて、［相対参照を使用する］にチェックを入れるか、チェックを外します。
  4. ［記録］をクリックします。
  5. 記録を停止するには、［停止］アイコンをクリックします。
  6. 記録したマクロをVBAエディターで表示するには、［コードの表示］をクリックします。表計算シート内のすべてのマクロを表示するには、［マクロ一覧］をクリックします。
Notes
絶対参照 - セルは$Column_Number$Cell_Numberの形式で参照されます。つまり、マクロは記録時に使用したものと同じセルで実行されます。
 
相対参照 - セルは「$」による固定なしで参照されます。つまり、マクロは実行場所を基準とした相対位置のセルで実行されます。