Rút gọn dùm code (1 người xem)

[vanquangdy]

Chào các AC trên diễn đàn, tôi có một macro dùng để xóa các cột c và D trong các sh (TongHop, Noitru, ngoaitru) nhưng tôi thấy code của mình dài quá không biết như thế nào cho đúng. nhờ ACE rút gọn dùm, cám ơn nhiều

Sub Xoa()
Sheets("TongHop").Visible = xlSheetVisible
Sheets("noitru").Visible = xlSheetVisible
Sheets("ngoaitru").Visible = xlSheetVisible
Sheets("TongHop").Select
Range("C8210").Select
Selection.ClearContents
Sheets("noitru").Select
Range("C8:C210").Select
Selection.ClearContents
Sheets("ngoaitru").Select
Range("C8:C210").Select
Selection.ClearContents
Sheets("TongHop").Visible = xlSheetVeryHidden
Sheets("noitru").Visible = xlSheetVeryHidden
Sheets("ngoaitru").Visible = xlSheetVeryHidden
End Sub

 

[SAODOINGOI_XD]

Chào các AC trên diễn đàn, tôi có một macro dùng để xóa các cột c và D trong các sh (TongHop, Noitru, ngoaitru) nhưng tôi thấy code của mình dài quá không biết như thế nào cho đúng. nhờ ACE rút gọn dùm, cám ơn nhiều

Có thể rút gọn như sau:
Sub Xoa()
Sheets("TongHop").Visible = xlSheetVisible
Sheets("noitru").Visible = xlSheetVisible
Sheets("ngoaitru").Visible = xlSheetVisible
Sheets("TongHop").Range("C8210").ClearContents
Sheets("noitru").Range("C8:C210").ClearContents
Sheets("ngoaitru").Range("C8:C210").ClearContents
Sheets("TongHop").Visible = xlSheetVeryHidden
Sheets("noitru").Visible = xlSheetVeryHidden
Sheets("ngoaitru").Visible = xlSheetVeryHidden
End Sub

 

[huuthang_bd]

Chào các AC trên diễn đàn, tôi có một macro dùng để xóa các cột c và D trong các sh (TongHop, Noitru, ngoaitru) nhưng tôi thấy code của mình dài quá không biết như thế nào cho đúng. nhờ ACE rút gọn dùm, cám ơn nhiều

Sub Xoa()
Sheets("TongHop").Visible = xlSheetVisible
Sheets("noitru").Visible = xlSheetVisible
Sheets("ngoaitru").Visible = xlSheetVisible
Sheets("TongHop").Select
Range("C8210").Select
Selection.ClearContents
Sheets("noitru").Select
Range("C8:C210").Select
Selection.ClearContents
Sheets("ngoaitru").Select
Range("C8:C210").Select
Selection.ClearContents
Sheets("TongHop").Visible = xlSheetVeryHidden
Sheets("noitru").Visible = xlSheetVeryHidden
Sheets("ngoaitru").Visible = xlSheetVeryHidden
End Sub

Bạn chỉ cần viết như thế này thôi:

Sub Xoa()
Sheets("TongHop").[C8:D210].ClearContents
Sheets("noitru").[C8:D210].ClearContents
Sheets("ngoaitru").[C8:D210].ClearContents
End Sub