các bạn giúp mình giải bài tập này với.

[langkhachquaduong]

các bạn giúp mình giải bài tập này với.

 

[SA_DQ]

Câu 1 bạn có thể tham khảo cách này:

Sub TinhTSLuongCuaTungNV()
 Dim CSDL As Range, WF As Object, Cls As Range
 Dim Rws As Long, Col As Integer
 
 Rws = [B2].CurrentRegion.Rows.Count
 Set CSDL = [B1].Resize(Rws, 4)
 Set WF = Application.WorksheetFunction
 [I15:J15].Value = [B1:C1].Value
 For Rws = 18 To 21
    [I16].Value = Cells(Rws, "A").Value
    For Col = 2 To [A17].End(xlToRight).Column
        [J16].Value = Cells(17, Col).Value
        Cells(Rws, Col).Value = WF.DSum(CSDL, [E1], [i15:j16])
    Next Col
 Next Rws
 [i15:j16].ClearContents
End Sub

 

[langkhachquaduong]

dùng excel được không bạn.vba thì mình chưa học

 

[SA_DQ]

Ngược lại công thức Excel mình lại chưa học!

 

[VetMini]

dùng excel được không bạn.vba thì mình chưa học

Được: đi tìm hiểu về Pivot Table.
Nếu chưa học Pivot thì đi tìm hiểu về SUMIFS.

 

[vampirehl]

dùng excel được không bạn.vba thì mình chưa học

Bác tìm hiểu thêm về VBA đi cho chủ động

Link sách VBA cơ bản http://megaurl.in/Q1XCo

 

[langkhachquaduong]

Được: đi tìm hiểu về Pivot Table.
Nếu chưa học Pivot thì đi tìm hiểu về SUMIFS.
nếu xài đk piviot mình đã xài rồi.

Bài đã được tự động gộp: 9/8/19

Bác tìm hiểu thêm về VBA đi cho chủ động

Cám ơn bạn nhé.Mình cũng mới đăng ký khóa học vba.chứ đụng excel công thức nhiều máy nó chạy chậm .

Bài đã được tự động gộp: 9/8/19

Bác tìm hiểu thêm về VBA đi cho chủ động

Link bị lỗi rồi bạn ơi