Thay 1 đoạn Code = Name Manager

[dongducnhiem]

Chào các bạn!
Tôi có 1 file và trong đó có 1 sheet tên "Tonghop"
Tôi muốn xóa Fill Color và Font Color trong cột A từ A1-> A1000 bằng code sau

Sub Xoa()
    Sheets("Tonghop").Range("A1:A1000").Font.ColorIndex = 1
    Sheets("Tonghop").Range("A1:A1000").Interior.ColorIndex = xlNone
End Sub

Code trên thì chạy bình thường
Bây giờ tôi đặt một Name Manager là
Test=Tonghop!$A$1:$A$1000
và sửa code trên thành

Sub Xoa1()
    Dim Test As Range
    Test.Font.ColorIndex = 1
    Test.Interior.ColorIndex = xlNone
End Sub

Thì code Xoa1 bị báo lỗi
Cho tôi hỏi tôi muốn làm như trên thì phải làm sao? Cảm ơn các bạn

 

[ppc0312]

Sub Xoa()
    Sheets("Tonghop").Range("Test").Font.ColorIndex = 1
    Sheets("Tonghop").Range("Test").Interior.ColorIndex = xlNone
End Sub

hoac

Sub Xoa()
    With Range("Test")
            .Font.ColorIndex = 1
            .Interior.ColorIndex = xlNone
     End With
End Sub

 

[ndu96081631]

Chào các bạn!
Tôi có 1 file và trong đó có 1 sheet tên "Tonghop"
Tôi muốn xóa Fill Color và Font Color trong cột A từ A1-> A1000 bằng code sau

Sub Xoa()
    Sheets("Tonghop").Range("A1:A1000").Font.ColorIndex = 1
    Sheets("Tonghop").Range("A1:A1000").Interior.ColorIndex = xlNone
End Sub

Code trên thì chạy bình thường
Bây giờ tôi đặt một Name Manager là
Test=Tonghop!$A$1:$A$1000
và sửa code trên thành

Sub Xoa1()
    Dim Test As Range
    Test.Font.ColorIndex = 1
    Test.Interior.ColorIndex = xlNone
End Sub

Thì code Xoa1 bị báo lỗi
Cho tôi hỏi tôi muốn làm như trên thì phải làm sao? Cảm ơn các bạn

Bạn phải sửa thành :

Sub Xoa1()
    Dim Test As Range
    Set Test = Sheets("Tonghop").Range("Test")
    Test.Font.ColorIndex = 1
    Test.Interior.ColorIndex = xlNone
End Sub

Hoặc

Sub Xoa1()
    With Sheets("Tonghop").Range("Test")
      .Font.ColorIndex = 1
      .Interior.ColorIndex = xlNone
    End With
End Sub

 

[dongducnhiem]

Cảm ơn các bạn