[حل شده] مسئله این است(((php)))

[امین نیما]

با سلام و روز بخیر خدمت اساتید و دوستان عزیز

این فرمول PHP را مشاهده بفرمایید زمان زیادی کامپیوتر صرف میکنه برای اجرای فرمول البته 5ثانیه طول میکشه ولی زمانی که تعداد فرمول ها زیاد میشه(10تا فرمول جداگانه) زمانی که طول میشکشه فرمول اجرا بشه 1دقیقه میشود،امکان دارد همین فرمول را طوری نوشت که برای کامپیوتر ساده تر باشه و زمان کمتری صرف اون بکنه،
همین فرمول را من در فرمول بار نوشتم بلافاصله جواب میده و لی در VBA چند برابر دیرتر جواب میده دلیل ؟؟؟؟؟

Y = ActiveSheet.Cells(5).Column

K = ActiveSheet.Cells(35).Column

For i = Y To K

If LCase(Cells(3, i).Value) = "í˜ÔäÈå" And Cells(4, i) <> "*" Then

Cells(13, i).Value = "F"

ElseIf LCase(Cells(3, i).Value) = "Óå ÔäÈå" And Cells(4, i) <> "*" Then

Cells(13, i).Value = "F"

ElseIf LCase(Cells(3, i).Value) = "äÌÔäÈå" And Cells(4, i) <> "*" Then

Cells(13, i).Value = "F"

Else

Cells(13, i).Value = ""

End If

Next i

End Sub

با تشکر از دوستان

[Amir Ghasemiyan]

سلام دوست عزیز
کد شما خیلی سنگین نیست که کند بشه کارتون ولی در عین حال من چند توصیه میکنم که سرعت کارتو بره بالا

اولا بجای and از if تو در تو استفاده کنید. به این صورت که if بیرونی شرط

Cells(4, i) <> "*"

باشه و if داخلی شرط دیگه
دوم اینکه

LCase(Cells(3, i).Value)

رو داخل یک متغیر بریزین تا برنامه مجبور نباشه هر بار اینو محاسبه کنه

[امین نیما]

سلام دوست عزیز
کد شما خیلی سنگین نیست که کند بشه کارتون ولی در عین حال من چند توصیه میکنم که سرعت کارتو بره بالا

اولا بجای and از if تو در تو استفاده کنید. به این صورت که if بیرونی شرط

Cells(4, i) <> "*"

باشه و if داخلی شرط دیگه
دوم اینکه

LCase(Cells(3, i).Value)

رو داخل یک متغیر بریزین تا برنامه مجبور نباشه هر بار اینو محاسبه کنه

با تشکر از شما امکان داشته باشه فرمت if تو در تو در PHP را راهنمایی بفرمایید ممنون میشم
اگه مقدور باشه مثال سوالی را که پرسیدم به صورت if تو در تو بفرمایید عالی میشود
با تشکر از شما

[Amir Ghasemiyan]

با تشکر از شما امکان داشته باشه فرمت if تو در تو در PHP را راهنمایی بفرمایید ممنون میشم
اگه مقدور باشه مثال سوالی را که پرسیدم به صورت if تو در تو بفرمایید عالی میشود
با تشکر از شما

دوست عزیز این کدهایی که نوشتین php نیست. vba هست. کد اصلاح شده خدمت شما

Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K
If Cells(4, i) <> "*" Then
    Q = LCase(Cells(3, i).Value)
    If Q = "í˜ÔäÈå" OR Q = "Óå ÔäÈå" OR Q = "äÌÔäÈå" then Cells(13, i).Value = "F"
Else
    Cells(13, i).Value = ""
End If
Next i

[امین نیما]

دوست عزیز این کدهایی که نوشتین php نیست. vba هست. کد اصلاح شده خدمت شما

Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K
If Cells(4, i) <> "*" Then
    Q = LCase(Cells(3, i).Value)
    If Q = "í˜ÔäÈå" OR Q = "Óå ÔäÈå" OR Q = "äÌÔäÈå" then Cells(13, i).Value = "F"
Else
    Cells(13, i).Value = ""
End If
Next i

با تشکر از شما