تحويل معادلة لكود

[فريدة العصر]

الأساتذة الأفاضل 

مرفق ملف به معادلة بخلية لكتابة اسم الفصل مثال 3/2  بمعلومية خلية الصف ورقم الفصل وتكرار المعادلة بالملف الاصلى الذى يضم الاف الصفوف يبطئ من سرعة الملف فهل يمكن تحويل المعادلة لكود مثل كود استخراج تاريخ الميلاد من الرقم القومى يتم تطبيقه تلقائيا 

وأكون شاكرا على المساعدة 

تحويل المعادلة لكود.xlsb

[ابراهيم الحداد]

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

استخدم هذا الكود بعد تحويل تنسيق العمود "E" الى "Text"

Sub ConcaText()
Dim LR As Long, i As Long
LR = Range("G" & Rows.Count).End(3).Row
i = 3
Do While i <= LR
Range("E" & i).Value = Range("H" & i).Value & " / " & Range("G" & i).Value
i = i + 1
Loop
End Sub

 

[سليم حاصبيا]

ممناز استاذ ابراهيم

لكن كي لا تكون النتيجة بشكل تاريخ بوجود علامة "/" مثلاً  jun 02

يجب ادراح السطر في المربع الأحمر من الصورة

[فريدة العصر]

أساتذة الأفاضل عندما وضعت الكود فى موديل ونفذته داخل الصفحة نفذ على الخلية بالضبط ولكن توقف الاكسيل عن العمل 

(Xlsp ( not responding. 

هل بسبب عدم تحديد نطاق معين لتطبيق الكود ام ما هو السبب 

اتمن أن ينفذ الكود على الخلايا G عند وجود بيانات فى الخلايا E وH فقط 

لان الكود يقوم بحساب جميع خلايا العمود G فيتوقف عن العمل كما أعتقد

 

 

 

 

 

[حسونة حسين]

بعد اذن الاساتذه

عدل هذا الجزء

LR = Range("G" & Rows.Count).End(3).Row

الي

LR = Range("E" & Rows.Count).End(3).Row