VBA

FrontPage

VBA

• 実行時エラー

• 424 オブジェクトが必要です

Sub関数で引数1つで引数がオブジェクト型の場合、引数を括弧で括るとエラーになる。

Callをつけるか括弧を消す。

• 構文チェック

• 修正候補: =

Sub関数で引数2つ以上の場合、引数を括弧で括るとエラーになる。

Callをつけるか括弧を消す。

• Util

• セルのマージ（横）

  Sub mergeCell()
  
     Dim i As Integer
     Dim j As Integer
     
     Application.ScreenUpdating = False
     
     For i = Selection(1).Row To Selection(Selection.Count).Row
         Range(Cells(i, Selection(1).Column), Cells(i, Selection(Selection.Count).Column)).MergeCells = True
     Next i
  
     Application.ScreenUpdating = True
  
  End Sub

• シートのコピー

  Sub sheetCopy()
  
     Dim i As Integer
     
     Application.ScreenUpdating = False
     
     For i = 1 To 84
         Worksheets("Sheet2").Copy Before:=ThisWorkbook.Worksheets("Sheet2")
         ActiveSheet.Name = Worksheets("Sheet1").Cells(i, 1).Value
         ActiveSheet.Cells(1, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value
     Next i
  
     Application.ScreenUpdating = True
  
  End Sub