PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : کار با رنگها در اکسل.کمک.



payam
2012/05/21, 21:26
با درود.میخوایم به اکسل بگیم که اگر در ستون مثلا B هر جا رنگ سبز بود اعداد روبروی آن در ستون A رو با هم جمع بزن.راهنمایی کنید لطفا.

~M*E*H*D*I~
2012/05/21, 22:25
سلام
دوست عزیز امکان این کار در ورژن 2007به بالا نیست اگه با 2003کار میکنی چند نمونه تو تالار هست

khakzad
2012/05/21, 23:27
سلام
مگه میشه که در ورژن های بعد ی چیزی حذف بشه، بهترش بجاش گذاشته نشه؟:huh:
یعنی واقعا هیچی جاش نذاشتن؟
قبلا چطوری بود؟

~M*E*H*D*I~
2012/05/22, 07:17
سلام
به احتمال زیاد دوستمون از طریق conditional formating میخوان این کار رو انجام بدن در این صورت کد های رنگ قابل شناسایی نیستن تو لینک زیر در این زمینه بحث شده به هر حال اکه دوستان راه حلی دارن که کد های رنگ رو چطور شناسایی کنیم خوشحال میشم چیزی یاد بگیرم

http://forum.exceliran.com/thread-1014.html

Javid Mokhtari
2012/05/22, 21:34
سلام
به احتمال زیاد دوستمون از طریق conditional formating میخوان این کار رو انجام بدن در این صورت کد های رنگ قابل شناسایی نیستن تو لینک زیر در این زمینه بحث شده به هر حال اکه دوستان راه حلی دارن که کد های رنگ رو چطور شناسایی کنیم خوشحال میشم چیزی یاد بگیرم


باید از طریق ابزار و توابع خود اکسل پیدا شود یا VB ...؟

daghyad
2012/05/22, 23:17
نرم افزار های تشخیص کد رنگ هست دانلود کنید و تو کتاب ترفند های اکسل دقیقا همین قضیه مطرح شده با یه دستور for این تابع کمک می کنه:
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

Dim rCell As Range

Dim lCol As Long

Dim vResult



''''''''''''''''''''''''''''''''''''''

'Written by Ozgrid Business Applications

'www.ozgrid.com



'Sums or counts cells based on a specified fill color.

'''''''''''''''''''''''''''''''''''''''



lCol = rColor.Interior.ColorIndex



If SUM = True Then

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = WorksheetFunction.SUM(rCell,vResult)

End If

Next rCell

Else

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = 1 + vResult

End If

Next rCell

End If



ColorFunction = vResult

End Function

~M*E*H*D*I~
2012/05/23, 07:53
سلام
ممنون از دوستان ولی این مسئله رو به این شکل حل کنید در ورژن های 2007یا 2010 تابعی بنویسید که بر اساس رنگ مقادیر رنگی حاصل از CONDITIONAL FORMATTING رو جمع بزنه توجه داشته باشید به صورت دستی رنگ نکنید.