✅ Cách tạo và hiển thị biểu đồ trong ô

Mục lục

Đây là một hướng dẫn đơn giản về cách tạo và hiển thị biểu đồ thanh trong một ô; một kỹ thuật hoạt động rất tốt khi tạo báo cáo quản lý.

Các bước:

1. Trong cột A, hãy nhập các giá trị bạn muốn hiển thị, tức là trong ô A1 nhập giá trị 10, trong ô A2 20, v.v.

2. Trong cột B1, nhập công thức sau: = REPT (“n”, A1). Công thức này chỉ đơn giản là yêu cầu Excel lặp lại giá trị được lưu trữ ở giữa "" bởi số trong ô A1.

3. Thay đổi phông chữ thành "Wingdings".

4. Vui lòng tham khảo ví dụ 1 trong tệp Excel đính kèm.

5. Nếu bạn muốn giảm độ dài của biểu đồ thanh, chỉ cần chia “A1” trong công thức trên cho 10 hoặc cho bất kỳ số nào hợp lý nhất. Ví dụ, công thức sẽ giống như sau = REPT (“n”, A1 / 10). Xem ví dụ 2 trong tệp Excel đính kèm.

Cần lưu ý rằng bằng cách thay đổi chữ “n” trong công thức được đề cập ở trên, bạn có thể hiển thị các hình ảnh khác nhau. Ví dụ: viết hoa “J” sẽ hiển thị khuôn mặt tươi cười trong khi viết hoa “L” sẽ hiển thị khuôn mặt buồn. Xem ví dụ 3 trong tệp Excel đính kèm.

Đối phó với các giá trị tiêu cực

Các công thức trên hoạt động tốt khi bạn xử lý các giá trị dương. Tuy nhiên, nếu giá trị trong cột A là âm, biểu đồ trong cột B sẽ chuyển thành một chuỗi được tạo thành từ một số ký hiệu khác nhau, do đó làm mất tác dụng mong muốn (Xem ví dụ 4 trong bảng tính đính kèm).

Một cách để khắc phục hạn chế này là sử dụng câu lệnh IF như:

= IF (A21 <0, REPT (“n”, ABS (A21 / 10)), REPT (“n”, A21 / 10))

Giải thích công thức trên:

1. Giả sử giá trị bạn đang cố gắng hiển thị trong biểu đồ thanh nằm trong ô A21. Giá trị này cũng âm.

2. Công thức bắt đầu bằng cách nói nếu giá trị trong A21 nhỏ hơn 0 tức là số âm, sau đó lặp lại “n” bởi giá trị tuyệt đối (ABS) có trong ô A21 và sau đó chia số này cho 10. Bằng cách sử dụng giá trị tuyệt đối, bạn đang yêu cầu Excel bỏ qua dấu âm và coi số đó là giá trị dương.

3. Phần tiếp theo của công thức cho Excel biết phải làm gì nếu giá trị lớn hơn 0.

4. Vui lòng tham khảo ví dụ 4 trong tệp đính kèm.

Những bổ sung thú vị cho phần trên sẽ là sử dụng định dạng có điều kiện để thay đổi màu của biểu đồ thành màu đỏ cho các giá trị âm và thành màu xanh lam cho các giá trị dương. Hãy để trí tưởng tượng của bạn hướng dẫn bạn!

Hướng dẫn sau đây sẽ mô tả cách tạo biểu đồ trong một ô giống như biểu đồ được hiển thị trong bảng ở trên dưới cột "Xu hướng".

Biểu đồ được tạo bằng một chức năng có tên là “CellChart”. Bạn sẽ nhập nó vào Excel giống như bất kỳ hàm tiêu chuẩn nào khác, tức là SUM, AVERAGE hoặc VLOOKUP, v.v. Hàm này được gọi là “Hàm do người dùng xác định” và không phải là hàm chuẩn có sẵn trong Microsoft Excel. Nó phải được tạo bởi người dùng bằng VBA.

Khi được nhập vào Excel, hàm CellChart trông giống như sau:

Xem xét kỹ hơn hàm CellChart, phạm vi cho biểu đồ được xác định trong phần đầu tiên của hàm, C3: F3 trong ví dụ trên. Tiếp theo, màu của biểu đồ được xác định, 203 bằng cách sử dụng ví dụ trên.

Bây giờ cho nội dung VBA

1. Vào cửa sổ dự án VBA bằng cách nhấp chuột phải vào tên trang tính và chọn “Mã Xem” hoặc bằng cách chọn “ALT, F11”.

2. Ở phía bên tay phải, nhấp chuột phải vào tên dự án của bạn và chọn chèn “mô-đun”.

3. Sao chép và dán mã sau vào mô-đun mới bạn vừa tạo:

'Tạo một hàm mới được gọi là Cell Chart Function CellChart (Plots As Range, Color As Long) As String' Xác định các biến sẽ được sử dụng sau này trong mã Const cMargin = 2 Dim rng As Range, arr () As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'Sau đây tính toán các ô sẽ được sử dụng cho biểu đồ Đặt rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count If j = 0 Then j = i ElseIf Plots (, j)> Plots (, i) Then j = i End If If k = 0 Then k = i ElseIf Plots (, k) 
 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) "Xác định các biến sẽ được sử dụng sau này trong mã Dim rng As Range, shp As Shape, blnDelete As Boolean For Each shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) If Not rng Is Nothing Then If rng .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address Then blnDelete = True End If If blnDelete Then shp.Delete Next End Sub

4. Nhấp vào nút lưu.

5. Nhấp vào biểu tượng Excel nhỏ ở trên cùng bên phải dưới menu "Tệp" để thoát khỏi cửa sổ dự án VBA và quay lại Excel