Code kết chuyển dữ liệu

Liên hệ QC

yome

GPE thật tuyệt vời
Tham gia
9/5/08
Bài viết
347
Được thích
113
Anh/chị viết dùm em code tính tổng các tài khoản và cập nhật sang sheet khác (kết chuyển các tài khoản).
Cám ơn anh/chị nhiều!
 

File đính kèm

  • vidu_kc.xls
    22.5 KB · Đọc: 20
kết chuyển

Bạm xem file đínhkèm nha ! mình nghĩ chỉ dùng sumif là oK rồi khỏi cần phải viết nút bấm kết chuyển làm gì !!nhưng cũng tạo nút bấm cho bạn rồi
 

File đính kèm

  • vidu_kc(1).xls
    31 KB · Đọc: 36
Upvote 0
Tham khảo thêm, xin mời

PHP:
Option Explicit
Dim SoTien As Double, Jj As Long
Dim Sh As Worksheet

Sub KetChuyen()
 Dim RngC As Range, sRng As Range, RngB As Range
 Const Chu As String = "632 6422 6421 5111"
 Dim eRw As Long, Jj As Long, SoTien As Double
 Dim MyAdd As String
 
 Set Sh = Sheet2:             eRw = [B65500].End(xlUp).Row
 Sheet1.Select
 Set RngB = Sh.Range(Sh.[B5], Sh.[B65500].End(xlUp))
 Set RngC = RngB.Offset(, 1)
 
 For Jj = 8 To eRw
   SoTien = 0
   If InStr(Chu, CStr(Cells(Jj, "B").Value)) > 0 Then
      Set sRng = RngC.Find(Cells(Jj, "B").Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            SoTien = SoTien + sRng.Offset(, 1).Value
            Set sRng = RngC.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
      Cells(Jj, "D").Value = SoTien
   ElseIf InStr(Chu, Cells(Jj, "C").Value) > 0 Then
      Set sRng = RngB.Find(Cells(Jj, "c").Value)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            SoTien = SoTien + sRng.Offset(, 2).Value
            Set sRng = RngB.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
      Cells(Jj, "D").Value = SoTien
   End If
 Next Jj
End Sub
 
Upvote 0
Anh (Chị) Có thể giúp em update Sub này trong trường hợp lựa chọn
+ Kết chuyển theo tháng, năm, quý
+Xóa bút toán kết chuyển cũ chuyển thành bút toán kết chuyển mới
+Hoặc bù trừ với bút toán kết chuyển cũ được không ạ !
Em cảm ơn anh( Chị) ạ !
 
Upvote 0
Anh (Chị) Có thể giúp em update Sub này trong trường hợp lựa chọn
+ Kết chuyển theo tháng, năm, quý
+Xóa bút toán kết chuyển cũ chuyển thành bút toán kết chuyển mới
+Hoặc bù trừ với bút toán kết chuyển cũ được không ạ !
Em cảm ơn anh( Chị) ạ !
1/ Bạn phải có file với biểu mẫu giống thật để biết cột nào nào là ngày tháng năm, cột nào là cái gì. Kết chuyển theo Tháng, Năm, Quý thì điều kiện nằm ở đâu để biết bạn muốn tháng nào, năm nào, quý nào?
2/ Xóa bút toán kết chuyển cũ chuyển thành bút toán kết chuyển mới: dễ.
3/ Bù trừ cái cũ là sao, bạn phải giải thích cho người khác (ngoài ngành nghề) của bạn hiểu nữa chứ, nếu không thì chỉ có những thành viên làm cùng công việc với bạn mới hiểu bạn muốn gì, người khác thì thua.
4/ Vân vân...
 
Upvote 0
Dạ em xin phép được gửi dữ liệu và ghi chú vấn đề cần hỏi. Anh Ba tê giúp em với ạ !. Em cảm ơn anh ạ
 

File đính kèm

  • But toan ket chuyen.xlsx
    17.6 KB · Đọc: 9
Upvote 0
Dạ em xin phép được gửi dữ liệu và ghi chú vấn đề cần hỏi. Anh Ba tê giúp em với ạ !. Em cảm ơn anh ạ
Vẫn chưa hiểu mấy dòng giải thích, chỉ hiểu và làm được như vầy, bạn xem có giống kết quả bạn muốn không?
 

File đính kèm

  • But toan ket chuyen.rar
    27.4 KB · Đọc: 11
Upvote 0
Web KT
Back
Top Bottom