Không thực hiện được phép cộng trừ khi chạy code VBA (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
P

phuocrobe

Thành viên hoạt động
Tham gia
2/11/16
Bài viết
131
Được thích
0
Mình muốn sử dụng code trong VBA để thực hiện phép cộng trừ nhiều ô nhưng khi chạy code thì 1 số ô không có dữ liệu thì không thể thực hiện được phép cộng trừ. Nếu tất cả các ô đều có số liệu thì nó mới chạy được.
Mình muốn hỏi làm sao để có thể thực hiện được phép cộng trừ dù cho có 1 số ô không có số liệu.
Bởi vì số liệu này luôn biến động và bảng tính có rất nhiều ô dữ liệu nên không phải tất cả ô nào cũng đều có số liệu.
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Có thể làm để đối phó 1 chút thay vì a+b viết thành a*1+b*1 chẳng hạn có thể sẽ giúp bạn
 
Upvote 0
Có 2 cách, dùng hàm IIF và hàm NZ

NZ( [trường], 0 ) IIF( IsNull( [trường], 0, [trường] )

Tổng, cộng trừ nhân gì cũng được (chia thì không được bởi vì nó là 0)
 
Upvote 0
Vì file này em nhờ các anh chị trên diễn đàn code dùm lâu rồi nên giờ không biết ở bài nào nên em nhờ anh code trực tiếp giúp em với. Cám ơn anh nhiều nha.
VetMini đã viết:
Có 2 cách, dùng hàm IIF và hàm NZ

NZ( [trường], 0 ) IIF( IsNull( [trường], 0, [trường] )

Tổng, cộng trừ nhân gì cũng được (chia thì không được bởi vì nó là 0)
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
Ok anh. Tuyệt vời quá ạ. Mọi thắc mắc coi như đã giải quyết xong ạ. }}}}} Thank anh nhiều
winvista đã viết:
Thì theo bài #4 trên đã viết, cụ thể

Trong lệnh truy vấn, ví dụ, bạn viết
f11+f22
thì giờ viết cho trường hợp có Null đó là

IIF(ISNULL(f11),0,f11) + IIF(ISNULL(f22),0,f22)
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
Upvote 0
phuocrobe đã viết:
Ok anh. Tuyệt vời quá ạ. Mọi thắc mắc coi như đã giải quyết xong ạ. Anh nhắn cho em số tài khoản Ngân hàng để em có thể bày tỏ lòng biết ơn anh ạ. SĐT 01289.426.599 }}}}} Thank anh nhiều
Nhấp chuột vào đây để mở rộng...

Tôi e rằng bạn không đủ $ để trả tôi đâu, nên không cần phải bày tỏ bằng cách như vậy.
 
Upvote 0
Em code lại nhưng nó báo lỗi như thế này anh ơi. Hình như là code dài quá phải không ạ
Compile error:
Syntax orror

Sub kysau() Application.ScreenUpdating = False
Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
Range("B6").CopyFromRecordset cn.Execute("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,IIF(ISNULL(f14),0,f14)+IIF(ISNULL(f22),0,f22)-IIF(ISNULL(f32),0,f32)-IIF(ISNULL(f41),0,f41)-IIF(ISNULL(f51),0,f51)-IIF(ISNULL(f60),0,f60),IIF(ISNULL(f15),0,f15)+IIF(ISNULL(f23),0,f23)-IIF(ISNULL(f33),0,f33)-IIF(ISNULL(f42),0,f42)-IIF(ISNULL(f52),0,f52)-IIF(ISNULL(f61),0,f61),IIF(ISNULL(f16),0,f16)+IIF(ISNULL(f24),0,f24)-IIF(ISNULL(f34),0,f34)-IIF(ISNULL(f43),0,f43)-IIF(ISNULL(f53),0,f53)-IIF(ISNULL(f62),0,f62),IIF(ISNULL(f17),0,f17)+IIF(ISNULL(f25),0,f25)-IIF(ISNULL(f35),0,f35)-IIF(ISNULL(f44),0,f44)-IIF(ISNULL(f54),0,f54)-IIF(ISNULL(f63),0,f63),IIF(ISNULL(f18),0,f18)+IIF(ISNULL(f26),0,f26)-IIF(ISNULL(f36),0,f36)-IIF(ISNULL(f45),0,f45)-IIF(ISNULL(f55),0,f55)-IIF(ISNULL(f64),0,f64),IIF(ISNULL(f19),0,f19)+IIF(ISNULL(f27),0,f27)-IIF(ISNULL(f37),0,f37)-IIF(ISNULL(f46),0,f46)-IIF(ISNULL(f56),0,f56)-IIF(ISNULL(f65),0,f65),IIF(ISNULL(f20),0,f20)+IIF(ISNULL(f28),0,f28)-IIF(ISNULL(f38),0,f38)-IIF(ISNULL(f47),0,f47)-IIF(ISNULL(
f57),0,f57),IIF(ISNULL(f21),0,f21)+IIF(ISNULL(f29),0,f29)-IIF(ISNULL(f39),0,f39)-IIF(ISNULL(f48),0,f48)-IIF(ISNULL(f58),0,f58) FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
Range("A6:A" & Range("B65000").End(3).Row).Value = "=row()-5"
Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
End Sub
Nhấp chuột vào đây để mở rộng...
phuocrobe đã viết:
Hix, Sao anh lại nói vậy nhỉ, em cũng đâu giàu có gì, chỉ là muốn bày tỏ lòng biết ơn vì anh đã giúp em thôi mà :(
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
Upvote 0
chạy thử code
Mã: 
Sub kysau()
    Application.ScreenUpdating = False
    Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
    Range("B6").CopyFromRecordset cn.Execute("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,iif(isnull(f14),0,f14)+iif(isnull(f22),0,f22)-iif(isnull(f32),0,f32)-iif(isnull(f41),0,41)-iif(isnull(f51),0,f51) FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
    Range("A6").Value = 1
    Range("A6:A" & Range("B65000").End(3).Row).DataSeries
    Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
Mình muốn làm sao để rút gọn đoạn code hoặc làm sao để câu lệnh dài như thế vẫn chạy được chứ như bạn làm thì bạn cắt mất nhiều đoạn code ra thì không phải à.
HieuCD đã viết:
chạy thử code
Mã: 
Sub kysau()
    Application.ScreenUpdating = False
    Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
    Range("B6").CopyFromRecordset cn.Execute("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,iif(isnull(f14),0,f14)+iif(isnull(f22),0,f22)-iif(isnull(f32),0,f32)-iif(isnull(f41),0,41)-iif(isnull(f51),0,f51) FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
    Range("A6").Value = 1
    Range("A6:A" & Range("B65000").End(3).Row).DataSeries
    Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
HieuCD đã viết:
chạy thử code
Mã: 
Sub kysau()
    Application.ScreenUpdating = False
    Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
    Range("B6").CopyFromRecordset cn.Execute("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,iif(isnull(f14),0,f14)+iif(isnull(f22),0,f22)-iif(isnull(f32),0,f32)-iif(isnull(f41),0,41)-iif(isnull(f51),0,f51) FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
    Range("A6").Value = 1
    Range("A6:A" & Range("B65000").End(3).Row).DataSeries
    Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

@HieuCD:
1. dùng hàm nz gọn hơn iif-isnull
iif(isnull(fn),0,fn) <=> nz(fn,0)
2. hình như chủ thớt bị lỗi ngắt hàng chuỗi -> syntax error (lỗi ngữ pháp)
VBA làm việc theo dòng. Dứt 1 dòng là một lệnh. Nếu muốn lệnh tiếp tục xuống dòng kế tiếp thì phải dùng dấu nối dòng "_". Tuy nhiên, chuỗi hằng (string literal) không thể nối dòng. Muón viết một string dài thì phải dùng phép cộng cho mỗi dòng kế.
 
Upvote 0
Anh có thể sửa vào code giúp em được không. Chứ cái này em nhờ người khác code giúp thôi chứ cũng k hiểu lắm ạ
VetMini đã viết:
@HieuCD:
1. dùng hàm nz gọn hơn iif-isnull
iif(isnull(fn),0,fn) <=> nz(fn,0)
2. hình như chủ thớt bị lỗi ngắt hàng chuỗi -> syntax error (lỗi ngữ pháp)
VBA làm việc theo dòng. Dứt 1 dòng là một lệnh. Nếu muốn lệnh tiếp tục xuống dòng kế tiếp thì phải dùng dấu nối dòng "_". Tuy nhiên, chuỗi hằng (string literal) không thể nối dòng. Muón viết một string dài thì phải dùng phép cộng cho mỗi dòng kế.
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
phuocrobe đã viết:
Anh có thể sửa vào code giúp em được không. Chứ cái này em nhờ người khác code giúp thôi chứ cũng k hiểu lắm ạ
Nhấp chuột vào đây để mở rộng...

Không được. Vì 2 lý do:
1. tôi không làm việc với ngừoi viết từ ngữ tắt. Đoán mệt lắm.
2. khi làm việc có thù lao thì tôi lấy tiền trước. Uống cà phê, ăn phở xong tôi mới bắt đầu làm.
 
Upvote 0
VetMini đã viết:
@HieuCD:
1. dùng hàm nz gọn hơn iif-isnull
iif(isnull(fn),0,fn) <=> nz(fn,0)
2. hình như chủ thớt bị lỗi ngắt hàng chuỗi -> syntax error (lỗi ngữ pháp)
VBA làm việc theo dòng. Dứt 1 dòng là một lệnh. Nếu muốn lệnh tiếp tục xuống dòng kế tiếp thì phải dùng dấu nối dòng "_". Tuy nhiên, chuỗi hằng (string literal) không thể nối dòng. Muón viết một string dài thì phải dùng phép cộng cho mỗi dòng kế.
Nhấp chuột vào đây để mở rộng...
cám ơn bạn, mình đã thử nhưng không biết lổi gì mà không thực hiên được lệnh.
nó báo: Undefined Function nz in expression
Mã: 
Sub kysau2()
    Application.ScreenUpdating = False
    Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
[COLOR=#ff0000]    Range("B6").CopyFromRecordset cn.Execute("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,nz(f14,0)+nz(f22,0)-nz(f32,0)-nz(f41,0)-nz(f51,0) FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")[/COLOR]
    Range("A6").Value = 1
    Range("A6:A" & Range("B65000").End(3).Row).DataSeries
    Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
phuocrobe đã viết:
Mình muốn làm sao để rút gọn đoạn code hoặc làm sao để câu lệnh dài như thế vẫn chạy được chứ như bạn làm thì bạn cắt mất nhiều đoạn code ra thì không phải à.
Nhấp chuột vào đây để mở rộng...
dùng mảng để tính
Mã: 
Sub kysau()
  Dim arr, Darr(), Dau
  Application.ScreenUpdating = False
  Dau = Array(1, 1, -1, -1, -1, -1)
  Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
  Set cn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.recordset")
  cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
  sQL = ("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,f14,f22,f32,f41,f51,f60,f15,f23,f33,f42,f52,f61,f16,f24,f34,f43,f53,f62,f17,f25,f35,f44,f54,f63,f18,f26,f36,f45,f55,f64,f19,f27,f37,f46,f56,f65,f20,f28,f38,f47,f57, f21,f29,f39,f48,f58 FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
  rs.Open sQL, cn, 3, 3
  arr = rs.GetRows()
  ReDim Darr(0 To UBound(arr, 2), 0 To 19)
  For i = 0 To UBound(arr, 2)
    For j = 0 To 11
        Darr(i, j) = arr(j, i)
    Next j
    For n = 1 To 6
        For k = 0 To 5
          If Not IsNull(arr(12 + k + (n - 1) * 6, i)) Then Darr(i, n + 11) = Darr(i, n + 11) + arr(12 + k + (n - 1) * 6, i) * Dau(k)
        Next k
    Next n
    For n = 7 To 8
        For k = 0 To 4
          If Not IsNull(arr(12 + k + (n - 1) * 5, i)) Then Darr(i, n + 11) = Darr(i, n + 11) + arr(12 + k + (n - 1) * 5, i) * Dau(k)
        Next k
    Next n
  Next i
  Range("B6").Resize(UBound(arr, 2) + 1, 20) = Darr
  Range("A6").Value = 1
  Range("A6:A" & Range("B65000").End(3).Row).DataSeries
  Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
  Application.ScreenUpdating = True
End Sub
 
Upvote 0
Thank bạn. Cách làm của bạn kết quả rất chính xác à. Do lúc trước mình sửa lại code tới đoạn đó nó bị lỗi nên còn vài cột dữ liệu mình chưa nhập đủ hết vào được. Bạn code luôn giúp mình đoạn code đầy đủ này nha. Cám ơn bạn nhiều !
Sub kysau() Application.ScreenUpdating = False
Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
Range("B6").CopyFromRecordset cn.Execute("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,IIF(ISNULL( f14),0,f14)+IIF(ISNULL(f22),0,f22)-IIF(ISNULL(f32),0,f32)-IIF(ISNULL(f41),0,f41)-IIF(ISNULL(f51),0,f51)-IIF(ISNULL(f60),0,f60),IIF(ISNULL(f15),0,f15)+IIF( ISNULL(f23),0,f23)-IIF(ISNULL(f33),0,f33)-IIF(ISNULL(f42),0,f42)-IIF(ISNULL(f52),0,f52)-IIF(ISNULL(f61),0,f61),IIF(ISNULL(f16),0,f16)+IIF( ISNULL(f24),0,f24)-IIF(ISNULL(f34),0,f34)-IIF(ISNULL(f43),0,f43)-IIF(ISNULL(f53),0,f53)-IIF(ISNULL(f62),0,f62),IIF(ISNULL(f17),0,f17)+IIF( ISNULL(f25),0,f25)-IIF(ISNULL(f35),0,f35)-IIF(ISNULL(f44),0,f44)-IIF(ISNULL(f54),0,f54)-IIF(ISNULL(f63),0,f63),IIF(ISNULL(f18),0,f18)+IIF( ISNULL(f26),0,f26)-IIF(ISNULL(f36),0,f36)-IIF(ISNULL(f45),0,f45)-IIF(ISNULL(f55),0,f55)-IIF(ISNULL(f64),0,f64),IIF(ISNULL(f19),0,f19)+IIF( ISNULL(f27),0,f27)-IIF(ISNULL(f37),0,f37)-IIF(ISNULL(f46),0,f46)-IIF(ISNULL(f56),0,f56)-IIF(ISNULL(f65),0,f65),IIF(ISNULL(f20),0,f20)+IIF( ISNULL(f28),0,f28)-IIF(ISNULL(f38),0,f38)-IIF(ISNULL(f47),0,f47)-IIF(ISNULL(
f57),0,f57),IIF(ISNULL(f21),0,f21)+IIF(ISNULL(f29) ,0,f29)-IIF(ISNULL(f39),0,f39)-IIF(ISNULL(f48),0,f48)-IIF(ISNULL(f58),0,f58),f91,f67,f68,f69,f70,f71,f72,f73,f74,f75,f76,f77,f78,f79,f80,f81,f82,f83,f84,f85,f86,f87,f88,f89 FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
Range("A6:A" & Range("B65000").End(3).Row).Value = "=row()-5"
Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
End Sub
Nhấp chuột vào đây để mở rộng...
HieuCD đã viết:
dùng mảng để tính
Mã: 
Sub kysau()
  Dim arr, Darr(), Dau
  Application.ScreenUpdating = False
  Dau = Array(1, 1, -1, -1, -1, -1)
  Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
  Set cn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.recordset")
  cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
  sQL = ("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,f14,f22,f32,f41,f51,f60,f15,f23,f33,f42,f52,f61,f16,f24,f34,f43,f53,f62,f17,f25,f35,f44,f54,f63,f18,f26,f36,f45,f55,f64,f19,f27,f37,f46,f56,f65,f20,f28,f38,f47,f57, f21,f29,f39,f48,f58 FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
  rs.Open sQL, cn, 3, 3
  arr = rs.GetRows()
  ReDim Darr(0 To UBound(arr, 2), 0 To 19)
  For i = 0 To UBound(arr, 2)
    For j = 0 To 11
        Darr(i, j) = arr(j, i)
    Next j
    For n = 1 To 6
        For k = 0 To 5
          If Not IsNull(arr(12 + k + (n - 1) * 6, i)) Then Darr(i, n + 11) = Darr(i, n + 11) + arr(12 + k + (n - 1) * 6, i) * Dau(k)
        Next k
    Next n
    For n = 7 To 8
        For k = 0 To 4
          If Not IsNull(arr(12 + k + (n - 1) * 5, i)) Then Darr(i, n + 11) = Darr(i, n + 11) + arr(12 + k + (n - 1) * 5, i) * Dau(k)
        Next k
    Next n
  Next i
  Range("B6").Resize(UBound(arr, 2) + 1, 20) = Darr
  Range("A6").Value = 1
  Range("A6:A" & Range("B65000").End(3).Row).DataSeries
  Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
  Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
phuocrobe đã viết:
Thank bạn. Cách làm của bạn kết quả rất chính xác à. Do lúc trước mình sửa lại code tới đoạn đó nó bị lỗi nên còn vài cột dữ liệu mình chưa nhập đủ hết vào được. Bạn code luôn giúp mình đoạn code đầy đủ này nha. Cám ơn bạn nhiều !
Nhấp chuột vào đây để mở rộng...
chỉ tính nhẩm, bạn kiểm tra lại
Mã: 
Sub kysau()
  Dim arr, Darr(), Dau
  Application.ScreenUpdating = False
  Dau = Array(1, 1, -1, -1, -1, -1)
  Range("A6:CK" & Range("A65000").End(3).Row + 1).ClearContents
  Set cn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.recordset")
  cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
  sQL = ("SELECT f2,f3,f4,f5,f6,f7,f8,f9,10,f11,f12,f13,f14,f22,f32,f41,f51,f60,f15,f23,f33,f42,f52,f61,f16,f24,f34,f43,f53,f62,f17,f25,f35,f44,f54,f63,f18,f26,f36,f45,f55,f64,f19,f27,f37,f46,f56,f65,f20,f28,f38,f47,f57, f21,f29,f39,f48,f58 ,f91,f67,f68,f69,f70,f71,f72,f73,f74,f75,f76,f77,f78,f79 ,f80,f81,f82,f83,f84,f85,f86,f87,f88,f89 FROM [THA$A10:EU60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
  rs.Open sQL, cn, 3, 3
  arr = rs.GetRows()
  ReDim Darr(0 To UBound(arr, 2), 0 To 43)
  For i = 0 To UBound(arr, 2)
    For j = 0 To 11
        Darr(i, j) = arr(j, i)
    Next j
    For n = 1 To 6
        For k = 0 To 5
          If Not IsNull(arr(12 + k + (n - 1) * 6, i)) Then Darr(i, n + 11) = Darr(i, n + 11) + arr(12 + k + (n - 1) * 6, i) * Dau(k)
        Next k
    Next n
    For n = 7 To 8
        For k = 0 To 4
          If Not IsNull(arr(12 + k + (n - 1) * 5, i)) Then Darr(i, n + 11) = Darr(i, n + 11) + arr(12 + k + (n - 1) * 5, i) * Dau(k)
        Next k
    Next n
    For j = 20 To 43
        Darr(i, j) = arr(j + 38, i)
    Next j
  Next i
  Range("B6").Resize(UBound(arr, 2) + 1, 44) = Darr
  Range("A6").Value = 1
  Range("A6:A" & Range("B65000").End(3).Row).DataSeries
  Range("A6:CK" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
  Application.ScreenUpdating = True
End Sub
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

B
Làm sao đổi đơn vị B, M này sang hàng đơn vị vậy mọi người? (1 người xem)
    • Cười
Trả lời
1
Đọc
11
ptm0412
ptm0412
N
Thử lập trình XLL add-in bằng C/C++
Trả lời
0
Đọc
8
nguyendang95
N
Tuấn Bụng Bự
tạo QRcode chuyển khoản ngân hàng (1 người xem)
Trả lời
5
Đọc
178
Tuấn Bụng Bự
Tuấn Bụng Bự
V
Làm mẫu giấy đi đường (công lệnh) bằng Excel
Trả lời
11
Đọc
11K
dungnguyenMNCK
D
M
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
1
Đọc
29
BuiQuangThuan
B
TrungChinhs
  • Question Question
Hỏi cách làm tròn số trong VBA
Trả lời
7
Đọc
7K
ptm0412
ptm0412
SA_DQ
[Xin hỏi] Cách tính số tiền bình quân của tài khoản trong 1 tháng
Trả lời
7
Đọc
104
ptm0412
ptm0412
Quách Ngọc
Trả về kết quả ngày tháng hay khoảng trống
Trả lời
3
Đọc
51
Quách Ngọc
Quách Ngọc
MaxanB
Cần hỗ trợ công thức Vlookup nhiều sheet theo điều kiên
Trả lời
2
Đọc
65
MaxanB
MaxanB
N
Không chạy được file VBA
Trả lời
3
Đọc
133
nhjngj
N
N
Xin giúp e cách lọc dữ liệu bị trùng
Trả lời
1
Đọc
53
hoangtuaotrang_hp_vn
H
tonny jj
Lập hàm thể hiện số công lệnh của ngày đi công tác
Trả lời
8
Đọc
225
Nguyễn Nal
N
H
chuyển dữ liệu từ 1 dòng thành nhiều dòng,
Trả lời
13
Đọc
143
Duy Tùng 9x
Duy Tùng 9x
K
Hỏi lỗi không kéo được công thức (Ctrl+D)
Trả lời
7
Đọc
120
khoinguyen2024
K
C
Filter có điều kiện đang ở dạng Cột
Trả lời
3
Đọc
112
Chí Còn Phí
C
H
Quản Lý Công Văn đi Và đến
9 10 11
Trả lời
216
Đọc
159K
dungnguyenMNCK
D
Nguyễn Duy Tuân
Hướng dẫn lập trình với Google Sheets và Excel Online bằng Excel VBA và Add-in A-Tools v10
    • Thích
Trả lời
10
Đọc
574
Nguyễn Duy Tuân
Nguyễn Duy Tuân
dongbhhg
Tìm lương cơ sở theo từng tháng
Trả lời
2
Đọc
60
Duy Tùng 9x
Duy Tùng 9x
Vũ Thị Thuý Ly
Em xin nhờ các anh chị trên diễn đàn giúp đỡ viết hàm hoặc VBA tính tổng các giá trị theo điều kiện
Trả lời
3
Đọc
50
bebo021999
B
DinhManh1307
Cách thống kê công việc sản xuất từng người để tính lương sản phẩm
Trả lời
16
Đọc
268
DinhManh1307
DinhManh1307
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom