נעזרתי ב gpt וזה עובד כולל החלפת גופן
Function FindAndHit(findWhat As Variant, text As Variant) As String If IsNull(findWhat) Or IsNull(text) Then FindAndHit = IIf(IsNull(text), "", text) Exit Function End If Dim openTag As String openTag = "<font face=FrankRuehl size=5>" Dim closeTag As String closeTag = "</font>" FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag) End Function-
אתר "מדריכים"
אתר מדריכי מחשבים, רשתות ומובייל, תוכנות שימושיות ועוד, בצורה מסודרת וברורה.
-
-
-
-
נושאים נוספים
-
-
חשבונאות ושכר
-
על הפורום
דיונים, הצעות שיפור ושאלות על הפורום
-