پرسش جمع آوری اعداد موجود در سلولهای دارای عدد در کنار هم

[saeedhaeri]

با سلام خدمت اساتید محترم.
فایلی که ضمیمه شده، دارای محاسبات ساده ای هست که میخوام نتایج محاسبات در یک سلول در کنار هم قرار بگیره. داخل فایل هم توضیح کافی دادم. اگر ممکنه راهنمایی بفرمایید. با تشکر

[iranweld]

با سلام

با کدنویسی انجام شد

Sub test()

Range("q7") = ""

For i = 2 To 100

If Cells(1, i) > 0 Then

xx = Range("a3") Mod Cells(1, i)

If xx = 0 Then

If Len(kk) > 0 Then

kk = kk & "," & Cells(1, i)

Else

kk = "(" & Cells(1, i)

End If


End If

End If

Next

Range("q7") = kk & ")=" & Range("a3")

End Sub 

[saeedhaeri]

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

[saeedhaeri]

با سلام مجدد، اساتید محترم اگر این سوال جوابی داره و در اکسل میشه انجامش داد، لطفا پاسخ بدن. یک دنیا تشکر.

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

[Behnam]

سلام
قطعا روش استاد حسن پور بهتر و منطقی تر هست اما چون اصرار به استفاده از فرمول دارید باید از ترکیب فرمول هایی مثل concatenate و substitute استفاده کنید که مطمنا همین که بخواید همه رو باهم عطف کنید کار زمان بری هست - (البته این مشکل هم تا حدودی با تابع concat و البته تابع textjoin در اکسل 2019 برطرف شده)
بهرحال با ترفند من به نتیجه مد نظر شما رسیدم
خدمت شما

[saeedhaeri]

سلام و تشکر از شما استاد محترم
متاسفانه فایلی که مرحمت فرمودید، باز نمیشه. اگر زحمتی نیست لطفا بررسی کنید.
سپاس

سلام
قطعا روش استاد حسن پور بهتر و منطقی تر هست اما چون اصرار به استفاده از فرمول دارید باید از ترکیب فرمول هایی مثل concatenate و substitute استفاده کنید که مطمنا همین که بخواید همه رو باهم عطف کنید کار زمان بری هست - (البته این مشکل هم تا حدودی با تابع concat و البته تابع textjoin در اکسل 2019 برطرف شده)
بهرحال با ترفند من به نتیجه مد نظر شما رسیدم
خدمت شما

[Behnam]

چک شد مشکلی نداره فایل
مجدد با نسخه قدیمی تر بارگزاری میکنم ببینید

[saeedhaeri]

با تشکر از ارسال مجدد. ولی فرمول در سلول q7 یا جای دیگر نیست!
[ATTACH=CONFIG]18156[/ATTACH]

[Behnam]

سلولی که خطا شده فرمول داره
همون فایل اولی که پیوست کردم رو اگر ملاحظه بکنید درسته
یا در سول az3 فرمول زیر رو بنویسید

=SUBSTITUTE(CONCATENATE("(",AY3,AX3,AW3,AV3,AU3,AT3,AS3,AR3,AQ3,AP3,AO3,AN3,AM3,AL3,AK3,AJ3,AI3,AH3,AG3,AF3,AE3,AD3,AC3,AB3,AA3,Z3,Y3,X3,W3,V3,U3,T3,S3,R3,Q3,P3,O3,N3,M3,L3,K3,J3,I3,H3,G3,F3,E3,D3,C3,B3,")"),",","",1) 

[saeedhaeri]

سلولی که خطا شده فرمول داره
همون فایل اولی که پیوست کردم رو اگر ملاحظه بکنید درسته
یا در سول az3 فرمول زیر رو بنویسید

=SUBSTITUTE(CONCATENATE("(",AY3,AX3,AW3,AV3,AU3,AT3,AS3,AR3,AQ3,AP3,AO3,AN3,AM3,AL3,AK3,AJ3,AI3,AH3,AG3,AF3,AE3,AD3,AC3,AB3,AA3,Z3,Y3,X3,W3,V3,U3,T3,S3,R3,Q3,P3,O3,N3,M3,L3,K3,J3,I3,H3,G3,F3,E3,D3,C3,B3,")"),",","",1) 

با سلام و تشکر مجدد
این راه رو قبلا رفته بودم ولی چون یک راه نسبتا طولانیه، ازش صرفنظر کردم. من میخواهم بازه 50 عدد رو به 3000 گسترش بدم، فکر میکنم با این روش نمیشه.

[saeedhaeri]

با سلام و وقت بخیر
یه سوال دارم. در اکسل conditional formatting چه شرایطی رو در داخل سلول قبول میکنه؟ منظورم اینه که میخوام مثلا در یک ستون سلولهایی رو که کمتر از 5 هستند رو رنگی کنه ولی میخوام این عبارت <5 رو از داخل سلول مثلا B1 بخونه. وقتی اینطوری تنظیم میکنم، جواب نمیده. راهش چیه؟
البته این رو هم اضافه کنم که میخوام دو شرط رو همزمان بخونه که با تابع AND آوردم. برای روشن شدن بهتر موضوع، فایل نمونه میفرستم.
با تشکر.
AverageIFS.xlsxAverageIFS.xlsx

---

[mokaram]

تو قسمت فرمول نویسی کد زیر را بنویسید

=if(and($g7<=$b$1;$b$1<5);1;0) 

[saeedhaeri]

با سلام و تشکر از پاسختون
ولی من میخوام که علامت بزرگتر و عدد مثل (>5) رو از داخل سلول بخونه نه که مستقیم توی فرمول conditional formatting نوشته بشه.

[mokaram]

فرمول را به شکل زیر تغییر بدید

=if($g7<=$b$1;1;0) 

[saeedhaeri]

فرمول را به شکل زیر تغییر بدید

=if($g7<=$b$1;1;0) 

ممنون. ولی بازم مشکل حل نمیشه چون شما بازهم علامت بزرگتر مساوی رو داخل CONDITIONAL FORMATTING آوردید. من میخوام این رو از داخل یک سلول شیت بخونه.
مثلا وقتی توی سلول a1 مینویسم >5 و آدرس A1 رو داخل CONDITIONAL FORMATTING میگذارم، رنگ تغییر کنه. امیدوارم منظورم رو رسونده باشم.