אם הבנתי נכון את שאלתך
חיפוש באקסל המילה לא מסומנת כמו בוורד
לא מכיר דבר כזה.
ואז שוב הוא מדגיש/צובע משבצת שלמה, ולא מילה מסויימת...
צודק לגמרי.התבלבלתי לרגע.סורי
אפשר בקוד:
הנושאים החמים
'צביעת המופע הראשון של טקסט מסוים בתא הפעיל
Sub textColorFirst()
myText = InputBox("טקסט לצביעה בתא נוכחי")
On Error GoTo e
n = WorksheetFunction.Find(myText, ActiveCell.Value)
ActiveCell.Characters(Start:=n, Length:=Len(myText)).Font.Color = vbRed
e:
End Sub
'צביעת כל המופעים של טקסט מסוים בתא הפעיל
Sub textColorAll()
myText = InputBox("טקסט לצביעה בתא נוכחי")
i = Len(ActiveCell.Value)
n = 1
Do While n <= i
On Error GoTo e
n = WorksheetFunction.Find(myText, ActiveCell.Value, n)
ActiveCell.Characters(Start:=n, Length:=Len(myText)).Font.Color = vbRed
n = n + 1
Loop
e:
End Subוואאו.
ההסבר הוא להוספת הקוד לחוברת מאקרו אישית בכדי שיתאפשר להפעיל על כל קובץ אקסל.
תודה, אליפות!
אולי אסביר את עצמי
זה עובד מעולה,
בלינק כאן יש מאקרו למיון מותאם אישית
www.thesmallman.com
לקחתי את פקודת המאקרו שמופיעה פה ושמתי בקוד.
מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!
לוח לימודים
מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:
