كيفية اضافة حروف فى بداية خلية الاكسل

[edkawy]

السلام عليكميا اخوانى

يا جماعة انا عندى الملف المرفق كمثال و يحتوى على اعداد كثيرة من الخلايا تحتوى على ارقام كثيرة

والمطلوب لو امكن معادلة او كود انى اضيف الحروف المطلوبة منى ( متغيرة ) فى بداية الخلية مع الاحتفاظ بقيمة الخلية زى ما هى

ويكون التعديل بردة فى نفس الخلية/ العمود مش فى عمود تانى زى ما انا عامل فى المثال

ارجو ان السؤال يكون واضح وبارك الله فيكم مقدما

محمد

New Microsoft Excel Worksheet.rar

[هشام شلبى]

السلام عليكم

=====

اخى هل هذا يناسبك

New Microsoft Excel Worksheet.rar

[edkawy]

الاخ الكريم هشام

بارك الله فيك

هو المطلوب

جزاك الله خير

[MAHMOUD ALI YOUSSEF]

اخي هشام

معادلة جميلة :fff: :clapping:

[معتصم محمد]

بعد إذن الأستاذ / هشام

يمكننا إستخدام الكود التالي

Sub AddText()


Dim rng As Range

Dim StartText As String, EndText As String


StartText = InputBox("أدخل النص الذي تريد إضافته في بداية الخلية")

EndText = InputBox("أدخل النص الذي تريد إضافته في نهاية الخلية")


For Each rng In Selection.Cells


	rng.Value = StartText & rng.Value & EndText


Next rng


End Sub

بحيث يتم تحديد الخلايا التي ترغب في إضافة نص إليها ومن ثم تنفيذ الكود من خلال الإختصار alt+f8 وإختيار الكود addtext

[MAHMOUD ALI YOUSSEF]

بعد إذن الأستاذ / هشام

يمكننا إستخدام الكود التالي

Sub AddText()


Dim rng As Range

Dim StartText As String, EndText As String


StartText = InputBox("أدخل النص الذي تريد إضافته في بداية الخلية")

EndText = InputBox("أدخل النص الذي تريد إضافته في نهاية الخلية")


For Each rng In Selection.Cells


	rng.Value = StartText & rng.Value & EndText


Next rng


End Sub

بحيث يتم تحديد الخلايا التي ترغب في إضافة نص إليها ومن ثم تنفيذ الكود من خلال الإختصار alt+f8 وإختيار الكود addtext

كود جميل اخي معتصم

جزاك الله كل خير :fff: :clapping:

[Hishamsco]

السلام عليكم

حركة رائعة

مية مية

جزاكم الله كل خير

[ياسر الحافظ]

كل الشكر لاستاذنا المشرف هشـــــــــــــام

والشكر الجزيل لاخي الاستاذ معتصم

الحمد لله على السلامة اخي محمود " ابو محمد " وحشتنا كثيرا اشتقنا لك

وفقكم الله

ابو الحارث