Tìm kiếm kết quả dựa vào bảng dữ liệu cho trước

[ptm0412]

Thua đi bé bo ơi, lúc thì cố định 37.5, lúc thi 48.35 anh nhá, hoặc 48.35 chứ ạ.

 

[bebo021999]

Thua đi bé bo ơi, lúc thì cố định 37.5, lúc thi 48.35 anh nhá, hoặc 48.35 chứ ạ.

Số nào thì số, dùng UDF nhé:
Nhập công thức tại G4 copy xuống G5, rồi copy 2 ô này sang phải, theo cấu trúc
=tinhtoan(PM,K, r,c)
Với PM là ô chứa PM, K là ô chứa K, r =1(trả về PO) r=2 (trả về AKM), c là số thứ tự kết quả
Vậy G4 là:

=tinhtoan($E$6,$E$9,ROWS($1:1),COLUMNS($A:A))

Đoạn code như sau: (Alt-F11 mở cửa sổ VBA, Insert/Module, copy paste code này vào. Lưu file dạng xlsm)

Option Explicit
Function tinhtoan(PM As Double, K As Double, so As Integer, n As Integer)
Dim PO As Double, AKM As Double, AH As Double, AM As Double
Dim i&, c&
For i = 10 To PM * 10
    PO = i / 10
    AKM = PM / PO
    AH = AKM * 12 / PO
    AM = PO + AKM + PM
    If AKM + AM = K * 2 Then
        c = c + 1
        If c = n Then tinhtoan = IIf(so = 1, PO, AKM)
    End If
Next
If tinhtoan = 0 Then tinhtoan = ""
End Function

 

[dangductuong2125]

Số nào thì số, dùng UDF nhé:
Nhập công thức tại G4 copy xuống G5, rồi copy 2 ô này sang phải, theo cấu trúc
=tinhtoan(PM,K, r,c)
Với PM là ô chứa PM, K là ô chứa K, r =1(trả về PO) r=2 (trả về AKM), c là số thứ tự kết quả
Vậy G4 là:

=tinhtoan($E$6,$E$9,ROWS($1:1),COLUMNS($A:A))

Đoạn code như sau: (Alt-F11 mở cửa sổ VBA, Insert/Module, copy paste code này vào. Lưu file dạng xlsm)

Option Explicit
Function tinhtoan(PM As Double, K As Double, so As Integer, n As Integer)
Dim PO As Double, AKM As Double, AH As Double, AM As Double
Dim i&, c&
For i = 10 To PM * 10
    PO = i / 10
    AKM = PM / PO
    AH = AKM * 12 / PO
    AM = PO + AKM + PM
    If AKM + AM = K * 2 Then
        c = c + 1
        If c = n Then tinhtoan = IIf(so = 1, PO, AKM)
    End If
Next
If tinhtoan = 0 Then tinhtoan = ""
End Function

Hay quá anh ơi

 

[chudoan415]

Số nào thì số, dùng UDF nhé:
Nhập công thức tại G4 copy xuống G5, rồi copy 2 ô này sang phải, theo cấu trúc
=tinhtoan(PM,K, r,c)
Với PM là ô chứa PM, K là ô chứa K, r =1(trả về PO) r=2 (trả về AKM), c là số thứ tự kết quả
Vậy G4 là:

=tinhtoan($E$6,$E$9,ROWS($1:1),COLUMNS($A:A))

Đoạn code như sau: (Alt-F11 mở cửa sổ VBA, Insert/Module, copy paste code này vào. Lưu file dạng xlsm)

Option Explicit
Function tinhtoan(PM As Double, K As Double, so As Integer, n As Integer)
Dim PO As Double, AKM As Double, AH As Double, AM As Double
Dim i&, c&
For i = 10 To PM * 10
    PO = i / 10
    AKM = PM / PO
    AH = AKM * 12 / PO
    AM = PO + AKM + PM
    If AKM + AM = K * 2 Then
        c = c + 1
        If c = n Then tinhtoan = IIf(so = 1, PO, AKM)
    End If
Next
If tinhtoan = 0 Then tinhtoan = ""
End Function

Em cảm ơn anh ạ. Anh thật chu đáo chỉ bảo chi tiết.