اصلاح یک فرمول

[reza_1001]

با سلام خدمت دوستان ....
قبلا در پست "نوشتن یک فرمول شرطی" خواستار کمک در نوشتن یک فرمول بودم که آقای amir sayyafi زحمت کشیدند و برام نوشتند ولی حالا اشتباه محاسبه میکنه .
اما متن پست قبلی :
فرض کنید که یک سری عدد داریم :
1
2
3
4
5
6
7
7
7
6
5
4
4
5
6
7
8
و.....
اگر توجه کنید تا عدد 7 سیرش صعودی بوده سپس در عدد 7 توقف کرده و سپس سیرش نزولی شده ودوباره وقتی به 4 رسیده توقف کرده وسپس سیرش صعودی شده .

حالا سوال بنده اینه که چطورفرمول در vb باید نوشته بشه که:
اگر اعداد سیرشان صعودی است =A
اگراعداد توقف کردند=B
اگراعداد سیرشان نزولی شد=C

و ...
این هم فایل مورد نظر که با فرمول آقا امیرمحاسبه شده و اشتباه محاسبه کرده است .
فقط دوستان اگه زحمتی نیست در محیط vb فرمول روبنویسند چون نیاز دارم که بصورت fuction عمل کنه و خروجی بده .
ممنون از همه دوستان.

[mahsa shayesteh]

سلام

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

[komeilex]

سلام دوست عزیز. تشکر از خانم امیرسیافی و خانم شایسته.
اگه بخوای به عنوان یه تابع داشته باشی که این کارو برات انجام بده کد زیر رو تو محیط VB بنویس البته یه ماژول براش تعریف کن تا تابع compare به لیست توابع اکسلت اضافه بشه:

Function compare(first, sec)
If first - sec > 0 Then compare = "a"
If first = sec Then compare = "b"
If first - sec < 0 Then compare = "c"
End Function 

[reza_1001]

سلام ...
ممنون از خانمامیر سیافی و آقا کمیل .