نوشتن فرمول

[reza_1001]

سلام بر دوستان ....

یک سری عدد داریم :
1
2
3
3
3
4
4
5
6
7
8
8
7
7
7
6
6
6
5
5
4
4
4
5
5
6
6
7
8
9

از 1 تا 8 سیر صعودی داشته سپس اعداد تا 4 سیر نزولی پیدا کرده دوباره اعداد سیر صعودی پیدا میکنند .


اعدادی که سیر صعودی دارند =a
اعدادی که سیر نزولی دارند = b


حالا سوالم اينه كه چطور تابع بنویسم که:

اعدادی که در سیر صعودی تکراری هستند =a
اعدادی که در سیر نزولی تکراری هستند =b

ممنون میشم که دوستان کمکم کنند .

[~M*E*H*D*I~]

درود

این سوال شما که پاسخ داده شده

http://forum.exceliran.com/showthread.php?t=2807&p=13794#post13794

[reza_1001]

نه ، در سوال قبلی اعداد تکراری جداگانه و یکسان محاسبه شده اند و =b بودند
ولی در این سوال اعدادی تکراری که در سیر صعودی هستند مثل اعداد صعودی =a باشند
و اعدادی تکراری که در سیر نزولی هستند مثل اعداد نزولی =b باشند

[Behnam]

خیلی سوالتون نامفهومه
شاید با فرمول زیر کارتون راه بیفته،تو سلول B2 بنویسین و درگ کنین
("","IF(AND(A6>A5,A6=A8),"A",IF(AND(A6>A8,A6=A5)," B

[reza_1001]

فايل مربوط رو پیوست کردم
شاید بنده خوب نتونستم توضیحش بدم .
میخواهم اعداد صعودی a باشند و اعداد تکراری صعودی هم aباشند و
اعداد نزولی b باشند و اعداد تکراری نزولی هم b باشند .

[MEYTI]

با سلام و تشکر از دوستان پاسخگو
دوست عزبر شما باید فرمول را به صورت زیر تغییر دهید فایل ارسالی هم پیوست کردم

=IF(AND(B1="b";A2=A1);"b";IF(OR(A2>A1;A2=A1);"a";" b"))

[reza_1001]

سلام آقا مهدی .....ممنون ،خدا خیرتون بده مشکلم حل شد.
فقط میتونید فرمولی که نوشته اید رو بصورت vb برام بنويسيد.

[MEYTI]

با سلام خدمت شما کد vba فرمول فوق

Dim cell As Range

For Each cell In Sheet1.Range("a2:a365")
If cell.Offset(-1, 1).Value = "b" And cell.Value = cell.Offset(-1, 0).Value Then

cell.Offset(0, 1).Value = "b"
Else

If cell.Value > cell.Offset(-1, 0) Or cell.Value = cell.Offset(-1, 0) Then

cell.Offset(0, 1).Value = "a"

Else

cell.Offset(0, 1).Value = "b"
End If

End If
Next

[reza_1001]

با سلام .....داداش گلم بنده با برنامه نویسی اکسل زیاد آشنا نیستم . اگر زحمتتون نمیشه بجای کلمات value , cell value ,celloffset كلمات a1,a2 بزارین تا متوجه بشم ممنونتون میشم .
بعدا باید جملات Dim cell As Range و
For Each cell In Sheet1.Range("a2:a365")
رو هم بنویسم .

[MEYTI]

با سلام داداش گلم کد نویسی در vba با فرمول نویسی در کاربرگ اکسل فرق میکنه
برای پیمایش سلولها به ترتیب از لوپ یا حلقه استفاده کردم برای همین از cell و offset استفاده کردم

[reza_1001]

با سلام ....خب داداشم اگه زحمتی نیست این فرمول رو در یک فایل vba اکسل وارد کن و برای دانلود بزار تا دانلودش کنم ممنون.
چون اینجوری بلد نیستم .

[MEYTI]

خدمت شما

[reza_1001]

خدا خیر کثیر بهتون بده .
التماس دعا