ماكرو لتنفيذ أمر معين

[فيصل الحربي]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

واجهتني صعوبة في تعديل 7500 سجل في ورقة أكسل

بعض السجلات ارغب في إضافة كلمة أو حرف ( -A ) باللغة الانجليزية إلى نهاية ما هو مكتوب
يعني لو افترضنا ان النص الموجود في الخلية المراد التعديل فيها هي :

FAISAL ALHARBI

وبعد التعديل تكون

FAISAL ALHARBI -A

طبعا عن طريق ماكرو لتسهيل عملية تعديل السجلات .

شاكرا لكم جهودكم

[Abo Mazin]

السلام عليكم ورحمة الله وبركاته

جرب هذا الكود

Dim k As String

k = Selection.Text

ActiveCell.FormulaR1C1 = k & "-A"

[فيصل الحربي]

بسم الله الرحمن الرحيم

بارك الله فيك فلقد أصبت الهدف 10 / 10

لكن ما ذا لو أردت بأن يجعل حرف -A باللون الأحمر فما هي الطريقه ... ؟

[Abo Mazin]

السلام عليكم أخي فيصل

معذرة لتأخري

أنا حاولت ولكن لم أصل إلا لهذا الأمر ولكن يحتاج منك بعض التعديلات

With ActiveCell.Characters(Start:=0, Length:=2).Font

.ColorIndex = 3

End With

يقوم بتلوين الحرف الأول والثاني ....والمطلوب تلوين الحرف الأخير والذي قبله :$

[فيصل الحربي]

بسم الله الرحمن الرحيم

أشكر لك سعيك يا أبو مازن

لقد وضعت رجلي على بداية الطريق و إليك الحل كاملا

Dim k, m  As String
k = Selection.Text
ActiveCell.FormulaR1C1 = k & " - A"
m = Len(k)
With ActiveCell.Characters(Start:=m + 1, Length:=m).Font
.ColorIndex = 3
End With

تحياتي

تم تعديل يناير 29, 2004 بواسطه فيصل الحربي

[Abo Mazin]

(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

تم تعديل فبراير 15, 2004 بواسطه محمد طاهر

[فيصل الحربي]

بارك الله فيك ابو مازن