DIAA125

جزاك الله خير بإذن الله سأغيرة الى العربية

بالفعل 2007 و 2010 تقبل حتى 65 شرط اما الاصدارات السابقة 7 او 8 شروط

للرفع

جزاك الله خير ولكن ليس هذا ما اريد اريد كود vba لاظهار رسالة بالمطلوب

السلام عليكم 

ليا طلب كود لاظهار رسالة بالمبلغ المستحق على العميل واسم العميل بناء على فترة يتم تحديدها

ويوجد مطلوب اخر داخل الشيت 

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

accounts receivables aging.rar

شكرا جزيلا ابو تميم

انا استخدم هذه الدالة ولكنها تعمل في ملف ولم تعمل في الاخر ولا ادري حقيقة ما السبب لذلك فانا اريد كود ان امكن

IF(OR(B10="",C10=""),"",B10/C10)

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

السلام عليكم

محتاج ماكرو كود لازالة اخطاء القسمة من الخلايا #DIV0

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

عظيم يا ابو حنين شكرا جزيلا مش عارفين نوفيك حقك ازاي

ونتمنى ان تكون قد تعافيت - شفاك الله

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

111.rar

R 50

S 10

R 30

اريد بعد الضرب ان يجمع كل منهم على حدة

الله ينور يا ابو حنين ولكني اريد ان اجمع كل R

وكل S لوحدها بعد ضربها في قيم العمود الاخر

جزاك الله خير استاذ طارق ولكني لا اريد تغيير قيمهم اريدهم كما يلي مثلا 5R

10S

او ان اغير القيمة في المعادلة نفسها لتكون 1" لكل منهم حتي يمكن جمعهم لاني لا استطيع تغيير القيم في الاعمدة لانها متغيرة

حاولت التطبيق ولكن تعطيني خطأ

ان كان هناك دالة تحول كل R و S الى رقم 1 يمكن ان تفيد

جزاك الله خير لو سمحت اكتبلي الصيغة باعتبار

d10 = 50

e10 = R

D11 = 10

E11 = S

السلام عليكم

بافتراض ان

عمود به قيم R S

وعمود به قيم 10 50

اريد دالة لضربهم وجمع الناتج

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

جزاك الله خير يا ابو حنين ممكن لو سمحت شرح الكود

للرفع

الاخ ضياء المحترم

لا يوجد شيء في المرفق سوا خليتين برجاء ارفاق الملف حتي نتمكن او يتمكن احد الاساتذه الافاضل من افادتك .

وشكراً ،،،،

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

New project.rar

السلام عليكم

اريد كود اضافة سجل في الاكسل وكود بحث واغلاق

مرفق الملف

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

New project.rar

أخي الخالدي

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

أخي ضياء

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

الأخ ضياء

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

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

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

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

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

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

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

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

للرفع