[Hỏi] Cách xây dựng biểu đồ động (1 người xem)

[iamcuong]

Thân gửi: Các bác/anh/chị/bạn/em trong GPE.

Hiện em đang có vướng mắc này, rất mong anh chị hỗ trợ ạ:
- Có 1 vùng dữ liệu cho trước (từ A1:H21). Vùng dữ liệu này được cập nhật thường xuyên, 1 tháng thêm khoảng 2,3 dòng.

- Từ Vùng dữ liệu trên, chạy Pivottable sẽ ra Bảng 1 (Để bảng Pivot 1 tự động cập nhật số liệu em đã xử lý xong)
- Từ Bảng 1, chạy ra Biểu 1

+ Biểu 1 phải thể hiện được số tuyệt đối và tỉ trọng của các danh mục "Giá trị vốn" và "Giá trị hiện tại"
+ Về sơ đồ cột em đang sử dụng, về cơ bản là được.
Nhưng: Nếu muốn xây dựng 1 biểu đồ vành khăn, trong đó thể hiện được tỉ lệ giữa "Giá trị vốn" và "Giá trị hiện tại" thì làm thế nào?
Ví dụ: Giá hiện tại đang gấp 1,2 lần giá vốn, thì đường kính của giá trị hiện tại cũng to hơn tương ứng
--> Cái này không cần thiết lắm, em chỉ hỏi thêm thôi ạ
- Từ vùng dữ liệu A1:H21, em lọc ra các mã tại "dài hạn", được bảng 2 và biểu 2

- Tương tự, em cũng được bảng 3 và biểu 3 "ngắn hạn", "đầu cơ" như vậy

___
Vướng mắc của em là:
- Làm cách nào để khi thêm các dòng dữ liệu tiếp theo từ vùng A1:H21, thì bảng 2+biểu 2, bảng 3+biểu 3, bảng 4+biểu 4 tự động update?

Em cám ơn các bác/anh/chị/bạn/em trên GPE nhiều ạ.

 

[iamcuong]

1. Vẽ biểu đồ Vành khăn gì đó thì tôi chịu....có bao giờ vẽ đâu mà biết
2. Vấn đề để tạo ra được bảng 2, 3, 4 thì bạn có thể dùng Advanced Filter là ra. (có thể làm bằng tay, có thể làm bằng Vba)
3. Còn các Biểu thì căn cứ vào bảng.......cho nên bạn cần đặt cho nó 1 cái Name động cho Biểu lấy dữ liệu từ bảng tương ứng....để khi dữ liệu của bảng tăng lên thì nó cũng sẽ tự cập nhật vào biểu tương ứng...

Vài lời góp ý!

Dạ anh.
2. Tạo bảng 2,3,4 em đã lọc ra rồi. Ý em là muốn nó tự động luôn
3. Em cũng nghĩ đến name động, nhưng chưa biết cách thực hiện thế nào ạ.

 

[iamcuong]

Bạn chạy đoạn code sau, nó sẽ làm 2 ý trên cùng 1 lúc. Chú ý là trong Sheet có 3 vùng tôi dùng làm điều kiện để Advanced Filter (cho VBA) bạn đừng xóa cái tiêu đề và điều kiện cần Ad, đó là:
Vùng: H26:H27 ; H37:H38 ; H49:H50

Code cho vui với file của bạn:

Dạ em cám ơn anh ạ.
- Em đã thử chạy code của anh, kết quả trả về như ý muốn luôn.
Nhưng Code này chưa chạy tự động ạ. Có cách nào để nó chạy tự động được không ạ?
- Em hỏi thêm ạ

Application.ScreenUpdating = False

Application.ScreenUpdating = True
End Sub

Cặp trên mục đích để làm gì ạ?

 

[iamcuong]

Dạ em đã hiểu ạ.
1. Vậy em tạo 1 Button, rồi khi nào cần thì ấn 1 cái là xong.
2. Thảo nào mà lúc run code của bác, em thấy trơn tru, còn 1 vài code khác thì màn hình hay bị nhảy.
Em đã rõ ạ.
Có gì em sẽ hỏi bác sau ạ.
EM cám ơn bác nhiều

 

[iamcuong]

Thôi thì đưa nó vào cái Worksheet_Calculate. Mỗi lần bạn thao tác tại bất kỳ ở đâu trên sheet mà excel nó tính toán lại thì code sẽ chạy

Ôi ngọt quá rồi bác ạ.
Êm như ru và không phải thao tác run. File chạy cũng rất nhanh và nhẹ ạ.
Em cám ơn bác lắm lắm ạ.

 

[Let'GâuGâu]

Ôi ngọt quá rồi bác ạ.
Êm như ru và không phải thao tác run. File chạy cũng rất nhanh và nhẹ ạ.
Em cám ơn bác lắm lắm ạ.

tôi nghĩ bạn có thể làm bằng pivottable chart mà???
với report filter là danh mục

 

[iamcuong]

tôi nghĩ bạn có thể làm bằng pivottable chart mà???
với report filter là danh mục

Đúng là mình đang rất tò mò về VBA, nên đã đăng lên để hỏi các lão làng về cách xử lý qua code.
Còn xử lý qua Pivottable chart cũng là một cách rất đơn giản.
Khi đó, tạo 3 pivotchart lên là hoàn toàn có thể giải quyết được vấn đề ^^