Tại sao ghi macro xong lại không chạy được

[trongdungs]

Chào các anh/chị và các bạn,

Nhờ các anh/chị và các bạn trợ giúp về lỗi sau:

Tôi có ghi lại macro về tao tác sắp xếp dữ liệu trong pivortable. Sau khi ghi xong, chạy thì báo lỗi, không chạy được.

Kết quả ghi macro tự động:

Sub capnhatbieu10V2()
'
' capnhatbieu10V2 Macro
'

'
    ActiveSheet.PivotTables("B10_Pivort").PivotFields("Ch? truong ÐT").AutoSort _
        xlAscending, "Nh? nh?t cu?a dánh s? th? t?", ActiveSheet.PivotTables( _
        "B10_Pivort").PivotColumnAxis.PivotLines(1), 1
    ActiveWindow.SmallScroll Down:=-2
    Range("I15").Select
    ActiveSheet.PivotTables("B10_Pivort").PivotFields("QPAN/KTXH").AutoSort _
        xlAscending, "Nh? nh?t cu?a dánh s? th? t?", ActiveSheet.PivotTables( _
        "B10_Pivort").PivotColumnAxis.PivotLines(1), 1
    Range("I14").Select
    ActiveSheet.PivotTables("B10_Pivort").PivotFields("KHSDÐ c?p").AutoSort _
        xlAscending, "Nh? nh?t cu?a dánh s? th? t?", ActiveSheet.PivotTables( _
        "B10_Pivort").PivotColumnAxis.PivotLines(1), 1
    Range("J18").Select
    ActiveSheet.PivotTables("B10_Pivort").PivotFields("Tên công trình").AutoSort _
        xlAscending, "Min of Rowid", ActiveSheet.PivotTables("B10_Pivort"). _
        PivotColumnAxis.PivotLines(2), 1
End Sub

khi chạy maro thì báo lỗi này

 

[ptm0412]

Cái nhìn thấy đầu tiên là VBA không chấp nhận tiếng Việt có dấu. Tên fields nên đặt tiếng Anh, hoặc tiếng Việt không dấu.

 

[trongdungs]

Cái nhìn thấy đầu tiên là VBA không chấp nhận tiếng Việt có dấu. Tên fields nên đặt tiếng Anh, hoặc tiếng Việt không dấu.

Cho em hỏi, nếu không xử lý được tiếng Việt thì khi dữ liệu được khai báo dưới dạng bảng, có tiêu đề bằng tiếng Việt sẽ không xử lý được bằng macro à?

 

[ptm0412]

Cho em hỏi, nếu không xử lý được tiếng Việt thì khi dữ liệu được khai báo dưới dạng bảng, có tiêu đề bằng tiếng Việt sẽ không xử lý được bằng macro à?

Dùng giá trị trên sheet. Thí dụ tiêu đề dòng 1, từ cột A đến cột D.
Khi code sẽ dùng PivotFields(range("C1").Value)