فيصل الحربي قام بنشر يناير 26, 2004 مشاركة قام بنشر يناير 26, 2004 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته واجهتني صعوبة في تعديل 7500 سجل في ورقة أكسل بعض السجلات ارغب في إضافة كلمة أو حرف ( -A ) باللغة الانجليزية إلى نهاية ما هو مكتوب يعني لو افترضنا ان النص الموجود في الخلية المراد التعديل فيها هي :FAISAL ALHARBI وبعد التعديل تكون FAISAL ALHARBI -Aطبعا عن طريق ماكرو لتسهيل عملية تعديل السجلات .شاكرا لكم جهودكم رابط هذا التعليق شارك More sharing options...
Abo Mazin قام بنشر يناير 27, 2004 مشاركة قام بنشر يناير 27, 2004 السلام عليكم ورحمة الله وبركاته جرب هذا الكود Dim k As String k = Selection.Text ActiveCell.FormulaR1C1 = k & "-A" رابط هذا التعليق شارك More sharing options...
فيصل الحربي قام بنشر يناير 27, 2004 الكاتب مشاركة قام بنشر يناير 27, 2004 بسم الله الرحمن الرحيم بارك الله فيك فلقد أصبت الهدف 10 / 10 لكن ما ذا لو أردت بأن يجعل حرف -A باللون الأحمر فما هي الطريقه ... ؟ رابط هذا التعليق شارك More sharing options...
Abo Mazin قام بنشر يناير 28, 2004 مشاركة قام بنشر يناير 28, 2004 السلام عليكم أخي فيصل معذرة لتأخري أنا حاولت ولكن لم أصل إلا لهذا الأمر ولكن يحتاج منك بعض التعديلات With ActiveCell.Characters(Start:=0, Length:=2).Font .ColorIndex = 3 End With يقوم بتلوين الحرف الأول والثاني ....والمطلوب تلوين الحرف الأخير والذي قبله :$ رابط هذا التعليق شارك More sharing options...
فيصل الحربي قام بنشر يناير 29, 2004 الكاتب مشاركة قام بنشر يناير 29, 2004 (معدل) بسم الله الرحمن الرحيم أشكر لك سعيك يا أبو مازن لقد وضعت رجلي على بداية الطريق و إليك الحل كاملا 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 بواسطه فيصل الحربي رابط هذا التعليق شارك More sharing options...
أفضل إجابة Abo Mazin قام بنشر يناير 29, 2004 أفضل إجابة مشاركة قام بنشر يناير 29, 2004 (معدل) (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 بواسطه محمد طاهر رابط هذا التعليق شارك More sharing options...
فيصل الحربي قام بنشر يناير 29, 2004 الكاتب مشاركة قام بنشر يناير 29, 2004 بارك الله فيك ابو مازن رابط هذا التعليق شارك More sharing options...
الردود الموصى بها