مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

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

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • mohias
    • 2018/10/10
    • 4
    • 27.00

    [حل شده] شمارش در صورت برقراری دوشرط

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

    • 2019/01/07
    • 237
    • 86.00

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

    کامنت

    • mohias
      • 2018/10/10
      • 4
      • 27.00

      #3
      نوشته اصلی توسط hadi1980
      سلام
      فايل رو براتون ضميمه کردم
      تو اين برنامه مقدار و نوع رنگ قلم سلول a1 رو بررسي ميکنه
      و تو ستون b (از رديف يک تا 100) هرکدوم که اون مقدار و رنگ قلم رو دارند تعدادشون رو در سلول a2 نشون ميده
      موفق باشيد
      هادي
      خیلی تشکر بابات راهنمایتون حالا اگر من بخوام توی کد به جای استفاده از Font.Color از رنگ پس زمینه استفاده کنم باید چی بنویسم .

      کامنت

      • hadi1980

        • 2019/01/07
        • 237
        • 86.00

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

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

        کامنت

        • mohias
          • 2018/10/10
          • 4
          • 27.00

          #5
          نوشته اصلی توسط hadi1980
          سلام مجدد
          براي حالت No fill
          Range("A1").Interior.Pattern = xlNone

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

          کامنت

          چند لحظه..