Cách xóa nhanh!

[vietcong1980]

Chào tất cả các bạn! Các bạn có cách nào xóa nhanh những ô bôi màu vàng trong file đính kèm này không?. Dùng cách gì cũng được(macro, VBA...). Tháng nào mình cũng xóa những ô đó để điền dữ liệu mới vào(có nhiều file phải xóa như thế). Cám ơn các bạn!

 

[buithinhvan77]

Chào tất cả các bạn! Các bạn có cách nào xóa nhanh những ô bôi màu vàng trong file đính kèm này không?. Dùng cách gì cũng được(macro, VBA...). Tháng nào mình cũng xóa những ô đó để điền dữ liệu mới vào(có nhiều file phải xóa như thế). Cám ơn các bạn!

Dùng một macco xóa là xong!

 

[ndu96081631]

Chào tất cả các bạn! Các bạn có cách nào xóa nhanh những ô bôi màu vàng trong file đính kèm này không?. Dùng cách gì cũng được(macro, VBA...). Tháng nào mình cũng xóa những ô đó để điền dữ liệu mới vào(có nhiều file phải xóa như thế). Cám ơn các bạn!

Không gì dễ bằng nếu dùng Find and replace
Xem đoạn video clip dưới đây:

[video=youtube;dEl00V3Pz_g]http://www.youtube.com/watch?v=dEl00V3Pz_g&feature=youtu.be[/video]

 

[hoangvuluan]

Dũng macro sau:

Sub xoadulieu()
Dim c As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
    For Each c In ActiveSheet.UsedRange
        If c.Interior.ColorIndex = 6 Then
            c.Value = ""
        End If
    Next
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

 

[ndu96081631]

Dũng macro sau:

Sub xoadulieu()
Dim c As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
    For Each c In ActiveSheet.UsedRange
        If c.Interior.ColorIndex = 6 Then
            c.Value = ""
        End If
    Next
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Theo nhưng cách dùng Find and Replace như trên, nếu viết code mình sẽ viết thế này:

Sub Test()
  Application.FindFormat.Interior.ColorIndex = 6
  Cells.Replace "", "", xlPart, , False, , True, False
End Sub

Có thể tốc độ nhanh hơn chăng?

 

[buithinhvan77]

Theo nhưng cách dùng Find and Replace như trên, nếu viết code mình sẽ viết thế này:

Sub Test()
  Application.FindFormat.Interior.ColorIndex = 6
  Cells.Replace "", "", xlPart, , False, , True, False
End Sub

Có thể tốc độ nhanh hơn chăng?

Hi cách nào bác làm xóa màu vàng cũng hay cả nhưng theo mình thì tác giả muốn xóa số liệu ở các ô mặc định màu vàng, nhưng trong bảng lương thì chắc không ai để cái màu đó nhỉ?

 

[ndu96081631]

Hi cách nào bác làm xóa màu vàng cũng hay cả nhưng theo mình thì tác giả muốn xóa số liệu ở các ô mặc định màu vàng, nhưng trong bảng lương thì chắc không ai để cái màu đó nhỉ?

Tôi đâu có biết! Yêu cầu sao tôi làm vậy
Chừng nào người ta yêu cầu khác hơn, chắc chắn người ta sẽ nói
(nếu không đúng yêu cầu thì xem như là tham khảo vậy)

 

[vietcong1980]

Không gì dễ bằng nếu dùng Find and replace
Xem đoạn video clip dưới đây:

[video=youtube;dEl00V3Pz_g]http://www.youtube.com/watch?v=dEl00V3Pz_g&feature=youtu.be[/video]

Cách của bạn rất thú vị. Nhưng mình bôi màu vàng đó là để các bạn biết rằng đó là những vị trí mặc định hàng tháng cần phải xóa. Bạn có cách nào để có thể có thể dùng tương tự như thế mà khi in ra không thể hiện màu không? Mình đang dùng cách của bạn buithinhvan77, nhưng cách đó lâu quá, mình vẫn chưa làm xong cho rất nhiều sheet(Các macro của các bạn khác cũng rất tốt, tuy nhiên lại dựa theo màu mình bôi nên không dùng được nếu như cũng có cách nào khi in ra không hiện màu thì tốt quá!)
P/s: Mình đã làm theo như video, nhưng không hiểu tại sao khi bấm replace thì lại có thông báo là không có dữ liệu để thay thế. Bạn giúp mình nhé!

 

[be_09]

Bạn hãy sử dụng cách này, nhấn Ctrl+A (chọn cả bảng tính) rồi vào Fill Color chọn No Fill rồi chọn In, In xong bạn vào Undo để trả về nguyên trạng và nhấn nút Lưu là xong.