xin giúp đỡ sửa lỗi chạy code vba

DanVanPhoto · 24/12/22

xin chào cả nhà ạ. Chuyện là em có một đoạn mã macro tự động chạy khi giá trị trong ô có thay đổi( ô ở đây là ô có chứa hàm sẽ tự thay đổi không có thao tác click hay chỉnh sửa, cũng có thể là ô được tham chiếu từ ô khác) khi ô có thay đổi thì macro "LAM_MOI" sẽ được kích hoạt ( macro "LAM_MOI" này có nhiệm vụ là copy công thức từ vùng "AR4:BV19" và paste vào ô G10). nhưng khi ô "O4" chứa công thức có thay đổi thì macro "LAM_MOI" có chạy nhưng không dừng lại và báo lỗi.em cảm ơn.


 Public pubValue

 Private Sub Workbook_Activate()
    pubValue = Sheet1.Range("O4").Value
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    If pubValue <> Sheet1.Range("O4").Value Then
        LAM_MOI
        pubValue = Sheet1.Range("O4").Value
    End If
End Sub


Sub LAM_MOI()
    'DEVELOPMENTAL_301
   
          Set AT = ActiveSheet
          Range("AR4").Select
          Range("AR4:BV19").Select
            Selection.Copy
    Range("G10").Select
    AT.Paste
    Range("E5").Select
    Application.CutCopyMode = False
End Sub

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
xin chào cả nhà ạ. Chuyện là em có một đoạn mã macro tự động chạy khi giá trị trong ô có thay đổi( ô ở đây là ô có chứa hàm sẽ tự thay đổi không có thao tác click hay chỉnh sửa, cũng có thể là ô được tham chiếu từ ô khác) khi ô có thay đổi thì macro "LAM_MOI" sẽ được kích hoạt ( macro "LAM_MOI" này có nhiệm vụ là copy công thức từ vùng "AR4:BV19" và paste vào ô G10). nhưng khi ô "O4" chứa công thức có thay đổi thì macro "LAM_MOI" có chạy nhưng không dừng lại và báo lỗi.em cảm ơn.
Public pubValue Private Sub Workbook_Activate() pubValue = Sheet1.Range("O4").Value End Sub Private Sub Workbook_SheetCalculate(ByVal Sh As Object) If pubValue <> Sheet1.Range("O4").Value Then LAM_MOI pubValue = Sheet1.Range("O4").Value End If End Sub

Sub LAM_MOI() 'DEVELOPMENTAL_301 Set AT = ActiveSheet Range("AR4").Select Range("AR4:BV19").Select Selection.Copy Range("G10").Select AT.Paste Range("E5").Select Application.CutCopyMode = False End Sub

Không đính kèm tập tin thì chắc đợi lâu đây.

DanVanPhoto · 24/12/22

Hoàng Tuấn 868 đã viết:
Không đính kèm tập tin thì chắc đợi lâu đây.

DẠ file đây bác ơi. bác giúp em với ạ

BuiQuangThuan · 24/12/22

Thôi thì làm lấy 1 cái nút. Lúc nào cần cập nhật thì bấm vô cái nút đó cũng được mà. nó không tốn bao nhiêu thời gian đâu

DanVanPhoto · 24/12/22

BuiQuangThuan đã viết:
Thôi thì làm lấy 1 cái nút. Lúc nào cần cập nhật thì bấm vô cái nút đó cũng được mà. nó không tốn bao nhiêu thời gian đâu

hi tại em lười lắm. mà lại thích cái file nó thông minh chút. mà em mò tới đây rồi, chạy được nhưng nó không dừng lại được, nó cứ lặp lại vô tận tới đơ luôn máy

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
DẠ file đây bác ơi. bác giúp em với ạ

Trong tập tin có sub nào liên quan đến ô "O4" đâu bạn.

DanVanPhoto đã viết:
hi tại em lười lắm. mà lại thích.

Vậy thì không ổn rồi, mình lại không có thói quen giúp những người có tính lười.

DanVanPhoto · 24/12/22

Hoàng Tuấn 868 đã viết:
Trong tập tin có sub nào liên quan đến ô "O4" đâu bạn.

Vậy thì không ổn rồi, mình lại không có thói quen giúp những người có tính lười.

dạ trong file là ô"I5" ạ. code em gán trong bài viết là khi em để chạy thử thôi ạ( khi chạy thử thì em để tham chiếu tới ô khác ạ).
mong bác giúp em với ạ. em mới tìm tòi về excel và vba nên em tò mò lắm ạ. em rất muốn những gì có thể làm cho file hoạt động một cách thông minh nhất có thể ạ. em cảm ơn.

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
dạ trong file là ô"I5" ạ. code em gán trong bài viết là khi em để chạy thử thôi ạ( khi chạy thử thì em để tham chiếu tới ô khác ạ).
mong bác giúp em với ạ. em mới tìm tòi về excel và vba nên em tò mò lắm ạ. em rất muốn những gì có thể làm cho file hoạt động một cách thông minh nhất có thể ạ. em cảm ơn.

Cứ diễn giải một đường, đưa tập tin một nẻo thế này thì biết đường nào mà lần.

DanVanPhoto · 24/12/22

Hoàng Tuấn 868 đã viết:
Cứ diễn giải một đường, đưa tập tin một nẻo thế này thì biết đường nào mà lần.

mong bác xem và giải đáp giúp em với ah

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
mong bác xem và giải đáp giúp em với ah

1/ Chịu khó viết hoa đầu dòng, đầu câu.
2/ Kiểm tra từng bước (bằng cách ấn phím F8) xem Sub "LAM_MOI" chạy như thế nào, lỗi do đâu.
Bạn thử đi xem thế nào rồi tính tiếp.

DanVanPhoto · 24/12/22

Hoàng Tuấn 868 đã viết:
1/ Chịu khó viết hoa đầu dòng.
2/ Kiểm tra từng bước (bằng cách ấn phím F8) xem Sub "LAM_MOI" chạy như thế nào, lỗi do đâu.
Bạn thử đi rồi tính tiếp.

em thử cả đêm qua rồi ạ. bí quá nên em lên cầu cứu các bác đó ạ. em cũng thử cho thêm exit sub vào để thoát khỏi sub mà không được ạ. em chạy thử nếu để msgBox thì không bị lặp. nhưng cho chạy macro LAM_MOI thì nó lại bị.

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
em thử cả đêm qua rồi ạ. bí quá nên em lên cầu cứu các bác đó ạ. em cũng thử cho thêm exit sub vào để thoát khỏi sub mà không được ạ

Thực hiện mục "1/" bài #10.

DanVanPhoto · 24/12/22

Hoàng Tuấn 868 đã viết:
Thực hiện mục "1/" bài #10.

em mới vào forum mục đó tìm ở đâu vậy ạ

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
em mới vào forum mục đó tìm ở đâu vậy ạ

1/ Chịu khó viết hoa đầu dòng, đầu câu.

DanVanPhoto · 24/12/22

Hoàng Tuấn 868 đã viết:
1/ Chịu khó viết hoa đầu dòng, đầu câu.

Ý bác là viết hoa ở trong code hay comment trong bài viết này vậy bác???

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
Ý bác là viết hoa ở trong code hay comment trong bài viết này vậy bác???

Theo bạn thì không viết hoa đầu câu là tôn trọng hay không tôn trọng người mình đang giao tiếp, chưa kể là còn đang đi tìm kiếm sự giúp đỡ từ người đó.

DanVanPhoto · 24/12/22

Hoàng Tuấn 868 đã viết:
Theo bạn thì không viết hoa đầu câu là tôn trọng hay không tôn trọng người mình đang giao tiếp, chưa kể là còn đang đi tìm kiếm sự giúp đỡ từ người đó.

À vâng. Em cảm ơn bác.

BuiQuangThuan · 24/12/22

@Hoàng Tuấn 868 có khi nào nên sử dụng sự kiện change không anh nhỉ?

Hoàng Tuấn 868 · 24/12/22

DanVanPhoto đã viết:
À vâng. Em cảm ơn bác.

Mình chỉ sửa lại sub "LAM_MOI", bạn chạy thử xem thế nào.

Bài đã được tự động gộp: 24/12/22

BuiQuangThuan đã viết:
@Hoàng Tuấn 868 có khi nào nên sử dụng sự kiện change không anh nhỉ?

Ý bạn là ở trường hợp bài này phải không?

DanVanPhoto · 24/12/22


Private Sub Worksheet_Calculate()
    Dim Xrg As Range
    Set Xrg = Range("I5")
    If Not Intersect(Xrg, Range("I5")) Is Nothing Then
    LAM_MOI
    End If
End Sub

Em có thử dùng code này các bác xem giúp em với. em thấy nó chạy nhưng lại là cứ sheet1 có thay đổi là nó chạy mãi không dừng dù là mình lưu file nó cũng chạy. Em cảm ơn.

Bài đã được tự động gộp: 24/12/22

Hoàng Tuấn 868 đã viết:
Mình chỉ sửa lại sub "LAM_MOI", bạn chạy thử xem thế nào.

Bài đã được tự động gộp: 24/12/22

Ý bạn là ở trường hợp bài này phải không?

Vâng em cảm ơn bác. để em thử .

xin giúp đỡ sửa lỗi chạy code vba

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

File đính kèm

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

❆❆❆❆❆❆❆❆❆❆❆❆

Đăng ký hôm qua

File đính kèm

Thành viên chính thức

Facebook

Group