پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: شمارش سلول بر اساس رنگ محتوای سلول

  1. #1


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September_2014
    نوشته ها
    50
    امتیاز
    13
    سپاس
    2
    سپاس شده
    3 در 3 پست

    شمارش سلول بر اساس رنگ محتوای سلول

    با سلام و ارادت خدمت اساتید عزیز

    نوشتن کد ماکرویی که تعداد تنوع سلول های دارای محتوا با رنگ های مختلف یک محدوده متغیر را شمارش کند و تعداد هر رنگ را به ترتیب فایل مشخص کند.

    با سپاس


    فايل هاي پيوست شده فايل هاي پيوست شده

  2.  

  3. #2


    آخرین بازدید
    5 ساعت پیش
    تاریخ عضویت
    March_2015
    محل سکونت
    آمل
    نوشته ها
    2,199
    امتیاز
    8012
    سپاس
    941
    سپاس شده
    4,701 در 1,869 پست

    با سلام


    از ماکرو ذیل استفاده کنید

    کد PHP:
    Sub test()

    2

    0

    z2 
    Cells(Rows.Count"H").End(xlUp).Row ' AKHARIN SATRE STOON H'

    If z2 0 Then z2 2

    Range
    ("H2:j" z2).Font.ColorIndex 0


    Range
    ("H2:j" z2).ClearContents  ' PAK KARDAN MAHDODEH H & j'


    Z1 Cells(Rows.Count"A").End(xlUp).Row   ' AKHARIN SATRE STOON A'


    On Error Resume Next

    Dim LIST1 
    As New Collection

    '====================Moshakhas karadan rang hay mojod======='


    For Each CELL In Range("A1:E" Z1)

    LIST1.Add CELL.Font.ColorIndexCStr(CELL.Font.ColorIndex)

    Next


    '=================sabte rang v tedad rane========================'


    For 1 To LIST1.Count

    Range
    ("H" K) = "COLOR " I

    Range
    ("H" K).Font.ColorIndex LIST1.Item(I)

    Range("j" K) = LIST1.Item(I)

    For 
    Each CELL In Range("A1:E" Z1)

    If 
    CELL.Font.ColorIndex LIST1.Item(IThen

    1

    End 
    If

    Next

    Range
    ("I" K) = T

    0

    1

    Next

    '======================================'

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده


  4. #3


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September_2014
    نوشته ها
    50
    امتیاز
    13
    سپاس
    2
    سپاس شده
    3 در 3 پست

    ببخشید اگه امکان داره مراحل توضیح بدین
    ممنونم

    - - - Updated - - -

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام


    از ماکرو ذیل استفاده کنید

    کد PHP:
    Sub test()

    2

    0

    z2 
    Cells(Rows.Count"H").End(xlUp).Row ' AKHARIN SATRE STOON H'

    If z2 0 Then z2 2

    Range
    ("H2:j" z2).Font.ColorIndex 0


    Range
    ("H2:j" z2).ClearContents  ' PAK KARDAN MAHDODEH H & j'


    Z1 Cells(Rows.Count"A").End(xlUp).Row   ' AKHARIN SATRE STOON A'


    On Error Resume Next

    Dim LIST1 
    As New Collection

    '====================Moshakhas karadan rang hay mojod======='


    For Each CELL In Range("A1:E" Z1)

    LIST1.Add CELL.Font.ColorIndexCStr(CELL.Font.ColorIndex)

    Next


    '=================sabte rang v tedad rane========================'


    For 1 To LIST1.Count

    Range
    ("H" K) = "COLOR " I

    Range
    ("H" K).Font.ColorIndex LIST1.Item(I)

    Range("j" K) = LIST1.Item(I)

    For 
    Each CELL In Range("A1:E" Z1)

    If 
    CELL.Font.ColorIndex LIST1.Item(IThen

    1

    End 
    If

    Next

    Range
    ("I" K) = T

    0

    1

    Next

    '======================================'

    End Sub 
    ممنون از لطفتون اکه امکان داره مراحل رو از اول توضیح بدین چون با خطا مواجه میشه.
    ویرایش توسط mahdi2013 : 5 روز پیش در ساعت 22:15


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پرسش: انتقال محتوای یک سطر به شیت دیگر با توجه به یک شاخص
    توسط keikhosrow در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 16 _ 10 _ 2017, 17:13
  2. توضیح روی توابعی که خودمان درست کرده*ایم
    توسط eppagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 18 _ 02 _ 2017, 13:56
  3. چگونگی لینک یک سلول به شیتهای مختلف با توجه به تغییر محتوای سلول
    توسط yamahdi13601982 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 7
    آخرين نوشته: 17 _ 03 _ 2015, 00:35
  4. توابع تودرتو if
    توسط saeid.fr190 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 28
    آخرين نوشته: 27 _ 02 _ 2015, 01:12
  5. اضافه شدن توابع تخصصي تر در توابعي مانند توابع آماري
    توسط exceliran در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 10 _ 08 _ 2011, 06:00

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد