اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Abo Mazin,

الردود الموصى بها

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


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

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

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

FAISAL ALHARBI

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

FAISAL ALHARBI -A

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

شاكرا لكم جهودكم
رابط هذا التعليق
شارك

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

معذرة لتأخري

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

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

تحياتي

تم تعديل بواسطه فيصل الحربي
رابط هذا التعليق
شارك

  • أفضل إجابة

(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

تم تعديل بواسطه محمد طاهر
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information