אקסל החלפת צבעי סימני סוגריים בתאים

[בן497]

אקסל החלפת צבעי סימני סוגריים בתאים

שלום
יש מס תאים עם סוגריים בצבע שחור
האם ניתן להחליף בפקודה של החלפה את צבע הסוגריים לצבע אחר בולט.נניח אדום
תודה

 

[iyyi]

אפשר רק בעזרת מקרו

בקובץ המצורף יש מקרו שמבצע את הפעולה. עבוד לפי השלבים הבאים:

1. סמן את תחום התאים בו אתה רוצה להחליף את הצבע.
2. הקלק על כפתור הפעלת המקרו
3. בתיבה שתיפתח הכנס את התו שאת הצבע שלו אתה רוצה להחליף (למשל סוגריים ימניים)
4. בתיבה השניה שתיפתח בחר את התא בו נמצא טקסט הצבוע בצבע שאתה רוצה לשתול בקובץ הדוגמה זה D1.
5. בכל התאים בתחום המסומן תבוצע ההחלפה.

אתה יכול לחזור על הפעולה פעם נוספת עבור תווים אחרים (למשל סוגריים שמאליים).
להלן קוד המקרו:

Sub ChangeChareacterColor()
Application.ScreenUpdating = False
On Error Resume Next
c = InputBox("Enter Character to color")
If c = "" Then Exit Sub
Set adr = Application.InputBox(Prompt:="Choose Cell to copy the color from", Type:=8)
If adr Is Nothing Then Exit Sub
For Each cell In Selection
    For i = 1 To Len(cell.Text)
        If cell.Characters(i, 1).Text = c Then
            cell.Characters(i, 1).Font.ColorIndex = adr.Font.ColorIndex
        End If
    Next i
Next
Application.ScreenUpdating = True
End Sub

מצורף קובץ דוגמה. אתה יכול להוסיף שם תאים עם טקסט כאוות רצונך וכן לשנות את מיקום וצבע התא המשמש כדוגמה.