رنگی کردن قسمتی از متن

[alikhassi]

باسلام
میخواستم متنی که قبل از دو نقطه ( : ) نوشته شده رنگی بشه چون تعدادش زیاده دستی سخت و زمانبر میشه . ممنون
مثلا تهران: منطقه 1 و 8 کرج: منطقه 3 و 2

[Amir Ghasemiyan]

سلام دوست عزیز
پیشنهاد میکنم متنتون رو ببرین داخل یک فایل ورد تغییرات رو اعمال کنید و برگردونید به اکسل

[alikhassi]

داخل ورد به چه روشی میشه این کار رو کرد؟

[karimi6155]

سلام
با VBA هم میتونید اینکار رو بکنید با این کد:

Sub Macro1()
    Dim x As String
    Dim c, s As Range
    Set s = Selection
    For Each c In s
    On Error GoTo A
    x = WorksheetFunction.Find(":", c) - 1
    c.Select
    ActiveCell.Characters(Start:=1, Length:=x).Font.Color = -16776961
A:
    On Error GoTo -1
    Next c
    s.Select
End Sub

ولی ناحیه انتخابتون بهتره محدود باشه یه سطر یا ستون کامل نباشه که یک میلیون سلول بشه