thắc mắc Xin giúp Vba - pivot table với field có tên dài

UserZ · Sep 21, 2022

Tình hình là mình phải hốt c*t hộ một thằng hốt c*t khác :beat_shot:

Nói chung dùng vba bình thường, nhưng có vấn đề là nếu cột nào tên nó dài quá 254 ký tự thì khi set orientation cho pivot field sang xlDataField sẽ bị văng excel khi chạy. :cry:

Code:

columnField = "Một cái tên dài vãi cả lozl, hơn 254 ký tự cơ ý!!! ><"
With pivTable.PivotFields(columnField)
        .Orientation = xlDataField 'văng cmn ra ngoài :((((((
        .Position = 1       
End With

Hiện tại thì xài tạm giải pháp rename lại cái tên cột trên file excel, pivot xong đặt lại như cũ, tuy nhiên cách này chỉ thể hiện cái khôn vặt thôi!

Xin các cao nhân cách khắc phục :pudency:

ht55cd3 · Sep 21, 2022

Fen up hình minh hoạ và full đoạn code đc ko nhỉ.

UserZ · Sep 21, 2022

ht55cd3 said:
Fen up hình minh hoạ và full đoạn code đc ko nhỉ.

gửi fen code, hình thì không biết up kiểu gì, chạy đến Orientation là nó tắt phụp luôn:

Code:

    pivotSheet.Activate

    For i = 0 To ListBox1.ListCount - 1 'các field cần đếm trong pivot table lưu tại ListBox1
        ListBox1.Selected(i) = True  'đánh dấu field xử lý
        Set pTable = pCache.CreatePivotTable(pivotSheet.Cells(i * 15 + 1, 1), "pivotTbl" & i)
        columnField = ListBox1.List(i)

        pTable.AddFields RowField, columnField

        With pTable.PivotFields(columnField) 'list field có tên dài thì sập, field tên ngắn chạy ok
            .Orientation = xlDataField
            .Position = 1
        End With
        
        pTable.TableStyle2 = "PivotStyleLight22"
    Next i
    pivotSheet.Columns(1).ColumnWidth = 60
    pivotSheet.Range("A:A").WrapText = True

NguyenDang95 · Sep 21, 2022

Thấy trên Stack Overflow có nói là, tên trường dài quá 255 ký tự thì VBA sẽ bị crash.
https://stackoverflow.com/questions/49015654/excel-crash-and-needs-to-restart-when-editing-pivot
Có thể đây là giới hạn của VBA.

UserZ · Sep 21, 2022

NguyenDang95 said:
Thấy trên Stack Overflow có nói là, tên trường dài quá 255 ký tự thì VBA sẽ bị crash.
https://stackoverflow.com/questions/49015654/excel-crash-and-needs-to-restart-when-editing-pivot
Có thể đây là giới hạn của VBA.

Bí quá chắc chơi bài thêm dòng rồi label giả cầy vậy, cái pivot tạo xong cũng ko cần update. :surrender:

cảm ơn các thím :sweet_kiss:

thắc mắc Xin giúp Vba - pivot table với field có tên dài

UserZ

Senior Member

ht55cd3

Senior Member

UserZ

Senior Member

NguyenDang95

Senior Member

UserZ

Senior Member

Similar threads

Share this page