جداسازی سلول ها بر اساس رنگ متن

Question

توماس ستونی دارد که حاوی چیزی جز مقادیر متنی مانند جملات و عبارات نیست. برخی از سلول ها متن خود را به رنگ قرمز نشان می دهند و بقیه به رنگ سیاه هستند. او راهی برای جدا کردن متن می خواهد به طوری که سلول های متن سیاه در ستون باقی بمانند و سلول های متن قرمز به ستون بعدی منتقل شوند.

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

به عنوان مثال، در اینجا نحوه انجام این کار به شرح زیر است:

1. سلول هایی که حاوی مقادیر متن شما هستند را انتخاب کنید.
2. تب Data روبان را نمایش دهید.
3. بر روی ابزار Sort در گروه Sort & Filter کلیک کنید. اکسل کادر محاوره ای مرتب سازی را نمایش می دهد.
4. با استفاده از فهرست کشویی Sort On، رنگ قلم را انتخاب کنید.
5. از لیست کشویی Order برای نشان دادن اینکه کدام رنگ می خواهید در لیست مرتب شده اول نشان داده شود استفاده کنید. (این جایی است که رنگ قرمز خود را انتخاب می کنید. لیست کشویی شامل هر رنگی است که در محدوده انتخاب شده در مرحله 1 شناسایی شده است.)
6. روی OK کلیک کنید.

اکنون سلول های شما بر اساس رنگ، با رنگ مشخص شده در مرحله 5 در ابتدای محدوده سلولی مرتب شده اند. می توانید به راحتی آن را کپی کنید یا به ستون دیگری منتقل کنید. اگر می خواهید مقادیر متن خود را بر اساس رنگ فونت فیلتر کنید، می توانید از همان مراحل کلی استفاده کنید.

اگر ترجیح می دهید، می توانید از یک ماکرو نیز برای جابجایی سلول های متن قرمز خود استفاده کنید. در اینجا یک مثال است که مقدار سلول و رنگ فونت را یک سلول به سمت راست کپی می کند.

Sub MoveRedText1()
    Dim c As Range

    If Selection.Columns.Count > 1 Then Exit Sub

    For Each c In Selection
        If c.Font.Color = vbRed Then
            c.Offset(0, 1) = cell.Value
            c.Offset(0, 1).Font.Color = vbRed
            c.ClearContents
            c.Font.Color = vbBlack
        End If
    Next c
End Sub

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

Sub MoveRedText2()
    Dim c As Range

    For Each c In Selection
        If c.Font.Color = vbRed Then _
          c.Cut Destination:=c.Offset(0, 1)
    Next c
End Sub

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