Gửi bởi
foru1987
kính chào các bác trên dien dan giaiphapexcel
em đang tạo macro cho file quản lý nợ hàng ngày theo công việc của em
ngày nào cũng phải xử lý một đống số liệu
em nhờ mảcro làm cũng được một chút
còn cái cuối cùng này nghĩ mãi không ra cách
cbác nào cao thủ excel chỉ cách giùm em với
em muốn lấy dữ liệu trong sheet "credit data" , 3 cột màu vàng, copy vào sheet credit debt
Cột màu vàng đầu tiên là mã số TK khách hàng
Cột 2 là sô tiền
cột 3 là tên nhân viên chăm sóc khách hàng
Tương ứng các dòng 2, 5, 9, 36, 87, 107 là các tiêu đề
Cộ A thể hiện ngày vay, kí hiệu là (B+n), (B+4),....
Dữ liệu được lấy sao cho 3 cột màu vàng sẽ được tự động copy qua sheet "credit debt" tương ứng với các ngày "B+n", (B+4),...tương ứng
em cám ơn bác nào chỉ giúp em
hoặc chỉ giúp em thiết kế file theo hướng khác để dể thực hiện hơn
thanks
Dùng code sau nhé:
Mã nguồn PHP:
Private Sub Worksheet_Change(ByVal Target As Range) Dim cn As Object, rst As Object Set cn = CreateObject("ADODB.connection") If Not Intersect(Target, [A1]) Is Nothing Then cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & _ ";Extended properties= ""Excel 8.0;Hdr=no"";") Set rst = cn.Execute("select F3,F9,F12 from [Creditdata$A3:L1000] where F2='" & Target & "' and F11 is not null") [A3:C1000].ClearContents [A3].CopyFromRecordset rst End If End Sub
Trả lời kèm Trích dẫn
