استفاده از Find و Replace برای یافتن سلول های قالب بندی شده به صورت شرطی

Question

ریچارد در تلاش است از Find and Replace برای شمارش سلول های فرمت شده با استفاده از یک رنگ پر خاص استفاده کند. این به خوبی کار می کند، به جز زمانی که پر شدن نتیجه قالب بندی شرطی باشد. در این مورد Find and Replace آنها را پیدا نمی کند. با این حال، هنوز هم می توان ردیف های حاوی سلول های قالب بندی شده شرطی را بر اساس رنگ پر شدنشان فیلتر کرد. ریچارد تعجب می کند که اگر Autofilter قادر به تشخیص هر یک از انواع قالب بندی سلولی باشد، Find and Replace نمی تواند مکان آن سلول ها را پیدا کند.

هر چیزی که ممکن است به عنوان «چرا» ارائه شود، البته حدس و گمان است. (بارها وجود دارد که فکر می کنم چرا مایکروسافت تصمیم گرفت کارهایی را که آنها انجام می دادند انجام دهد.) با این حال، منطقی است که Find and Replace کدگذاری شود تا بتوانید چیزهایی را پیدا کنید که می توانند جایگزین شوند. رنگ های پر که در نتیجه قالب بندی شرطی نمایش داده می شوند دقیقاً همین هستند - یک رنگ نمایشگر، نه یک رنگ پر واقعی. رنگ های نمایشگر را نمی توان جایگزین کرد، بنابراین آنها را نمی توان یافت.

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

Sub CountCellColors()
    Dim Rng As Range
    Dim c As Range
    Dim Colr As Variant
    Dim J As Integer
    Dim sTemp As String

    Set Rng = Range("A1:Z500") Change as needed
    Colr = vbYellow            Set color you want to count

    J = 0
    sTemp = ""
    For Each c In Rng
        If c.DisplayFormat.Interior.Color = Colr Then
            J = J + 1
            sTemp = sTemp & vbCr & "     " & c.Address
        End If
    Next c

    Select Case J
        Case 0
            sTemp = "There are no colored cells in the range."
        Case 1
            sTemp = "There is 1 colored cell in the range:" _
              & vbCr & sTemp
        Case Else
            sTemp = "There are " & J & " colored cells in the range:" _
              & vbCr & sTemp
    End Select
    MsgBox sTemp
End Sub

هنگامی که ماکرو اجرا می شود، یک کادر پیام نمایش می دهد که تعداد تطابق رنگ ها و همچنین آدرس سلول هایی را که مطابقت داده اند را نشان می دهد. همانطور که نوشته شده است، ماکرو سلول های A1:Z500 را بررسی می کند و به دنبال رنگ زرد در سلول ها می گردد. هر دو خطی که این مقادیر در آن تنظیم شده اند را می توان به هر آنچه که برای نیازهای شما مناسب است تغییر داد.