hoangmai2605
Thành viên chính thức


- Tham gia
- 27/2/09
- Bài viết
- 92
- Được thích
- 11
Xem file đính kèm nhé:Dear ACE forum,
Mong ACE chỉ giúp mình đoạn code. Mình tiếp tục làm thêm để vừa học hỏi vừa phục vụ công việc của mình.
Mình đã đặc tả chi tiết trong file đính kèm.
Mong sớm nhận được chỉ bảo của ACE trong forum.
Mình rất cám ơn ạ
Sub Tim()
Dim Arr(), I, x, y, z
x = Sheet3.[E4].Value
y = Sheet3.[E6].Value
With Sheet2
Arr = .Range(.[D2], .[H65000].End(3)).Value
End With
For I = 1 To UBound(Arr, 1)
If Arr(I, 4) = y And Arr(I, 5) = Val(Left(x, 2)) Then
z = Arr(I, 1)
Exit For
End If
Next
Sheet3.[E8] = z
End Sub
Thật sự muốn giúp lắm nhưng xem mãi vẫn không hiểu bạn muốn gì "mình chậm tiêu lắm". Bạn có thể cho vài kết quả bạn muốn Sum vô chỗ nào được hông.Xin cảm ơn bạn giangleloi nhiều nghe.
Mình đã bắt chước và làm vào trong bài toán của mình được thêm chút chút rồi.
Giờ bài toán của mình còn khuyết vài nơi phải tính sum.
Mình đã mô tả chi tiết trong file đính kèm.
Vậy nhờ các bạn chỉ giúp mình hoàn thiện bài toán nghe.
Mình học lóm lập trình excel từ sách phát hành của forum và từ những đoạn code được chỉ dẫn trên forum này đó.
Rất mong sớm nhận được sự giúp đỡ của mọi người ạ.
Chân thành cám ơn ACE