Abo Mazin
-
Posts
23 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
Abo Mazin's post in ماكرو لتنفيذ أمر معين was marked as the answer
(y)
جيد جدا ولكن هناك ملاحظة للأسماء القصيرة مثل (علي) (صفي) ...الخ يخفق الأمر في تلوين حرف (A)
فيحتاج الكود لهذا التعديل البسيط
Dim k, m As String
k = Selection.Text
ActiveCell.FormulaR1C1 = k & " - A"
m = Len(k)
With ActiveCell.Characters(Start:=m + 2, Length:=m).Font
.ColorIndex = 3
End With