شمارش در صورت برقراری دوشرط

[mohias]

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

ممنون از راهنمایهاتون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[hadi1980]

سلام
فايل رو براتون ضميمه کردم
تو اين برنامه مقدار و نوع رنگ قلم سلول a1 رو بررسي ميکنه
و تو ستون b (از رديف يک تا 100) هرکدوم که اون مقدار و رنگ قلم رو دارند تعدادشون رو در سلول a2 نشون ميده
موفق باشيد
هادي

[mohias]

سلام
فايل رو براتون ضميمه کردم
تو اين برنامه مقدار و نوع رنگ قلم سلول a1 رو بررسي ميکنه
و تو ستون b (از رديف يک تا 100) هرکدوم که اون مقدار و رنگ قلم رو دارند تعدادشون رو در سلول a2 نشون ميده
موفق باشيد
هادي

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

[hadi1980]

سلام مجدد
براي حالت No fill
Range("A1").Interior.Pattern = xlNone

براي حالت رنگي مثلا قرمز
Range("A1").Interior.Color = 255
يه راه ساده اون هم ضبط کردن ماکرو هست که تقريبا همين کدها رو ولي با مخلفاتش به شما ميده

[mohias]

سلام مجدد
براي حالت No fill
Range("A1").Interior.Pattern = xlNone

براي حالت رنگي مثلا قرمز
Range("A1").Interior.Color = 255
يه راه ساده اون هم ضبط کردن ماکرو هست که تقريبا همين کدها رو ولي با مخلفاتش به شما ميده

تشکر بابات راهنامیتون خیلی به کارم اومد
ممنون از لطفتون