Nhờ anh chị gỡ lỗi công thức (1 người xem)

[kulyvn]

Mình có code đoạn này nhưng khi thêm code cộng nhiều ô thì bị lỗi không hiển thị kết quả, anh chị giúp mình với nhé.
Application.ScreenUpdating = False
Range("A6:Z" & Range("A65000").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
Range("B6").CopyFromRecordset cn.Execute("SELECT f7,f6,f10,f11,f12,f13,f2,f3,f4,f5,f14+f22-f32-f41-f51-f60,f31-f30+f51,
Làm sao để code đoạn này hiển thị được kết quả vậy: f14+f22-f32-f41-f51-f60

 

[HieuCD]

Mình có code đoạn này nhưng khi thêm code cộng nhiều ô thì bị lỗi không hiển thị kết quả, anh chị giúp mình với nhé.
Application.ScreenUpdating = False
Range("A6:Z" & Range("A65000").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
Range("B6").CopyFromRecordset cn.Execute("SELECT f7,f6,f10,f11,f12,f13,f2,f3,f4,f5,f14+f22-f32-f41-f51-f60,f31-f30+f51,
Làm sao để code đoạn này hiển thị được kết quả vậy: f14+f22-f32-f41-f51-f60

viết đại không biết đúng sai
f14+f22-f32-f41-f51-f60 as KetQua