sửa giúp em đoạn code sau em chạy thì kết quả trả về là #name?Sub tinhtong()Dim

Thầy ơi sửa giúp em đoạn code sau với ạ, em chạy thì kết quả trả về là #name?

Sub tinhtong()

Dim DongCuoi As Long

DongCuoi = Sheets("3844ACH").Range("K" & Rows.Count).End(xlUp).Row

Range("H1") = DongCuoi

Range("K" & DongCuoi + 1).Formula = "=subtotal(9,K7:DongCuoi)"

End Sub

6 câu trả lời

193 lượt xem

vỗ tay

Nana 10:07 - Jul 20, 2021

code gán công thức của bạn chưa đúng.

Range("K" & DongCuoi + 1).Formula = "=subtotal(9,K7:DongCuoi)"

ở đây DongCuoi là 1 biến, khi viết vào biểu thức phải viết dạng:

.Formula = "=subtotal(9,K7:K" & DongCuoi & "')"

vỗ tay

Nana 19:07 - Jul 20, 2021

Cám ơn thầy, nhưng em chạy lại thì Excel báo lỗi này, như vậy là sao ạ.

vỗ tay

Nana 21:07 - Jul 20, 2021

bạn có thể bấm vào nút Debug và xem VBA tô màu vàng ở vị trí dòng code nào nhé, vì chỉ nhìn thông báo lỗi như vậy mình không có hướng dẫn cụ thể được.

vỗ tay

Nana 21:07 - Jul 21, 2021

Em đã phát hiện ra lỗi Run time Error 9, nhưng đoạn code vẫn không chạy thành công. và báo lỗi 1004.

vỗ tay

Nana 00:07 - Jul 22, 2021

Chào bạn bạn đẩy file lên giúp gitiho nhé.

vỗ tay

Nana 09:07 - Jul 22, 2021

Phần sau tên biến dongcuoi bạn để là & "')" chỗ này có 1 dấu nháy đơn bị thừa.

Mục đích đoạn đó là thêm dấu đóng ngoặc đơn vào công thức, thì chỉ là đặt dấu này vào trong cặp dấu nháy kép dạng ")" thôi.

Bạn kiểm tra lại nhé.

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

sửa giúp em đoạn code sau em chạy thì kết quả trả về là #name?Sub tinhtong()Dim

Câu hỏi liên quan