ارقام لا استطيع جمعها في ورقة العمل فما الحل؟

[DIAA125]

السلام عليكم وكل عام وانت بخير

كيف اجمع الارقام في الملف المرفق حيث اني قد استوردتها من كشف الحساب البنكي

برجاء توضيح الشرح

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

statement.rar

[DIAA125]

للرفع

[DIAA125]

للرفع

للرفع

[ياسر خليل أبو البراء]

أخي الحبيب يبدو أن الأرقام عبارة عن نصوص لإنه تم نسخها من صفحة ويب أو خلافه

إليك الملف التالي قمت بعمل كود لتحويل النصوص إلى أرقام

جرب وقولي على النتيجة

statement.rar

[DIAA125]

أخي الحبيب يبدو أن الأرقام عبارة عن نصوص لإنه تم نسخها من صفحة ويب أو خلافه

إليك الملف التالي قمت بعمل كود لتحويل النصوص إلى أرقام

جرب وقولي على النتيجة

جزاك الله خير

برجاء الشرح

[DIAA125]

للرفع

[DIAA125]

برجاء الشرح حيث انه ضروري جدا وعاجل بالنسبة لي

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

[ياسر خليل أبو البراء]

الأخ ضياء

أعتذر على التأخر في الرد عليك

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

Application.ScreenUpdating = False

For Each cell In Range("RNG")

If cell.Value = "" Then

cell.Value = ""

Else

cell.Value = cell.Value * 1

End If

Next cell

Application.ScreenUpdating =True

السطر الأول لإيقاف عملية تحديث الشاشة أثناء تنفيذ الكود (هذا يضمن سرعة تنفيذ الكود إلى حدٍ ما)

قمت بتحديد نطاق الأرقام (التي يتم التعامل معها على أنها نصوص وليس أرقام ) وذلك لتحويلها إلى أرقام

السطر الثاني من خلاله يتم الإشارة إلى كل خلية في هذا النطاق

السطر الثالث جملة If الشرطية :إذا كانت الخلية فارغة أي ليس بها بيانات نتركها كما هي

أما إذا لم تكن الخلية فارغة فإن قيمة الخلية يتم ضربها * 1 وهذا هو لب الكود (الهدف من هذا السطر تحويل النصوص إلى أرقام)

ثم إنهاء جملة If وإنهاء جملة For Each

أخيرا تفعيل تحديث الشاشة مرة أخرى

[DIAA125]

الأخ ضياء

أعتذر على التأخر في الرد عليك

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

Application.ScreenUpdating = False

For Each cell In Range("RNG")

If cell.Value = "" Then

cell.Value = ""

Else

cell.Value = cell.Value * 1

End If

Next cell

Application.ScreenUpdating =True

السطر الأول لإيقاف عملية تحديث الشاشة أثناء تنفيذ الكود (هذا يضمن سرعة تنفيذ الكود إلى حدٍ ما)

قمت بتحديد نطاق الأرقام (التي يتم التعامل معها على أنها نصوص وليس أرقام ) وذلك لتحويلها إلى أرقام

السطر الثاني من خلاله يتم الإشارة إلى كل خلية في هذا النطاق

السطر الثالث جملة If الشرطية :إذا كانت الخلية فارغة أي ليس بها بيانات نتركها كما هي

أما إذا لم تكن الخلية فارغة فإن قيمة الخلية يتم ضربها * 1 وهذا هو لب الكود (الهدف من هذا السطر تحويل النصوص إلى أرقام)

ثم إنهاء جملة If وإنهاء جملة For Each

أخيرا تفعيل تحديث الشاشة مرة أخرى

اخي العزيز معلش بتقل عليك بس رجاء توضيح كيفية وضع الكود

كل عام وانت بخير

[ياسر خليل أبو البراء]

كل عام وأنت بخير أخي الحبيب

إليك ما طلبت وإن شاء الله يكون بفايدة ومتنساش لي عندك دعوة

أخوك أبو البراء

Final.rar

[الخالدي]

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

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

وملف اخي DIAA125 يوجد به رمز يسبق الارقام , ويمكنك عمل بحث واستبدال لازالة هذا الرمز , ولا اعلم المفتاح الذي يمكن ان يكتب به هذا الرمز في حقل البحث , واذا كان لديك نسخة اكسل 2007 يمكنك نسخ هذا الرمز من الخلية الى حقل البحث.

في الملف المرفق معادلة لجمع الارقام المحتوية على هذا الرمز.

كل عام والجميع بخير

statement3.rar

[DIAA125]

كل عام وأنت بخير أخي الحبيب

إليك ما طلبت وإن شاء الله يكون بفايدة ومتنساش لي عندك دعوة

أخوك أبو البراء

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

اللهم افتح عليك وارزقك وسادعو لك بظهر الغيب وانت كذلك

[DIAA125]

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

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

وملف اخي DIAA125 يوجد به رمز يسبق الارقام , ويمكنك عمل بحث واستبدال لازالة هذا الرمز , ولا اعلم المفتاح الذي يمكن ان يكتب به هذا الرمز في حقل البحث , واذا كان لديك نسخة اكسل 2007 يمكنك نسخ هذا الرمز من الخلية الى حقل البحث.

في الملف المرفق معادلة لجمع الارقام المحتوية على هذا الرمز.

كل عام والجميع بخير

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

كل عام وانت بخير

[ياسر خليل أبو البراء]

أخي الخالدي

معادلة في منتهى الروعة والجمال

أخي ضياء

جزيتخيرا على دعواتك

ويارب تكون مشكلتك اتحلت

[DIAA125]

أخي الخالدي

معادلة في منتهى الروعة والجمال

أخي ضياء

جزيتخيرا على دعواتك

ويارب تكون مشكلتك اتحلت

الحمد لله اتحلت جزاك الله خير اخي ابو البراء