.LineStyleと.Weight-VBA-

Question

で書式設定エラーが発生しました。このコードを実行してワークブック内の書式を修正していますが、場合によっては正常に動作しているようですが、他の場合は「1004エラー」msg .Linestyleまたは.Weight。ここで間違っている可能性のあることについては、誰でも何か提案がありますか？どうもありがとう！

「範囲With Sheets("Sheet1")... End With内部設定し、フォーマット

Columns("A:D").AutoFit` 

With Sheets("Sheet1")` 
    .Cells.Font.Size = 8` 
End With` 

Set rng1 = Columns("A:F")` 
Set rng2 = Rows("1:10")` 

With rng1.Borders` 
    .LineStyle = xlContinuous` 
    .Weight = xlHairline` 
End With` 

With rng2.Borders` 
    .LineStyle = xlNone` 
End With` 

Answer 1

を修正&列の幅を合わせます。

With Sheets("Sheet1") 
    .Columns("A:D").AutoFit 
    .Cells.Font.Size = 8 
    Set rng1 = .Columns("A:F") 
    Set rng2 = .Rows("1:10") 
End With 

With rng1.Borders 
    .LineStyle = xlContinuous 
    .Weight = xlHairline 
End With` 

With rng2.Borders 
    .LineStyle = xlNone 
End With 

With ... End Withを離したときに親ワークシートの関連付けが失われました。