Đỗ Thúy Quỳnh
Đỗ Thúy Quỳnh
Thảo luận 0 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 396 lượt xem

Hướng dẫn ngắt kết nối biểu đồ với nguồn dữ liệu trong Excel

Oct 19 2020
Khi vẽ biểu đồ trên Excel, thông thường các biểu đồ này sẽ được tự động liên kết với dữ liệu nguồn. Và khi ta thay đổi dữ liệu nguồn thì biểu đồ sẽ được tự động thay đổi theo. Tuy nhiên trong nhiều tình huống ta muốn giữ nguyên biểu đồ của mình kể cả khi thay đổi dữ liệu nguồn. Để làm được điều này Gitiho.com sẽ hướng dẫn bạn cách ngắt liên kết từ biểu đồ đến dữ liệu nguồn trong Excel.

Dùng mã VBA để ngắt liên kết từ biểu đồ đến dữ liệu nguồn

Phương pháp này sẽ giới thiệu cho chúng ta một mã VBA giúp ta nhanh chóng ngắt liên kết giữa tất cả các biểu đồ với nguồn dữ liệu của nó trong trang tính Excel. Để thực hiện hãy làm theo các bước sau:
Bước 1: Bật trang tính nơi bạn muốn ngắt tất cả các liên kết trong biểu đồ. Sau đó nhấn tổ hợp phím Alt + F11 cùng lúc để mở cửa sổ Microsoft Visual Basic for Applications.

Tuy nhiên nếu phím tắt của bạn không hoạt động hoặc tab DEVELOPER chưa được mở thì bạn hãy thực hiện các thao tác sau:

1. Chọn thẻ File trên thanh công cụ, chọn Option. Trong mục Option này ta chọn Customize Ribbon. Hoặc một cách khác là kích chuột phải vào vị trí bất kỳ trên thanh công cụ và chọn mục Customize Ribbon. Như hình minh họa dưới đây:


2. Lúc này sẽ xuất hiện cửa sổ mới là Excel Options, ta chọn thẻ Customize the Ribbon, ta tích chọn vào thẻ Developer như trong hình dưới.


Như vậy trên thanh công cụ của chúng ta đã có thểm một tab mới là tab Developer.

3. Để mở ứng dụng VBA trong Excel ta nhấn tổ hợp phím Alt và F11 hoặc chọn mục Visua Basic trên thẻ Developer.

Lúc này một cửa sổ mới được mở ra, ta sẽ thực hiện tiếp bước 2 tại đây.

Bước 2: Nhấn chọn Insert, chọn Module và dán đoạn mã VBA sau đầy vào cửa sổ module mới.

Mã VBA: Ngắt tất cả các liên kết trong đồ thị trên một trang tính.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub BreakChartLinks()
Dim As Long
Dim xChartCount As Long
Dim xLinkArr As Variant
Dim xSerColl As Variant
xLinkArr = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(xLinkArr) Then
For I = LBound(xLinkArr) To UBound(xLinkArr)
ActiveWorkbook.BreakLink xLinkArr(I), xlLinkTypeExcelLinks
Next I
End If
xChartCount = ActiveSheet.ChartObjects.Count
If xChartCount <> 0 Then
For I = 1 To xChartCount
ActiveSheet.ChartObjects(I).Activate
For Each xSerColl In ActiveChart.SeriesCollection
xSerColl.Values = xSerColl.Values
xSerColl.XValues = xSerColl.XValues
xSerColl.Name = xSerColl.Name
Next
Next
End If
End Sub

Bước 3: Nhấn phím F5 hoặc nhấn nút tam giác màu xanh (Run) để chạy mã VBA này.

Bây giờ bạn có thể thấy tất cả các liên kết biểu đồ đều đã được ngắt khỏi dữ liệu nguồn của nó trong trang tinh.

Có thể bạn sẽ cần:

Hướng dẫn ngắt trục biểu đồ trên Excel

Để biết tất tần tật về Excel, sở hữu ngay seris Excel tuyệt đỉnh:


Cùng tham gia cộng đồng hỏi đáp về chủ đề Excel Cơ Bản

Thảo luận 0 câu trả lời
Lượt xem 396 lượt xem
Vỗ tay vỗ tay

0 Bình luận

@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội