Nguyễn Sơn
Nguyễn Sơn
Thảo luận 6 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 338 lượt xem

Mình đang làm bài tập này ở đây có ng thức như trong ng thức lệnh

Mình đang làm bài tập này, ở đây có công thức như trong công thức lệnh của hàm Sumifs như sau: =SUMIFS(Data_SoTien, Data_Loai, "Thu", Data_Ngay, "<"&$F$3)-SUMIFS(Data_SoTien, Data_Loai, "Chi", Data_Ngay, "<"&$F$3)
Vậy chỗ Data-Sotien, Data_Loai, Data_Ngay đã có công thức gán ở chỗ nào mà công thức có nhận lện
Thảo luận 6 câu trả lời
Lượt xem 338 lượt xem
Vỗ tay vỗ tay
Nguyễn Sơn 10:08 - Aug 05, 2020
Nhờ thầy hướng dẫn giúp
Vỗ tay vỗ tay
Nguyễn Sơn 11:08 - Aug 05, 2020
chào bạn trong vba bạn viết như sau:
Sub tinhtong()
Sheet1.Range("C1").Value = Application.WorksheetFunction.SumIf(Sheet1.Range("B1:B3"), Sheet1.Range("D1"), Sheet1.Range("A1:A3"))
End Sub
Vỗ tay vỗ tay
Nguyễn Sơn 14:08 - Aug 05, 2020
Các mục Data_SoTien, Data_Loai, Data_Ngay là Name range (đặt tên vùng trong bảng dữ liệu tương ứng với các cột Số tiền, Loại, Ngày...)
Ở đây công thức sumifs có sử dụng name range thôi.
Bạn tham khảo bài viết dưới đây để hiểu rõ hơn:
1. Cách đặt tên vùng
https://gitiho.com/blog/huong-dan-cac...
2. Sử dụng tên vùng trong VBA
https://gitiho.com/blog/huong-dan-cac...
Trong bài tập này mình chỉ tận dụng hàm có sẵn trong excel để gán vào trong VBA thôi. Việc này giúp quá trình viết code nhanh hơn và dễ hơn.
Vỗ tay vỗ tay
Nguyễn Sơn 12:11 - Nov 04, 2021

Chào chuyên gia,

mình làm theo công thức tương tự bài giảng, tuy nhiên khi mình thay đổi tăng thêm số phòng ban thì khi chạy code chỉ lấy được 4 dòng thay vì như 5 dòng HDLD 

 hoặc xáo trộn số phòng ban đi thì cũng chỉ lấy 4 dòng và admin hướng dẫn có code nào lấy đúng nếu phòng ban ko xếp đúng thứ tự hay không ?



Vỗ tay vỗ tay
Nguyễn Sơn 12:11 - Nov 04, 2021
Sub in_Bophan()

Dim DongBD As Long
Dim DongKT As Long

DongBD = 3
DongKT = Sheet2.Range("U" & Rows.Count).End(xlUp).Row

Dim i As Long

For i = DongBD To DongKT
  If Sheet3.Range("U" & i).Value = Sheet2.Range("O2").Value Then
    Sheet2.Range("O3").Value = Sheet3.Range("Q" & i).Value
    'Sheet2.Activate
    Sheet2.PrintOut
 End If
Next i

End Sub





Vỗ tay vỗ tay
Nguyễn Sơn 14:11 - Nov 04, 2021

Bạn xem lại vị trí DongKT nhé. Ở đây bạn xác định theo Sheet2, cột U => nội dung này đã chính xác chưa? có bị thiếu dữ liệu không? Mình nghĩ là Sheet3 chứ không phải Sheet2 (Sheet2 là sheet in hợp đồng, còn sheet3 mới là bảng dữ liệu)

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông