babyheomoi
Thành viên thường trực
- Tham gia
- 22/9/13
- Bài viết
- 395
- Được thích
- 91
Em có 1 file dữ liệu, mày mò theo kiểu record marco đồn thời với chút kiến thức ít ỏi VBA! tuy nhiên, e sửa code thì nó lại debug!!
Em gửi file và code lên cho mọi nguồi tham khảo và sửa hộ em! Đồng thồi có các cách nào giúp em làm gọn code!
Yeu cầu:
1. Copy all dữ liệu từ data sang sheet kế bền
2. Loc cột E chỉ lấy "BUITHIXUAN" và cột O không lấy "A"
3. Hide các cột không cần thiết đi, chỉ để lại các cột E, F, H, N, O, R, AJ, BB, BD, và BI
Va đây là code e record và sửa lại tí
Tuy nhiên, code bị debug ở dòng thứ 3
Còn nữa, đây là file e làm!
https://drive.google.com/file/d/0B_nKNXGAOSxaQklZMnVYQVJUMFk/view?usp=sharing
Với yếu cầu như trên, e biết sẽ có nhiều cách code rất ngắn và nhanh!
Nên mong nhận được góp ý của mọi người!
Thanks
Em gửi file và code lên cho mọi nguồi tham khảo và sửa hộ em! Đồng thồi có các cách nào giúp em làm gọn code!
Yeu cầu:
1. Copy all dữ liệu từ data sang sheet kế bền
2. Loc cột E chỉ lấy "BUITHIXUAN" và cột O không lấy "A"
3. Hide các cột không cần thiết đi, chỉ để lại các cột E, F, H, N, O, R, AJ, BB, BD, và BI
Va đây là code e record và sửa lại tí
Mã:
Sub Locdata()'
' Locdata Macro
'
Range("A1:CI5304").Select
Range("BX5280").Activate
Selection.Copy
Sheets("qua han").Select
Range("A1").Select
ActiveSheet.Buttons.Add(62.4, 16.8, 110.4, 0).Select
ActiveSheet.Paste
Range("$A$1:$CI$10000").AutoFilter Field:=5, Criteria1:= _
"BUITXUAN"
Range("$A$1:$CI$10000").AutoFilter Field:=15, Criteria1:=Array( _
"B", "C", "D", "E", "Blank"), Operator:=xlFilterValues
Range("A1:CI10000").Copy
Columns("B:D").ColumnWidth = 6.09
Columns("E:E").ColumnWidth = 15
Columns("F:F").ColumnWidth = 25.55
Columns("I:I").ColumnWidth = 18.55
Columns("J:M").EntireColumn.Hidden = True
Columns("Q:AA").EntireColumn.Hidden = True
Columns("AB:BA").Select
Range("BA1").Activate
Selection.EntireColumn.Hidden = True
Columns("AK:BA").Select
Range("BA1").Activate
Selection.EntireColumn.Hidden = True
Columns("AB:AI").Select
Selection.EntireColumn.Hidden = True
Columns("BK:CI").EntireColumn.Hidden = True
Columns("A:E").EntireColumn.Hidden = True
Columns("I:I").ColumnWidth = 15.73
ActiveWindow.FreezePanes = True
Columns("N:N").ColumnWidth = 4.55
Columns("O:O").ColumnWidth = 4.18
Columns("P:P").ColumnWidth = 5.73
Columns("BE:BG").EntireColumn.Hidden = True
Columns("BJ:BJ").EntireColumn.Hidden = True
Range("BI2").Select
ActiveWindow.ScrollColumn = 36
Range("BC3").Select
Columns("AJ:AJ").ColumnWidth = 15
Columns("AJ:AJ").ColumnWidth = 14.45
Columns("BB:BB").ColumnWidth = 12.45
Columns("BC:BC").ColumnWidth = 12.45
Columns("BD:BD").ColumnWidth = 11.82
Columns("BH:BH").ColumnWidth = 11.64
Columns("BB:BD").NumberFormat = "#,##0"
Columns("BH:BH").EntireColumn.Hidden = True
Columns("BC:BC").EntireColumn.Hidden = True
Range("A1").Select
End SubEm chưa biết sửa sai cho nó chạy! Mọi người giúp em nhé!
Còn nữa, đây là file e làm!
https://drive.google.com/file/d/0B_nKNXGAOSxaQklZMnVYQVJUMFk/view?usp=sharing
Với yếu cầu như trên, e biết sẽ có nhiều cách code rất ngắn và nhanh!
Nên mong nhận được góp ý của mọi người!
Thanks
