Làm biểu đổ động đậy trong Excel thế nào?

Longvh

Xe điện
Biển số
OF-2929
Ngày cấp bằng
31/12/06
Số km
2,124
Động cơ
581,500 Mã lực
Em search thấy cái này, làm theo nhưng nó bị lỗi

Bác nào biết tại sao giúp em với?

http://www.thongtinlaptop.com/module/news/ViewContent.asp?langid=1&ID=1076

Biểu đồ “động đậy” trong Excel

(www.Thongtinlaptop.com) Bạn có thấy một biểu đồ chuyển động trong Excel chưa? Với chương trình Viual Basic tự tạo đơn giản, bạn có thể làm cho biểu đồ của mình nhúc nhích trông thật sinh động. Giả sử, bạn có bảng số liệu với cột A chứa giá trị biến số X (từ A4:A19).

Giá trị của biến X sau luôn bằng giá trị của biến X trước nó cộng với trị quy định ở ô A1. Bạn cho giá trị ban đầu của biến X là 0 (ô A4), công thức cho ô A5 = A4 + $A$1. Tiếp đó bạn chọn một khoảng (trong trường hợp này là A5:A19) rồi nhấn Ctrl + D để copy công thức từ ô A5 xuống các ô còn lại. Cột B chứa giá trị hàm số Y=SIN(X). Sau đó bạn vào Insert\ Chart để vẽ biểu đồ cho vùng giá trị mà bạn đã tạo. (Bạn nên dùng Chart Type là XY Scatter).

Để cho biểu đồ của mình nhúc nhích, bạn phải viết một hàm để thay đổi giá trị của ô A1. Khi đó giá trị của bảng số liệu sẽ thay đổi và làm cho biểu đồ cũng thay đổi theo. Bạn nhấn Alt +F11 để hiện ra cửa sổ Visual Basic Editor. Trong của sổ Visual Basic, nhấn F7 để xuất hiện cửa sổ Code. Viết một hàm như sau:

Sub BieuDoDongDay()
Range (“A1”) = 0
For i =1 to 150
Range (“A1”) = Range (“A1”) + 0.035
Next i
Range (“A1”) = 0
End Sub

Trở lại cửa sổ của Excel, nhấn Alt + F8 để mở cửa sổ Macro, rồi nhấn Run để thực thi chương trình. Bạn có thể đặt phím tắt cho hàm vừa tạo bằng cách nhấn Options. Vậy là xong, bạn có thể chiêm ngưỡng tác phẩm của mình rồi đó.
Cái lỗi em bị nó thế này:

 

bes

Xe lăn
Biển số
OF-112
Ngày cấp bằng
7/6/06
Số km
14,238
Động cơ
721,148 Mã lực
Nơi ở
Km0 - Việt Nam
Em search thấy cái này, làm theo nhưng nó bị lỗi

Bác nào biết tại sao giúp em với?

http://www.thongtinlaptop.com/module/news/ViewContent.asp?langid=1&ID=1076



Cái lỗi em bị nó thế này:

Thứ 1 : Biểu đồ động thì vào đây, nghiên cứu các vấn đề về ích seo cũng vào đó luôn :
http://www.giaiphapexcel.com/forum/showthread.php?p=114119

Thứ 2 : Lỗi này báo thị trường đến 400 điểm

Thứ 3 : Tối đánh cặp 04-40-00 nhé.
 

Longvh

Xe điện
Biển số
OF-2929
Ngày cấp bằng
31/12/06
Số km
2,124
Động cơ
581,500 Mã lực

sonlamtung

Đi bộ
Biển số
OF-25160
Ngày cấp bằng
3/12/08
Số km
4
Động cơ
490,140 Mã lực
Bác thay tất cả dấu trong coding bằng dấu " là được ngay.
Em đã thử viết lại như sau và thấy chạy tốt:

Sub BieuDoDongDay()
Range("A1") = 0
For i = 1 To 150
Range("A1") = Range("A1") + 0.035
Next i
Range("A1") = 0
End Sub
 

quatmo212

Xe điện
Biển số
OF-3919
Ngày cấp bằng
21/3/07
Số km
2,228
Động cơ
572,888 Mã lực
Nơi ở
Đâu đó có beer
Thông tin thớt
Đang tải

Bài viết mới

Top