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

موضوع: نیاز به کمک جهت رفع اشکال فیلتر رنگ ( رنگ سلول از طریق : Conditional Formating ایجاد شده است )!

  1. #1


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    نیاز به کمک جهت رفع اشکال فیلتر رنگ ( رنگ سلول از طریق : Conditional Formating ایجاد شده است )!

    با سلام و احترام خدمت اساتید عزیز
    نیاز به کمک جهت رفع اشکال فیلتر رنگ ( رنگ سلول از طریق : Conditional Formating ایجاد شده است )!

    مفروضات :
    سه شیت به نام Home ، A، B در اختیار داریم که در دوشیت A و B سطر هایی که شماره چک غیر تکراری دارند بصورت اتوماتیک تشخیص داده شده و رنگی می شوند.
    و ماکرویی در اختیار داریم که این سلول های رنگی رو به شیت Home انتقال می دهند.

    مشکل موجود :
    در اون قسمت از ماکرو که جهت شناسایی سلول های رنگی تهیه شده است :

    کد:
    .Interior.ColorIndex = 49
    ، این شناسایی فقط زمانی صورت می گیرد که سلول های مربوطه از طریق پالت رنگ رنگ آمیزی شده باشند! تا کار انتقال انجام شود ! در حالی که من این سلول های رنگی رو از طریق Conditional Formating رنگی کردم نه پالت رنگ بصورت دستی !

    کد شناسایی رنگ و فیلتر رنگ مربوطه :
    کد:
    Sub FilterBlueRow()
    za1 = Sheet2.Cells(Sheet2.Rows.Count, "C").End(xlUp).Row
    For I = 2 To za1
    If Range("C" & I).Interior.ColorIndex = 49 Then
        ActiveSheet.ListObjects("Table269").Range.AutoFilter Field:=3, Criteria1:=RGB _
            (22, 54, 92), Operator:=xlFilterCellColor 
     Exit For
    End If
    Next I
    End Sub
    برای رفع این مشکل من مجبور شدم به ماکروی مربوطه مواردی را اضافه کنم که طی آن بیاد در اخر هر جدول یک ردیف خالی ایجاد کنه و اخرین سلول خالی رو از پالت رنگ ، به رنگ مخصوص تبدیل کند تا تمام سلول هایی که از طریق Conditional Formating هم رنگی شده اند در شناسایی این ماکرو تشخیص داده شده و لحاظ شوند ! و فیلتر سلول های رنگ انجام پذیرد و در اخر آخرین سطر خالی ایجاد شده رو حذف می کنم ! و انتقال سلول های رنگی انجام میشه .

    کد:
    Sub FilterBlueRow()
        Range("C2").Select
        Selection.End(xlDown).Select
        Selection.ListObject.ListRows.Add AlwaysInsert:=True
       ' Range("C7").Select
       Selection.End(xlDown).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorLight2
            .TintAndShade = -0.249977111117893
            .PatternTintAndShade = 0
        End With
    
    za1 = Sheet2.Cells(Sheet2.Rows.Count, "C").End(xlUp).Row
    For I = 2 To za1
    If Range("C" & I).Interior.ColorIndex = 49 Then
        ActiveSheet.ListObjects("Table269").Range.AutoFilter Field:=3, Criteria1:=RGB _
            (22, 54, 92), Operator:=xlFilterCellColor      
     Exit For
    End If
    Next I
          Range("C2").Select
        Selection.End(xlDown).Select
        Selection.End(xlDown).Select
        Selection.EntireRow.Delete
    End Sub

    درخواست :
    با بررسی که انجام دادم https://msdn.microsoft.com/en-us/lib...ffice.12).aspx
    برای حل مسله و شناسایی رنگ سلول ها که با Conditional Formating ایجاد شده باشند، بایستی به جای :

    کد:
    .Interior.ColorIndex = 49
    از آیتم : FormatColor Object ، استفاده کرد تا شناسایی درست صورت گرفته و نیازی به اضافه کردن سطر جدید به اخر جدول و رنگ کردن آن ا از طریق پالت رنگ نبوده ، اما مسله نهایی اینجاست که من نمی دونم چطور باید از FormatColor Object به جای .Interior.ColorIndex = 49 ، استفاده کنم ! لطفا در صورت امکان راهنمایی بفرمایید .
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  کد رنگ.jpg
مشاهده: 6
حجم:  126.3 کیلو بایت
    خیلی خیلی ممنونم.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط Skynet : 2017/04/16 در ساعت 20:11

  2.  


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

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

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

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

  1. [حل شده] conditional formating
    توسط razemana در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2016/10/02, 14:50
  2. نوشتن فرمول MAX یا MIN در Conditional formating
    توسط eric در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 8
    آخرين نوشته: 2015/02/24, 13:21
  3. conditional formating
    توسط lahijsabz در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/05/15, 11:37
  4. conditional formating
    توسط runmohsen در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2011/01/20, 14:02
  5. conditional formating
    توسط SAMI در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2010/11/13, 08:34

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

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

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

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

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