timkiem_abc
Thành viên mới
- Tham gia
- 14/7/09
- Bài viết
- 24
- Được thích
- 15
Option Explicit
Sub GhiNhap()
Dim Rng As Range, sRng As Range, Cls As Range
Set Rng = Range([i5], [I65500].End(xlUp))
For Each Cls In Range([A6], [A65500].End(xlUp))
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
With sRng.Offset(, 2)
.Value = .Value + Cls.Offset(, 2).Value
.Offset(, 1).Value = .Offset(, 1).Value + Cls.Offset(, 3).Value
End With
End If
Next Cls
End Sub
Tính tổng theo 2 điều kiện,code trong file mới đúng được 1,A/C sửa giúp .
Option Explicit
Sub GhiNhap()
Dim Rng As Range, sRng As Range, Cls As Range
2 Dim MyAdd As String
Set Rng = Range([i5], [I65500].End(xlUp))
For Each Cls In Range([A6], [A65500].End(xlUp))
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
7 MyAdd = sRng.Address
Do
9 If Cls.Offset(, 1).Value = sRng.Offset(, 1).Value Then
With sRng.Offset(, 2)
.Value = .Value + Cls.Offset(, 2).Value
.Offset(, 1).Value = .Offset(, 1).Value + Cls.Offset(, 3).Value
End With
14 End If
Set sRng = Rng.FindNext(sRng)
16 Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Next Cls
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2