File vẽ biểu đồ bằng VBA bị lỗi Division by zero chạy không được (1 người xem)

[trantrung707]

mình có file excel vẽ biểu đồ mà chạy bị lỗi:

Run-time error'11'
Division by zero

Sao báo lỗi thế chạy ko được
Các pro hãy giúp mình.mình đang cần gấp( đang làm tốt nghiệp)

 

[ptm0412]

Tôi sửa tiêu đề cho bạn. Đặt tiêu đề không rõ ràng bị xoá 6 lần, lần thứ 7 vẫn không thoát khỏi nội quy ('file bị lỗi chạy không được các cao thủ giúp mình.').
Còn câu bạn hỏi, bạn chỉ đưa code không như vậy, không ai test cho bạn được. Dữ liệu đâu mà test?

 

[trantrung707]

thanks bạn nhé lần đầu tham gia nên không biết.cảm ơnn bạn nhiều
vậy cần đưa dự liệu gì nữa vậy bạn.mình gà lắm.hehe

 

[ndu96081631]

vậy cần đưa dự liệu gì nữa vậy bạn.mình gà lắm.hehe

Ông này hỏi câu này mình... BÓ TOÀN THÂN luôn
Đưa dữ liệu gì là việc của bạn ---> File của bạn, khi chạy code nó cần những gì thì đưa lên cái nấy, bạn hổng biết thì ai biết giùm đây
(May mắn cho bạn, có lẽ hôm nay sư phụ ptm0412... đang vui ???)

 

[trantrung707]

m có file excel(nặng wa ko up lên dc).khi vẽ biểu đồ tương tác thì báo lỗi

Run-time error'11'
Division by zero

hinh như modul bi lỗi minh save file excel các bạn sửa dùm mình.

 

[ptm0412]

(May mắn cho bạn, có lẽ hôm nay sư phụ ptm0412... đang vui ???)

Vui gì mà vui, xoá mãi, xoá hoài, xoá 6 bài phát chán luôn rồi.

Lỗi Division by zero: Trong số 1 tỷ phép chia trong code, có ít nhất 1 phép chia cho zero.

Kiểm tra:N16, N19, N20, Q14, ... xem có ô nào zero. (Nhiều quá không liệt kê hết được)

 

[phihndhsp]

cho con hỏi thầy ptm0412 mình muốn viết 1 lệnh xóa tất cả các đối tượng là biểu đồ là như thế nào vậy thầy? con biết dùng vòng lặp for each mà không biết đối tượng của biểu đồ là duyệt như thế nào? con cảm ơn thầy
code này của anh ndu ActiveSheet.DrawingObjects.Delete là xóa hết các đối tượng luôn, trong khi con chỉ muốn xóa tất cả các biểu đồ thôi

 

[dhn46]

cho con hỏi thầy ptm0412 mình muốn viết 1 lệnh xóa tất cả các đối tượng là biểu đồ là như thế nào vậy thầy? con biết dùng vòng lặp for each mà không biết đối tượng của biểu đồ là duyệt như thế nào? con cảm ơn thầy
code này của anh ndu ActiveSheet.DrawingObjects.Delete là xóa hết các đối tượng luôn, trong khi con chỉ muốn xóa tất cả các biểu đồ thôi

Trong lúc chờ chú PTM0412 trả lời bạn thử với ActiveSheet.ChartObjects xem có được không?

 

[phihndhsp]

Trong lúc chờ chú PTM0412 trả lời bạn thử với ActiveSheet.ChartObjects xem có được không?

Không được bạn ơi, mục đích của mình là muốn duyệt tất cả các biểu đồ để tùy ý sử lý, có thể xóa hay kéo giãn chiều rộng chiều cao…, sau khi ghi macro thì nó hiện ra rất nhiều cái tên với chỉ số tăng dần, mình có thể sử dụng vòng lặp for để duyệt. Nhưng mà cái này không biết có bao nhiêu biểu đồ nên có thể sẽ bị lỗi, mình nghĩ nên sử dụng for each mà không biết nên truy cập đối tượng như thế nào? Cảm ơn bạn nhiều vì đã quan tâm ActiveSheet.ChartObjects.Delet Xin lỗi bạn mình nhần code của bạn vẫn xóa hết các biểu đồ

 

[dhn46]

Không được bạn ơi, mục đích của mình là muốn duyệt tất cả các biểu đồ để tùy ý sử lý, có thể xóa hay kéo giãn chiều rộng chiều cao…, sau khi ghi macro thì nó hiện ra rất nhiều cái tên với chỉ số tăng dần, mình có thể sử dụng vòng lặp for để duyệt. Nhưng mà cái này không biết có bao nhiêu biểu đồ nên có thể sẽ bị lỗi, mình nghĩ nên sử dụng for each mà không biết nên truy cập đối tượng như thế nào? Cảm ơn bạn nhiều vì đã quan tâm

Cũng chưa thật hiểu ý bạn nhưng nếu để duyệt qua biểu đồ bỏ qua Object thì cách giải quyết theo #8 biến đổi một chút bạn tham khảo xem sao nhé

Sub Test()    Dim Obj As Object
    For Each Obj In ActiveSheet.ChartObjects
          'Tùy biến
          MsgBox Obj.Name
    Next
End Sub

 

[phihndhsp]

Cũng chưa thật hiểu ý bạn nhưng nếu để duyệt qua biểu đồ bỏ qua Object thì cách giải quyết theo #8 biến đổi một chút bạn tham khảo xem sao nhé

Sub Test()    Dim Obj As Object
    For Each Obj In ActiveSheet.ChartObjects
          'Tùy biến
          MsgBox Obj.Name
    Next
End Sub

cảm ơn bạn nhiều. bạn có thể chỉnh cho mình độ rộng của biểu đồ tăng lên được không?

 

[dhn46]

cảm ơn bạn nhiều. bạn có thể chỉnh cho mình độ rộng của biểu đồ tăng lên được không?

Bạn sử dụng Code với cấu trúc như thế này nhé

Sub Test()
    Dim Obj As Object
    For Each Obj In ActiveSheet.ChartObjects
        Obj.Height = 500
        Obj.Width = 500
    Next
End Sub