M
MrAB
Guest
- 14/11/15
- 3
- 0
- 1
- 29
Em có đi phỏng vấn kế toán , người ta đưa em cái này để làm , mà hồi giờ k học nên không biết phải làm như thế nào .. có Pro nào giúp e giải nó với ạ ...
[TBODY] [/TBODY]
1/ Bạn nhận được 1 file excel có chứa 1 đoạn code VBA và được yêu cầu làm theo hướng dẫn để sử dụng các tính năng có được từ đoạn code đó. |
Khi bạn sử dụng, bạn được thông báo code lỗi. |
a/ Bạn sử dụng phím tắt nào để vào khu vực sủa lỗi và thoát ra khỏi khu vực sửa lỗi? |
b/ Bạn vui lòng dịch đoạn mã bên dưới theo từng dòng thành ngôn ngữ bình thường mô tả các thao tác excel mà đoạn mã biểu thị để mọi người có thể hiểu? Code 1 Sheets("independent").Select With Sheets("independent") Rows("7:7").Select Range("A7:BD1048500").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("S2:S3"), Unique:=False Range("A8:A1000000").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets("Week").Select Range("A86").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With Code 2 Dim ws As Worksheet Set ws = Workbooks("ReportEx - Normal - OLD Only").Sheets("week") Application.CutCopyMode = False ws.Copy Code 3 path = "E:\Report\w31-6.9.2015\" fileName = Range("D4") & " - w31.8-6.9.2015" ActiveWorkbook.SaveAs fileName:=path & fileName & ".xlsb", FileFormat:=xlExcel12 |