Giúp gộp dữ liệu 2 sheet thành 1 sheet (4 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)
Tôi tuân thủ nội quy khi đăng bài
Có
N

Ngocminh19

Thành viên chính thức
Tham gia
30/5/15
Bài viết
87
Được thích
11
Xin chào anh chị
Em có file excell muốn gộp dữ liệu ở 2 sheet Thu,chi vào sheet Tong Hop
Mong muốn hiển thị cùng ngày,các khoản chi,số tiền còn lại
Kết quả mong muốn em có điền ở Sheet "TONG HOP"
Mong anh chị giúp đỡ .Em cảm ơn ạ
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Ngocminh19 đã viết:
Xin chào anh chị
Em có file excell muốn gộp dữ liệu ở 2 sheet Thu,chi vào sheet Tong Hop
Mong muốn hiển thị cùng ngày,các khoản chi,số tiền còn lại
Kết quả mong muốn em có điền ở Sheet "TONG HOP"
Mong anh chị giúp đỡ .Em cảm ơn ạ
Nhấp chuột vào đây để mở rộng...
Mình làm vội. bạn tham khảo nhé.
Thân :D
 

File đính kèm

Upvote 0

File đính kèm

Upvote 0
Cảm ơn 2 bạn đã chỉ giúp nhé.
Nếu được mọi người viết giúp mình code chạy ra kết quả như mong muốn thì tốt ạ
Chúc mọi người sức khỏe
 
Upvote 0
Ngocminh19 đã viết:
Cảm ơn 2 bạn đã chỉ giúp nhé.
Nếu được mọi người viết giúp mình code chạy ra kết quả như mong muốn thì tốt ạ
Chúc mọi người sức khỏe
Nhấp chuột vào đây để mở rộng...
Đây là M code, có sắn trong file attach mà...
Click phải vùng xanh lá , chọn Query / Edit ...
Mã: 
let

// Chú thích: Source là kết hợp 2 table Thu, Chi vào thành 1 table
    Source = Table.Combine({Thu, Chi}),

// Sort table theo cột Ngày a--> z, cột Thu lớn --> nhỏ
    Sorted = Table.Sort(Source,{{"Ngay", Order.Ascending},{"Thu", Order.Descending}}),

// Thêm cột STT để tạo running total ( cộng dồn Thu - Cộng dồn Chi )
    CotIndex = Table.AddIndexColumn(Sorted, "Index",1,1),
    CotTon = Table.AddColumn(CotIndex, "TonQuy", each  List.Sum(List.FirstN(CotIndex[Thu],[Index]))- List.Sum(List.FirstN(CotIndex[Chi],[Index]))),

//Khi có  kết quả tồn quĩ mỗi dòng rồi thì delete cột này đi
    RemovedIndex = Table.RemoveColumns(CotTon,{"Index"})

in
    RemovedIndex
 
Upvote 0
DeTong đã viết:
Đây là M code, có sắn trong file attach mà...
Click phải vùng xanh lá , chọn Query / Edit ...
Mã: 
let

// Chú thích: Source là kết hợp 2 table Thu, Chi vào thành 1 table
    Source = Table.Combine({Thu, Chi}),

// Sort table theo cột Ngày a--> z, cột Thu lớn --> nhỏ
    Sorted = Table.Sort(Source,{{"Ngay", Order.Ascending},{"Thu", Order.Descending}}),

// Thêm cột STT để tạo running total ( cộng dồn Thu - Cộng dồn Chi )
    CotIndex = Table.AddIndexColumn(Sorted, "Index",1,1),
    CotTon = Table.AddColumn(CotIndex, "TonQuy", each  List.Sum(List.FirstN(CotIndex[Thu],[Index]))- List.Sum(List.FirstN(CotIndex[Chi],[Index]))),

//Khi có  kết quả tồn quĩ mỗi dòng rồi thì delete cột này đi
    RemovedIndex = Table.RemoveColumns(CotTon,{"Index"})

in
    RemovedIndex
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn
Mình không biết về query,nhưng excell mình 365 thì chạy ok,nhưng sang máy excell 2013 thì không tự động cập nhật khi có nhập thông tin mới
ấn refesh thì báo lỗi không kết nối được Data.
Nếu có thể bạn viết giúp mình code VBA với nhé
Xin cảm ơn bạn!
 
Upvote 0
Ha ha, đi mô rồi cũng trở về code tĩnh, nhớ nút "nhấn 1 phát", nhứ dòng vê bê a....

Người ta đã hỏi code là vba, chắc chắn không chấp nhận giải pháp khác. Vòng qua vòng lại chỉ là vuốt đuôi trước khi vòi thẳng thừng.
Lỡ rồi thì chịu khó viết vba đi.
 
Upvote 0
Ngocminh19 đã viết:
Xin chào anh chị
Em có file excell muốn gộp dữ liệu ở 2 sheet Thu,chi vào sheet Tong Hop
Mong muốn hiển thị cùng ngày,các khoản chi,số tiền còn lại
Kết quả mong muốn em có điền ở Sheet "TONG HOP"
Mong anh chị giúp đỡ .Em cảm ơn ạ
Nhấp chuột vào đây để mở rộng...
Khi mở sheet TongHop tự động chạy code
Mã: 
Private Sub Worksheet_Activate()
  Call ThuChi
End Sub

Mã: 
Sub ThuChi()
  Dim aThu(), aChi(), res()
  Dim sRow&, T&, C&, k&, ton#
 
  With Sheets("Thu ")
    aThu = .Range("B4:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
  End With
  With Sheets("CHI")
    aChi = .Range("B3:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
  End With
  aThu(UBound(aThu), 1) = 100000
  aChi(UBound(aChi), 1) = 100000
  sRow = UBound(aThu) + UBound(aChi) - 2
  ReDim res(1 To sRow, 1 To 6)
  T = 1: C = 1
  Do
    k = k + 1
    If aChi(C, 1) < aThu(T, 1) Then
      Call AddRes(res, aChi, C, k, ton, 5, -1)
    Else
      Call AddRes(res, aThu, T, k, ton, 4, -1)
    End If
  Loop Until k = sRow
  With Sheets("TONG HOP")
    sRow = .Range("A" & Rows.Count).End(xlUp).Row
    If sRow > 2 Then .Range("A3:G" & sRow).ClearContents
    .Range("A3").Resize(k, 6) = res
  End With
End Sub

Sub AddRes(res, arr, i, k, ton, ByVal col&, ByVal dau&)
  res(k, 1) = k
  res(k, 2) = arr(i, 1)
  res(k, 3) = arr(i, 2)
  res(k, col) = arr(i, 5)
  If col = 4 Then ton = ton + arr(i, 5) Else ton = ton - arr(i, 5)
  res(k, 6) = ton
  i = i + 1
End Sub
 

File đính kèm

Upvote 0
VetMini đã viết:
Ha ha, đi mô rồi cũng trở về code tĩnh, nhớ nút "nhấn 1 phát", nhứ dòng vê bê a....

Người ta đã hỏi code là vba, chắc chắn không chấp nhận giải pháp khác. Vòng qua vòng lại chỉ là vuốt đuôi trước khi vòi thẳng thừng.
Lỡ rồi thì chịu khó viết vba đi
Nhấp chuột vào đây để mở rộng...

HieuCD đã viết:
Khi mở sheet TongHop tự động chạy code
Mã: 
Private Sub Worksheet_Activate()
  Call ThuChi
End Sub

Mã: 
Sub ThuChi()
  Dim aThu(), aChi(), res()
  Dim sRow&, T&, C&, k&, ton#
 
  With Sheets("Thu ")
    aThu = .Range("B4:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
  End With
  With Sheets("CHI")
    aChi = .Range("B3:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
  End With
  aThu(UBound(aThu), 1) = 100000
  aChi(UBound(aChi), 1) = 100000
  sRow = UBound(aThu) + UBound(aChi) - 2
  ReDim res(1 To sRow, 1 To 6)
  T = 1: C = 1
  Do
    k = k + 1
    If aChi(C, 1) < aThu(T, 1) Then
      Call AddRes(res, aChi, C, k, ton, 5, -1)
    Else
      Call AddRes(res, aThu, T, k, ton, 4, -1)
    End If
  Loop Until k = sRow
  With Sheets("TONG HOP")
    sRow = .Range("A" & Rows.Count).End(xlUp).Row
    If sRow > 2 Then .Range("A3:G" & sRow).ClearContents
    .Range("A3").Resize(k, 6) = res
  End With
End Sub

Sub AddRes(res, arr, i, k, ton, ByVal col&, ByVal dau&)
  res(k, 1) = k
  res(k, 2) = arr(i, 1)
  res(k, 3) = arr(i, 2)
  res(k, col) = arr(i, 5)
  If col = 4 Then ton = ton + arr(i, 5) Else ton = ton - arr(i, 5)
  res(k, 6) = ton
  i = i + 1
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác ạ.
Kết quả thì đúng rồi nếu nhập theo thử tự ngày tử thấp dến cao.
Nhưng trong trường hợp qua ngày rồi nhập thêm Thu,Chi của ngày cũ ở dòng dưới(do quên chưa nhập ngay) thì bên Sheet "TONG HOP" chưa sắp xếp được ạ
Mong bác sửa giúp ạ.
Chúc bác ngày mới vui vẻ
1720835700532.png
 
Upvote 0
Ngocminh19 đã viết:
Nhưng trong trường hợp qua ngày rồi nhập thêm Thu,Chi của ngày cũ ở dòng dưới(do quên chưa nhập ngay) thì bên Sheet "TONG HOP" chưa sắp xếp được ạ
Nhấp chuột vào đây để mở rộng...
Nếu xài query thì không cần quan tâm chuyện này...
Query chỉ có sẵn từ Excel 2016, còn cũ hơn thì cài thêm AddIn
 
Upvote 0
Ngocminh19 đã viết:
Cảm ơn bác ạ.
Kết quả thì đúng rồi nếu nhập theo thử tự ngày tử thấp dến cao.
Nhưng trong trường hợp qua ngày rồi nhập thêm Thu,Chi của ngày cũ ở dòng dưới(do quên chưa nhập ngay) thì bên Sheet "TONG HOP" chưa sắp xếp được ạ
Mong bác sửa giúp ạ.
Chúc bác ngày mới vui vẻ
View attachment 302359
Nhấp chuột vào đây để mở rộng...
Yêu cầu cơ bản của kiểm soát cơ sở dữ liệu là "phải" nhập liệu theo thứ tự thời gian, bạn nhập không theo trình tự rất dễ sai sót .
Thêm lệnh sort dữ liệu
Mã: 
Sub ThuChi()
  Dim aThu(), aChi(), res()
  Dim sRow&, T&, C&, k&, ton#
 
  Application.ScreenUpdating = False
  With Sheets("Thu ")
    T = .Range("B" & Rows.Count).End(xlUp).Row
    res = .Range("B4:F" & T).Value
    .Range("B4:F" & T).Sort .Range("B4"), 1, Header:=xlNo
    aThu = .Range("B4:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
    .Range("B4:F" & T).Value = res
  End With
  With Sheets("CHI")
    T = .Range("B" & Rows.Count).End(xlUp).Row
    res = .Range("B3:F" & T).Value
    .Range("B3:F" & T).Sort .Range("B3"), 1, Header:=xlNo
    aChi = .Range("B3:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
    .Range("B3:F" & T).Value = res
  End With
  aThu(UBound(aThu), 1) = 100000
  aChi(UBound(aChi), 1) = 100000
  sRow = UBound(aThu) + UBound(aChi) - 2
  ReDim res(1 To sRow, 1 To 6)
  T = 1: C = 1
  Do
    k = k + 1
    If aChi(C, 1) < aThu(T, 1) Then
      Call AddRes(res, aChi, C, k, ton, 5, -1)
    Else
      Call AddRes(res, aThu, T, k, ton, 4, -1)
    End If
  Loop Until k = sRow
  With Sheets("TONG HOP")
    sRow = .Range("A" & Rows.Count).End(xlUp).Row
    If sRow > 2 Then .Range("A3:G" & sRow).ClearContents
    .Range("A3").Resize(k, 6) = res
  End With
  Application.ScreenUpdating = True
End Sub
 
Upvote 0
HieuCD đã viết:
Yêu cầu cơ bản của kiểm soát cơ sở dữ liệu là "phải" nhập liệu theo thứ tự thời gian, bạn nhập không theo trình tự rất dễ sai sót .
Thêm lệnh sort dữ liệu
Mã: 
Sub ThuChi()
  Dim aThu(), aChi(), res()
  Dim sRow&, T&, C&, k&, ton#
 
  Application.ScreenUpdating = False
  With Sheets("Thu ")
    T = .Range("B" & Rows.Count).End(xlUp).Row
    res = .Range("B4:F" & T).Value
    .Range("B4:F" & T).Sort .Range("B4"), 1, Header:=xlNo
    aThu = .Range("B4:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
    .Range("B4:F" & T).Value = res
  End With
  With Sheets("CHI")
    T = .Range("B" & Rows.Count).End(xlUp).Row
    res = .Range("B3:F" & T).Value
    .Range("B3:F" & T).Sort .Range("B3"), 1, Header:=xlNo
    aChi = .Range("B3:F" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value
    .Range("B3:F" & T).Value = res
  End With
  aThu(UBound(aThu), 1) = 100000
  aChi(UBound(aChi), 1) = 100000
  sRow = UBound(aThu) + UBound(aChi) - 2
  ReDim res(1 To sRow, 1 To 6)
  T = 1: C = 1
  Do
    k = k + 1
    If aChi(C, 1) < aThu(T, 1) Then
      Call AddRes(res, aChi, C, k, ton, 5, -1)
    Else
      Call AddRes(res, aThu, T, k, ton, 4, -1)
    End If
  Loop Until k = sRow
  With Sheets("TONG HOP")
    sRow = .Range("A" & Rows.Count).End(xlUp).Row
    If sRow > 2 Then .Range("A3:G" & sRow).ClearContents
    .Range("A3").Resize(k, 6) = res
  End With
  Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Vâng . Kết quả đúng rồi ạ
Em xin cảm ơn !
 
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

G
Xin Code xóa Module. (3 người xem)
Trả lời
4
Đọc
110
PhanTuHuong
PhanTuHuong
D
  • Question Question
Quản lý email outlook qua VBA cần giúp đỡ (1 người xem)
Trả lời
12
Đọc
231
nguyendang95
N
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
121
lamvu0677
L
N
Khắc phục lỗi "The picture is too large and will be truncated" (4 người xem)
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (4 người xem)
    • Thích
Trả lời
0
Đọc
334
GPE-Trợ Lý
GPE-Trợ Lý
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
89
khkkh
K
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
765
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
192
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
0
Đọc
97
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
103
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
14
Đọc
198
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA (1 người xem)
Trả lời
4
Đọc
694
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
208
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
202
Gà Công Nghệ
Gà Công Nghệ
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
579
Phạm Trường 80
P
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
93
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
103
DeTong
D
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
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom