عبد الرحمن الحمصي

السلام عليكم أخي في الله قم بتنصيب أوفيس 2010 و استخدم اكسل 2010 لفتح الملف ثم قم بحفظ الملف بصيغة xlsb وسوف تدعو لي ان شاء الله

شكرا أخي زمزم.

شكرا لك أخي هاني .

بارك الله بك أخي حمادة عمر , جهودك و ابداعاتك سابقة.

أخي أبو سارة شكرا لمرورك الطيب.

أخي وليد زقزق : انسخ المعادلة المحولة و ضعها داخل كود الأخ عبد الله باقشير قم بعمل زر وربطه بالموديول الموجود فيه الكود عند الضغط على الزر يقوم الكود بالقيام بالحسابات ( لا داعي لمسح المعادلات , الكود سوف يقوم بذلك تلقائيا ) .

أخي ابو حنين أخي احمد فؤاد أخي جلال محمد أخي عادل ابو زيد أشكركم على مروركم الكريم و الشكر لله أولا وللقائمين على هذا المنتدى المميز ثانيا أجمل مافي هذا المنتدى هو تبادل المنفعة و الخبرات و الحماس الجميل و المنافسة الشريفة في حل معظم الأسئلة و الاستفسارات المطروحة تقبلوا تحياتي

بسم الله الرحمن الرحيم Formula To VBA ضع الماوس على الخلية التي يوجد فيها معادلة معينة وإضغط على بسم الله ستظهر لديك المعادلة محولة و جاهزة للنسخ , قم بنسخها ثم قم بوضعها داخل كود أخونا الكريم عبد الله باقشير جزاه الله خيرا . الطريقة و الكود في المرفقات لكم مني أطيب التحيات محول المعادلات السريع.rar

up

up

سبحان الله وبحمده

أخوتي أريد مساعدتكم في تحويل المعادلات إلى كود لتسريع عمل المصنف و ايضا إذا لديكم اي اقتراحات اخرى لتسريع عمل المصنف في حال وجود بيانات كثيرة ولكم جزيل الشكر

أخوتي الأفاضل في منتدى أوفيسنا الرائع أقدم لكم هديتي المتواضعه ( وهي فكرة أو طريقة جميلة لمتابعة طلبات الشراء و الفواتير ( مع حساب قيمة المرتجعات ) مع متابعة حالة طلب الشراء أتمنى أن ينال إعجابكم و لدي بعض الاستفسارات عن إمكانية تعديل المعادلات بمعادلات أخف لتسريع عمل المصنف ( في حال وجود بيانات كثيرة ) و عن إمكانية تحويل المعادلات إلى أكواد ( vba ) وذلك لتسريع عمل المصنف أيضا أتمنى أن ينال اعجابكم و أنتظر دعمكم و اقتراحاتكم القيمة أخوكم عبد الرحمن منظم طلبات الشراء.rar

أخي رجب جاويش كل الشكر و التقدير و الإحترام لك أيها المبدع حماك الله و سدد خطاك ورفع قدرك في الدنيا و الآخرة

شكرا اخي سوف احاول بالخطوات التي شرحتها بارك الله بك

up

أخي رجب الغالي حماك الله من كل مكروه و بارك بجهدك الطيب هل يمكن اضافة جدول آخر بنفس الورقة وبنفس الطريقة ؟ بانتظار ردك وأعذرني على طمعي بكرمك شكرا جزيلا

سبحان الله وبحمده سبحان الله العظيم

أخي بن عليه ما شاء الله عليك يا مبدع

أخي أبو عيد شكرا على هذا التوضيح الجميل حاولت تشغيل ملف لم يعمل هل يوجد تحديث له او هناك طريقة معينة لفتحه شكرا جزيلا Convert _formulas2Code (1).rar

أخي جمال عبد السميع حماك الله و بارك بجهودك

تفضل أخي الكريم رجب الفرز التلقائي في ورقة محمية.rar

شكرا جزيلا على جهدك المشكلة أنني عندما أضيف اسم جديد بعد آخر صف من الجدول في الحالة العادية يقوم بإضافة الإسم الجديد إلى الجدول أما في حالة الورقة المحمية لا يقوم بإضافته مع أني جعلت العمود الذي به الجدول غير محمي ويمكن إضافة أسماء جديدة عليه لا أعلم إذا كان مر عليك شيء ممائل ولك جزيل الشكر أخي المحترم رجب

up

أخوتي الأفاضل لدي الكود التالي يقوم بعمل فرز لجدول موجود في ورقة عمل المشكلة أنه لا يعمل عندما يتم حماية الورقة بكلمة سر هل لديكم حل لهذه المشكلة الكود : Private Sub Worksheet_Change(ByVal Target As Range) ActiveWorkbook.Worksheets("Data Entry").ListObjects("Table1").Sort.SortFields _ .Clear ActiveWorkbook.Worksheets("Data Entry").ListObjects("Table1").Sort.SortFields _ .Add Key:=Range("Table1[Customer Name]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Data Entry").ListObjects("Table1").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With شكرا وبارك الله بكم