DIAA125 قام بنشر أغسطس 10, 2010 قام بنشر أغسطس 10, 2010 السلام عليكم وكل عام وانت بخير كيف اجمع الارقام في الملف المرفق حيث اني قد استوردتها من كشف الحساب البنكي برجاء توضيح الشرح جزاكم الله خير statement.rar
ياسر خليل أبو البراء قام بنشر أغسطس 11, 2010 قام بنشر أغسطس 11, 2010 أخي الحبيب يبدو أن الأرقام عبارة عن نصوص لإنه تم نسخها من صفحة ويب أو خلافه إليك الملف التالي قمت بعمل كود لتحويل النصوص إلى أرقام جرب وقولي على النتيجة statement.rar
DIAA125 قام بنشر أغسطس 11, 2010 الكاتب قام بنشر أغسطس 11, 2010 أخي الحبيب يبدو أن الأرقام عبارة عن نصوص لإنه تم نسخها من صفحة ويب أو خلافه إليك الملف التالي قمت بعمل كود لتحويل النصوص إلى أرقام جرب وقولي على النتيجة جزاك الله خير برجاء الشرح
DIAA125 قام بنشر أغسطس 11, 2010 الكاتب قام بنشر أغسطس 11, 2010 برجاء الشرح حيث انه ضروري جدا وعاجل بالنسبة لي جزاكم الله الف خير
ياسر خليل أبو البراء قام بنشر أغسطس 11, 2010 قام بنشر أغسطس 11, 2010 الأخ ضياء أعتذر على التأخر في الرد عليك إليك شرح مبسط للكود الذي استخدمته 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 قام بنشر أغسطس 11, 2010 الكاتب قام بنشر أغسطس 11, 2010 الأخ ضياء أعتذر على التأخر في الرد عليك إليك شرح مبسط للكود الذي استخدمته 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 أخيرا تفعيل تحديث الشاشة مرة أخرى اخي العزيز معلش بتقل عليك بس رجاء توضيح كيفية وضع الكود كل عام وانت بخير
ياسر خليل أبو البراء قام بنشر أغسطس 11, 2010 قام بنشر أغسطس 11, 2010 كل عام وأنت بخير أخي الحبيب إليك ما طلبت وإن شاء الله يكون بفايدة ومتنساش لي عندك دعوة أخوك أبو البراء Final.rar
الخالدي قام بنشر أغسطس 11, 2010 قام بنشر أغسطس 11, 2010 السلام عليكم ورحمة الله وبركاته جزاك الله خير اخي ياسر وملف اخي DIAA125 يوجد به رمز يسبق الارقام , ويمكنك عمل بحث واستبدال لازالة هذا الرمز , ولا اعلم المفتاح الذي يمكن ان يكتب به هذا الرمز في حقل البحث , واذا كان لديك نسخة اكسل 2007 يمكنك نسخ هذا الرمز من الخلية الى حقل البحث. في الملف المرفق معادلة لجمع الارقام المحتوية على هذا الرمز. كل عام والجميع بخير statement3.rar
DIAA125 قام بنشر أغسطس 11, 2010 الكاتب قام بنشر أغسطس 11, 2010 كل عام وأنت بخير أخي الحبيب إليك ما طلبت وإن شاء الله يكون بفايدة ومتنساش لي عندك دعوة أخوك أبو البراء جزاك الله الف خير يا اخي اللهم افتح عليك وارزقك وسادعو لك بظهر الغيب وانت كذلك
DIAA125 قام بنشر أغسطس 11, 2010 الكاتب قام بنشر أغسطس 11, 2010 السلام عليكم ورحمة الله وبركاته جزاك الله خير اخي ياسر وملف اخي DIAA125 يوجد به رمز يسبق الارقام , ويمكنك عمل بحث واستبدال لازالة هذا الرمز , ولا اعلم المفتاح الذي يمكن ان يكتب به هذا الرمز في حقل البحث , واذا كان لديك نسخة اكسل 2007 يمكنك نسخ هذا الرمز من الخلية الى حقل البحث. في الملف المرفق معادلة لجمع الارقام المحتوية على هذا الرمز. كل عام والجميع بخير جزاك الله خير اخي العزيز كل عام وانت بخير
ياسر خليل أبو البراء قام بنشر أغسطس 12, 2010 قام بنشر أغسطس 12, 2010 أخي الخالدي معادلة في منتهى الروعة والجمال أخي ضياء جزيتخيرا على دعواتك ويارب تكون مشكلتك اتحلت
DIAA125 قام بنشر أغسطس 12, 2010 الكاتب قام بنشر أغسطس 12, 2010 أخي الخالدي معادلة في منتهى الروعة والجمال أخي ضياء جزيتخيرا على دعواتك ويارب تكون مشكلتك اتحلت الحمد لله اتحلت جزاك الله خير اخي ابو البراء
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.