امین نیما
2015/11/16, 09:49
با سلام و روز بخیر خدمت اساتید و دوستان عزیز
این فرمول 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
با تشکر از دوستان
این فرمول 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
با تشکر از دوستان