پیدا کردن کوچکنترین عدد بزرگتر از عدد مورد نظر

[1q2w3e4rr]

سلام به همه

چطوری کوچکنترین عدد بزرگتر از عدد مورد نظرم رو در یک ستون پیدا کنم؟

مثلا اگه یه ستون با اعداد 1و2و3و4و5و6و7و8و9 داشته باشیم .
بعد من مثلا عدد 2.5 رو در یک سلول وارد کنم و عدد 3 رو در سلول مقابل نمایش بده...


ممنون

[smartman]

RE: پیدا کردن کوچکنترین عدد بزرگتر از عدد مورد نظر

=MIN(IF((A1:A10>2.5);A1:A10))

[align=left]Ctrl + Shift + Enter[/align]

[1q2w3e4rr]

RE: پیدا کردن کوچکنترین عدد بزرگتر از عدد مورد نظر

ممنون.... :D

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

[amir_ts]

سلام
ببخشید من میخوام بین اعداد چند سلول مثلا a2:k6 اولین عدد بزرگتر از مقدار ثبت شده در ستون o1 و اولین عدد کوچکتر از اون رو پیدا کنه

از راهنمایی شما سپاسگذارم

با سلام
برای بزگتر از مقدار o1 فرمول

=MIN(IF(A2:K6>O1;A2:K6)) 

و برای کوچکتر از مقدار o1 فرمول زیر رو امتحان کنید.

=MAX(IF(A2:K6<O1;A2:K6)) 

به خاطر داشته باشید بعد از نوشتن فرمول کلید های ctrl+shift+enter رو باهم فشار دهید.

[ZAMEN58]

پیدا کردن آدرس

با سلام و تشکر
یه سوال دیگه اون عدد رو در بین اعداد نشون بده یا آدرسش را توی یه سلول نشون بده
باز هم ممنون

[amir_ts]

با سلام
از فرمول های آرایه ای برای شماره سطر فرمول زیر:

=SMALL(IF($A$2:$K$6=O3;ROW($A$2:$K$6);"");1) 

برای شماره ستون هم فرمول زیر :

=SMALL(IF($A$2:$K$6=O3;COLUMN($A$2:$K$6);"");1) 

و برای آدرس هم ترکیب سطر و ستون در تابع Address :

=ADDRESS(SMALL(IF($A$2:$K$6=O3;ROW($A$2:$K$6);"");1);SMALL(IF($A$2:$K$6=O3;COLUMN($A$2:$K$6);"");1)) 

این فرمول هم برای نمایش رنگی در لیست با استفاده از ابزار conditional formatting به کار برید.

=IF(A2=$O$3;TRUE;FALSE) 

[ZAMEN58]

سلام خیلی ممنون
کمک خیلی خوبی بود

[amir_ts]

با سلام
موضوع سوال شما با محل طرح سوال همخوانی نداره بهتره شما تاپیک جدا برای سوالتون باز کنید.
از مدیران درخواست کنید که تاپیک رو انتقال بدن.ظاهرا هم جواب سوال شما نیاز به کد نویسی دارد.

من دو روش رو انجام دادم یکی با Conditional formatting یکی هم با کد البته هر دو روش دقیقا چیزی که شما نشون دادید نیست ولی شاید نیازتون رو برطرف کنه.
روش اول ابزار Conditional formatting هست که از فرمول زیر استفاده شده است.

=CELL("address";A1)=ADDRESS($O$5;$O$6) 

روش دوم استفاده از کدنویسی هست که به این صورت هست:

[LEFT]
Sub test()
Dim prow, pcolumn As Variant
Static xRow
Static xColumn

prow = Range("o5").Value
pcolumn = Range("o6").Value
xRow = prow
xColumn = pcolumn
With Columns(pcolumn).Interior
    .ColorIndex = 5
    .Pattern = xlSolid
End With
With Rows(prow).Interior
    .ColorIndex = 5
    .Pattern = xlSolid
End With
End Sub


[/LEFT]

این کد هم در شیت باید قرار بدید.

[LEFT]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$5" Or Target.Address = "$O$6" Then
Cells.Interior.Pattern = xlNone
End If
End Sub



[/LEFT]

[ZAMEN58]

سلام امیر جان
شرمنده اینقدر مزاحم می شم
من برنامه نویسی بلد نیستم
با کمک تو یه چیزهایی نوشتم ببین
حالا سوال من اینه که چطوری از توی شیت main برم به سلولی که توی شیت e انتخاب شده و کاری رو که دکمه توی شیت e انجام می ده را انجام بده
باز هم ممنون

[amir_ts]

با سلام
خواهش میکنم نمونه فایل پیوست شد.

[ZAMEN58]

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

[amir_ts]

با سلام
بر روی سلول cell link مربوط به option button کلیک راست، انتخاب format cells و برگه protection تیک Lucked رو بردارید و امتحان کنید.

[ZAMEN58]

سلام
قبلا امتحان کردم ، نشد

[amir_ts]

این کار رو قبل از پروتکت کردن شیت باید انجام بدید.

http://answers.microsoft.com/en-us/office/forum/office_2003-excel/allow-users-to-choose-option-buttons-but-nothing/0ae8680c-e4d4-4188-9652-ca3b35293b29?auth=1