[حل شده] انجام فرمول های اکسل با vba

[khorasan66]

ضمن عرض سلام و تسلیت ایام سوگواری آقا ابا عبد الله حسین ( علیه السلام ) به همه کاربران گرامی

در فایل پیوست مقادیر ردیف 4 بر اساس فرمول های اکسل طراحی شده است می خواهم این فرمول ها در vba محاسبه شوند
لذا فقط دو فرمول ستون های زرد رنگ را با شرایط مندرج نیاز دارم در vba کد نویسی شود .
توجه ( نمی خواهم vba فرمول ها موجود را در سلول های زرنگ درج نماید )
بلکه نیاز دارم از ابتدا با vba مقادیر جستجو و محاسبه شوند
با تشکر

[iranweld]

با سلام

از کدهای ذیل استفاده کنید

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False


z1 = Sheets("03").Cells(Sheets("03").Rows.Count, "A").End(xlUp).Row

For I = 4 To z1

xx = Application.VLookup(Range("b" & I), Sheets("03").Range("f:i"), 4, False)

XX2 = Application.VLookup(Range("b" & I), Sheets("03").Range("f:L"), 7, False)

Range("l" & I) = xx

If IsError(Application.VLookup(Range("b" & I), Sheets("03").Range("f:i"), 4, False)) Then

Range("T" & I) = 0

Else

Range("T" & I) = XX2 * Sheets("02").Range("C9")

End If

Next

Application.ScreenUpdating = True

End Sub 

[amir_ts]

با سلام
این کد ها رو هم امتحان کنید.

[LEFT]
Sub test()
Dim s, i As Integer
Dim rng  As Range
Set rng = Sheets(3).Range("f1:f100")
On Error Resume Next
For i = 4 To 100
If Not IsEmpty(Range("b" & i)) Then
s = Application.Match(Range("b" & i), rng, 0)
If Not IsError(s) Then
Range("l" & i).Value = Sheets(3).Range("i" & s).Value
Range("t" & i).Value = Sheets(3).Range("l" & s).Value * Sheets(2).Range("c9").Value
End If
End If
Next
End Sub
[/LEFT]