0

セルのグループのフォーマットを設定するマクロを実行しています。

Public LastRow as Integer
Sub Formatting()
    LastRow = 20
    With ThisWorkbook.Sheets("Sheet1").Range("A15:" & "AA" & LastRow)
        .Borders.Weight = xlThin
    End With
End Sub

マクロを初めて実行すると動作しますが、2 回目に実行時エラー '1004': Unable to set the Weight property of the Borders クラスが表示されます。

また、影響を受けるセルの境界を手動で変更することはできません。何が起こっているのかわかりません。私はExcel 2010を実行しています

前もって感謝します、

4

1 に答える 1

1

いくつかのこと

  1. これにはを使用しないでくださいFunction。を使用しSubます。Function何かを返したいときに使用します
  2. 変数/オブジェクトを完全に修飾する
  3. LastRow私はあなたがどこの値を設定しているのを見ません。

これを試して

Sub Formatting()
    Dim LastRow As Long
    LastRow = 20

    '~~> Change Sheet1 to the relevant sheetname or use Code Name
    With ThisWorkbook.Sheets("Sheet1").Range("A15:" & "AA" & LastRow)
        .Borders.Weight = xlThin
    End With
End Sub
于 2012-08-31T05:12:52.663 に答える