نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1


    آخرین بازدید
    2019/04/13
    تاریخ عضویت
    September 2014
    نوشته ها
    38
    امتیاز
    22
    سپاس
    6
    سپاس شده
    12 در 9 پست
    تعیین سطح نشده است

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

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

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

    با سپاس


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

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام


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

    کد 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


    آخرین بازدید
    2019/04/13
    تاریخ عضویت
    September 2014
    نوشته ها
    38
    امتیاز
    22
    سپاس
    6
    سپاس شده
    12 در 9 پست
    تعیین سطح نشده است

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

    - - - 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 : 2018/02/13 در ساعت 22:15


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

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

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

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

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

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

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

علاقه مندی ها (Bookmarks)

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

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