Anh chị giúp em chạy biểu đồ và bảng phân tích vì có nhiều đoạn Code khó hiểu

[katsu177]

Ki em thay đổi dữ liệu nhưng biểu đồ và bảng phân tích thay dổi không giống như ý muốn của form định sẵn
Anh chị gúp em với
Xem file đính kèm để rõ hơn nghe.

 

[katsu177]

Sao không có người trả lời vậy
Không ai giúp được mình sao
Cái này người nước ngoài làm nên mình không hiểu lắm
Nhưng giờ họ về nước mát rồi
Các cao thủ về Code giúp tôi với

 

[SA_DQ]

Hình như đang thiêu thiếu cái gì dấy, không chừng

Bấm nút nào cũng báo lỗi macro:
Ví dụ nút 'Boiler':

    ActiveSheet.PivotTables("Çǹþ Å×À̺í3").PivotFields("Location").CurrentPage = _
        "Boiler"

Còn nút 'All' nó bảo thiếu hẵn macro gì gì đó... .

Có khi nào fải chạy được những macro đó mới có dữ liệu cho biểu đồ không?
Do mình bấm tìm dữ liệu nguồn của biểu đồ trên cùng thì thấy ghi dữ liệu nguồn: =Table!$A$29:$F$41

. . . . chưa hiểu hết?!?!?!

 

[ptm0412]

Lý do là VBA không chịu hiểu chữ Tàu chữ Nhật chữ Miên, Trước đó người khác xài được, có lẽ họ xài trên máy của họ với Windows phiên bản ngôn ngữ của họ.
Bây giờ : Chạy code, báo lỗi dòng lệnh filter cho Pivot Table nào, đi tìm cái Pivot Table đó, sửa tên Pivot Table đó bằng mẫu tự Latinh, đồng thời sửa luôn tên mới vào dòng Code đó.

Thí dụ báo lỗi câu lệnh:
ActiveSheet.PivotTables("피벗 테이블11").PivotFields("Location").CurrentPage = "Boiler"

Thì để nguyên đó, quay sang sheet, sửa tên cái Pivot tại ô M87 thành abc11, và sửa câu lệnh thành

ActiveSheet.PivotTables("abc11").PivotFields("Location").CurrentPage = "Boiler"

Ghi chú: Thay tên Pivot Table bằng cách thay Name trong Table Option.

Còn nút All cũng rứa. Tìm Sub nào có tên "Sub Đọc_hiểu_chết_liền ()", sửa lại bằng mẫu tự Latinh, sau đó gán Macro đó vào nút All.

 

[katsu177]

Có bác nào thử sửa mà nó chạy được không
tôi làm thử mà nó chẳng chạy được
VB tôi lại yếu nữa
chán thật đó

 

[ptm0412]

Code Record macro, thấy ghê quá. Dư cả ngàn dòng các câu lệnh scrollWindow. Không sửa hết được, thôi đành chỉ find and replace.
Bạn rảnh bạn xoá hết dùm các câu lệnh Scroll nhé.
Đồng thời thêm vào tất cả đầu code và cuối code các câu lệnh: (thí dụ sub All)

Sub All()
Application.ScreenUpDateting = False
....
Application.ScreenUpdateting = True
End Sub

Còn cái nút Refresh, chả biết viết code ra sao, nhấn vào 1 cái mất toi 1 bảng dữ liệu.

Sao ghét tên file dài ngoằng đến thế!