Thay đổi dữ liệu cần phân tích

Dữ liệu của ta không chỉ có doanh thu, mà còn có lợi nhuận. Sếp bắt ta phân tích cả lợi nhuận nữa. Không nhất thiết phải có 2 sheet cho các báo cáo doanh thu riêng, lợi nhuận riêng. VBA có thể làm được điều này.
Nội dung trích xuất từ tài liệu:
Thay đổi dữ liệu cần phân tích Thay đổi dữ liệu cần phân tíchDữ liệu của ta không chỉ có doanh thu, mà còn có lợi nhuận. Sếp bắt ta phân tíchcả lợi nhuận nữa. Không nhất thiết phải có 2 sheet cho các báo cáo doanh thuriêng, lợi nhuận riêng. VBA có thể làm được điều này.Bảng điều khiển dùng thêm 2 Option button để chọn 1 trong 2: Doanh thu hoặcLợi nhuận.Code gỡ field data hiện thời (Doanh thu) ra:PHP Code: With ActiveSheet.PivotTables(PivotTable1) .PivotFields(Sum of Doanhthu).Orientation = xlHidden End WithCode gắn Field khác (Loinhuan) vô:PHP Code: With ActiveSheet.PivotTables(PivotTable1) .AddDataField ActiveSheet.PivotTables(PivotTable1).PivotFields(Loinhuan), _ Sum of Loinhuan, xlSum End WithChú ý:1. Tên trường trong vùng Data:Trường hiện hữu ta kéo vào vùng Data là Doanhthu, nhưng tên trường thực sựđể xử lý là tên mà Pivot table đặt tự động mà ta có thể thấy, và sửa đổi trong Fieldsetting. Thường là Sum of hoặc Count of, ... nối vào tên trường dữ liệu chính thức.Như hình, ta có thể sửa tên field trong field setting t ừ Sum of Loinhuan thành LN,thì khi gỡ ra phải gỡ field LN chứ không phải field Loinhuan. Tên LN nàycũng có thể đặt bằng VBA.Nếu gộp 2 code trên lại, đồng thời dùng chung cho cả 2 option button thì code sẽlà:PHP Code:Sub SelectField()InField = IIf([N1] = 1, Doanhthu, Loinhuan) With ActiveSheet.PivotTables(PivotTable1) .PivotFields(IIf([N1] = 2, DT, LN)).Orientation = xlHidden .AddDataField ActiveSheet.PivotTables(PivotTable1).PivotFields(InField), _ IIf([N1] = 1, DT, LN), xlSum End WithEnd SubVới N1 là linkedcell của cả 2 option.2. 2 Option dùng riêng nhóm với những option còn lại:Nếu không làm gì cả, thì 2 Option vẽ thêm sẽ chung nhóm với 3 Option tr ước đó.Và ta chỉ có thể chọn 1 trong 5 Option mà thôi. Nhưng ta muốn nhóm 2 Optionnày có thể chọn 1, nhóm 3 Option khác có thể chọn 1 khác.Vậy ta phải bao quanh ít nhất 1 trong 2 nhóm đó bằng 1 control l à GroupBox.Với mỗi Group Box có nhiều Option, ta có thể chọn 1.