Nhập dữ liệu số, so sánh và xử lý.Sau đó hiển thị kết quả gán là một dữ liệu Text. (1 người xem)

[krvn]

Chào các anh em GPE!
Tôi có một bài toán như file đính kèm dưới đây.
Yêu cầu của bài toán là nhập vào dữ liệu số, so sánh và xử lý các điều kiện.Sau đó hiển thị kết quả gán là một dữ liệu Text.
Mong các bác giúp đỡ.Email của nhà em là krvn_friend_telecom@yahoo.com
Cảm ơn các anh em vì sự chia sẻ!

 

[nghiaphuc]

Chào các anh em GPE!
Tôi có một bài toán như file đính kèm dưới đây.
Yêu cầu của bài toán là nhập vào dữ liệu số, so sánh và xử lý các điều kiện.Sau đó hiển thị kết quả gán là một dữ liệu Text.
Mong các bác giúp đỡ.Email của nhà em là krvn_friend_telecom@yahoo.com
Cảm ơn các anh em vì sự chia sẻ!

Bạn sử dụng code này cho Sheet1, sau đó thay đổi giá trị trong vùng H4:K4 để xem kết quả.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range, Flag As Boolean
    If Intersect(Target, [H4:K4]) Is Nothing Then Exit Sub
    For Each Cll In Range([D4], [D65536].End(xlUp))
        If Abs(Cll - [H4]) <= [K4] And Cll.Offset(, 1) = [I4] And Cll.Offset(, 2) = [J4] Then
            Flag = True: [G4] = Cll.Offset(, -1): Exit For
        End If
    Next Cll
    If Not Flag Then [G4] = "Khong tim thay"
End Sub

 

[SA_DQ]

Cung cấp hẵn cho bạn hàm tự tạo, xài có thể tiện hơn!

Option Explicit
Function Display_(DC1 As Range, DC2 As Range, SaiSo As Range, P1 As Range, P2 As Range, _
   h1 As Range, h2 As Range)
   
 Display_ = "Nothing"
 If (DC1 - SaiSo <= DC2 And DC2 <= DC1 + SaiSo) And P1 = P2 And H1 = H2 Then _
   Display_ = DC1.Offset(, -1).Value
End Function

Hướng dẫn sử dụng: Tại [G4] bạn thiết lập cú fáp : =display_(D4,H$4,K$4,E4,I$4,F4,J$4)

Vì có địa chỉ tươngd9o61i1 rồi, ta dùng chức năng FillDown kéo xuống đến [G11] để có kết quả

Chúc thành công!