نجوم المشاركات

بارك الله فيك أستاذى الفاضل فى ميزان حسناتك باذن الله فمثل هذا الأعمال تعتبر صدقه جاريه باذن الله اذا مات ابن آدم انقطع عمله الا من ثلاث منها العلم النافع تقبل الله منا ومنكم صالح الأعمال

كود تحويل صفحة الإكسيل إلى Pdf مرفق تطبيق للكود Sub ExcelToPDF() Dim iPtr As Long Dim sFileName As String iPtr = InStrRev(ActiveWorkbook.FullName, ".") If iPtr = 0 Then sFileName = ActiveWorkbook.FullName & ".pdf" Else sFileName = Left(ActiveWorkbook.FullName, iPtr - 1) & ".pdf" End If sFileName = Application.GetSaveAsFilename(InitialFileName:=sFileName, FileFilter:="PDF Files (*.pdf), *.pdf") If sFileName = "False" Then Exit Sub ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, Quality:=xlQualityStandard, openAfterPublish:=True End Sub Excel To Pdf.rar

كود لفتح مجلد مثال: اذا افترضنا ان المدى من A1 الى A5 يحتوي على اسماء المجلدات في المسار في المسار C:\test فلفتح المجلد المعني بمجرد اختيار خلية من خلاياء المدى اعلاه .. نكتب الكود التالي في حدث الصفحة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' تأكد ان الخلية تقع على المدى المطلوب و ان الخلية لديها قيمة If Not Intersect(Target, Range("A1:A5")) Is Nothing And Target.Count() = 1 Then If Target.Value <> "" Then Shell "cmd /c start C:\Test\" & Target.Value, vbHide End If End Sub

زملائى بالمنتدى العزيز على قلبى مما لا شك فيه ان موضوع إيجاد الفرق بين تاريخين او طرح تاريخين يهم الكثير من مستخدمى الاكسيل لذالك اقدم لكم شرح مبسط لداله DateDif تستخدم هذه الدالة فى إيجاد الفرق بين تاريخين او طرح تاريخين شكل الدالة يكون كالتالى DATEDIF(Date1, Date2, Interval) شرح الداله الداله هى DateDif وتتكون من 3 أجزاء Date1 هو تاريخ الاقدم Date2 هو تاريخ الاحدث Interval وهو نوع النتيجة المطلوبه انواع Interval كما بالصورة واليكم تطبيقات عمليه بالصور للداله مثال 1 لدينا تاريخ بالخلية A1 وهو 2010/08/05 تاريخ الميلاد (مثلا) وتاريخ بالخلية B1 وهو 2014/12/08 تاريخ اليوم (مثلا) ونريد كم فرق السنوات بين تاريخين ( اى كم عمر الطفل بالسنوات عند هذا التاريخ) نكتب بالخلية C1 الداله التالية =DATEDIF(A1;B1;"y") نلاحظ هنا اننا استخدمنا حرف Y وهو اختصار لـ Year ونلاحظ ايضا انها مكتوبة بين علامتين تنصيص " " ويكون ناتج المعادله وهو 4 سنوات كما بالصورة مثال 2 اذا اردنا حساب الفرق بالشهور نغيير Y الى M وهو اختصار month وتكون المعادله كالتالى =DATEDIF(A2;B2;"m") ويكون النتيجة هى 52 شهر كما هو موضح بالصورة . مثال 3 اذا اردنا حساب الفرق بالشهور نغيير m الى D وهو اختصار Day وتكون المعادله كالتالى =DATEDIF(A2;B2;"d") ويكون النتيجة هى 1586 يوم كما هو موضح بالصورة مثال 4 اذا اردنا حساب الفرق بين التاريخين كم سنة وكم شهر وكم يوم بفرض ان التاريخين بالمثال الاول بالخلية A2 والخلية B2 وتكون المعادله كالتالى نضع بالخلية C2 المعادله التالية =DATEDIF(A2;B2;"y") ونضع بالخلية D2 المعادله التالية =DATEDIF(A2;B2;"ym") ونضع بالخلية E2 المعادله التالية =DATEDIF(A2;B2;"md") ونلاحظ النتيجة كما هو موضوح بالصورة اتمنى ان اكون وفقت بالشرح وان شاء الله سوف اجهز المزيد من الامثله العملية والمصحوبه بالصور تقبلوا منى وافر الاحترام والتقدير

السلام عليكم ورحمة الله اخي الاستاذ احمد ابن مصر يقول لك الاخ ياسر اول ماتفتح المنتدى احذفة بكود او كودين وخلية يعرف طريق روما ماسر اللغز بينكما اللي هو كل الطرق تودي الي روما ..... ههههههههاي

جزيت خيراً يا ابن مصر بينما كتبت مشاركتك بحثت ووجدت الحل يمكن أن يكون بهذا الشكل ليعمل على32 بت أو 64 بت #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long #End If

أعتذر عن عدم المتابعة منذ قليل بسبب انشغالي بعض الشيء عموما قدم ابن مصر الغالي المعلومة على طبق من صورة موضحاً لك ما تريد تقبل تحياتي يا ابن مصر (فين كود النهاردة)!!! لازم أسأل كل يوم ..حاول تتعود إنك أول ما تفتح المنتدى يكون أول شيء ببالك ترمينا بكود يكون مشرووووووووح وذو فائدة تطبيقية أكيد

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

جزاك الله خير أخي محمد الريفي

السلام عليكم لمحبي الرسائل التنبيهية في الأكواد هذه طريقة لجعل الرسالة تختفي بعد فترة محددة من الزمن وللأمانه هي من اعدادا الإستاذ محمد صالح (ماس) CreateObject("Wscript.shell").Popup "إنتظر قليلاً ستختفي هذه الرسالة خلال ثانية ", 1, "إنتظار !!!!", vbExclamation طبعاً الرقم 1 هو الزمن المختار لإختفاء الرسالة بعد عرضها

السلام عليكم أخي الفاضل استعمل الدالة TRIM فهي دالة لإزالة المسافات الزائدة وترك مسافة واحدة فقط بين الكلمات

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

استاذى الحبيب ابو محمد عباس والله انا فى اشد الحاجه لدعاؤكم لى . واسال الله تعالى ان يعيننى على اتمام هذا العمل . ربنا يجزيك عنى كل خير . ويبارك فيك تقبل منى خالص التحيه والاحترام

بالاذن من اخواني في المنتدى اليك هذا الحل /ربما ينال اعجابك كريم 1.rar

حول الملف على صيغة mdb

السلام عليكم ورحمة الله أخي الكريم، تعلم أن التصفية (الفلترة) لا يمكن أن تتحقق في جداول غير متصلة (حسب معرفتي)، لذا يجب التحايل معها مثلما فعل أخي الحبيب طارق جازاه الله خيرا، وحل آخر أقدمه لك في الملف المرفق (بالفكرة نفسها) أي بالاستعانة بعمود إضافي (وقد جعلته العمود A في المرفق -ويمكن أن يكون أي عمود آخر-) بمعادلة شرطية... ثم تتم التصفية وفق هذا العمود... أرجو أن يفي بالغرض المطلوب... أخوك بن علية الملف المرفق : New 3.rar

السلام عليكم أخي العزيز تفضل المرفق ابو سليمان اوفسينا2.rar

السلام عليكم و رحمة الله وبركاته استاذ ياسر موضوع رائع جزاك الله خيرا وانا خايف اجي ايد ورا وايد قدام وتقولي ليه ايدك فاضية منشان هيك ياحبيب البي ================================== كود كل الخيارات المطلوبة للطباعة طباعة ورقة اكسل With ActiveSheet.PageSetup ' الصفوف المكررة الى الأعلى .PrintTitleRows = "$3:$3" .PrintTitleColumns = "$A:$A" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "رأس يسار Up Lift" .CenterHeader = "UpMidel رأس وسط" .RightHeader = "رأس - يمين up Right" .LeftFooter = "DownLift اسفل يمين" .CenterFooter = "اسفل وسط DownMidel" .RightFooter = "DownRight اسفل يمين" 'حجم الهوامش .LeftMargin = Application.InchesToPoints(0.748031496062992) .RightMargin = Application.InchesToPoints(0.748031496062992) .TopMargin = Application.InchesToPoints(0.78740157480315) .BottomMargin = Application.InchesToPoints(0.984251968503937) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.511811023622047) ' طباعة رئوس الصفوف و الأعمدة .PrintHeadings = True .PrintGridlines = True .PrintComments = xlPrintNoComments ' توسيط الى عرض الصفحة .CenterHorizontally = False ' توسيط الى ارتفاع الصفحة .CenterVertically = False ' طباعة طولية .Orientation = xlPortrait ' طباعة عرضية .Orientation = xlLandscape ' حجم الورق .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver ' طباعة اسود و ابيض .BlackAndWhite = True .Zoom = 100 ' ملائمة الى عرض الصفحة .FitToPagesWide = 1 .FitToPagesTall = False End With آمل ان يكون به الفائدة للجميع

السلام عليكم أضفت عمود مساعد به الأسماء تفضل المرفق New 2.rar

السلام عليكم في هذه الحالة Vlookup المعكوسة يمكن الإستغناء عن الدالة بدالتين مثلا جرب المعادلة التالية =INDEX(E11:E15,MATCH(M8,G11:G15,0)) وهنا نقسم مجال البحث قسمين القسم الأول نستخدم الدالة MATCH لتأتينا بترتيب المبحوث عنه والقسم الثاني الدالة INDEX لتأتينا بالعنصر الذي له نفس الترتيب في المجال الآخر

السلام عليكم ورحمة الله كود ممتاز وخفيف علي القلب للاستاذ / احمد إبن مصر بارك الله فيك الاخ طارق زكريا التعديل واضح كود بحث وحذف. والبحث يتم فلترته تلقائي بدون زر امر ثم اضغط زر حذف بعد ماتتأكد من الاسم المراد بحثة

فتح حاسبة الكومبيوتر Sub فتح_الحاسبة() Shell ("calc") End Sub كود فتح Notepad Sub نوت_باد() Shell ("notepad") End Sub

ماشاء الله وجزاكم الله خيرا والله اللسان يعجز عن شكركم بما يفى حقكم

اخى الفاضل تفضل الملف المرفق .. لربما به طلبك .. لست في حاجة الى اى ازرار للبحث او الغاء البحث تحياتي كود البحث.rar

اخي عبدالرحمن الصق التعبير التالي كمصدر بيانات للعنصر rt3 ويمكن استخدامه كذلك في التقرير . =IIf([rt2]>=400;400;[rt2]) بالتوفيق

اولا تقبل شكري على الاهتمام بهذا الكود للتوضيح الغرض من الدالة ليس الدالة نفسها (فالدالة SUM تكفي و زيادة) و لكن الغرض الاساسي هواعطاء مثال على عمل اي دالة قادرة على قبول و سيط او اكثر دون تحديد عددها. على كلا اذا كان هناك ميزة للدالة فربما في ال VBA فالدالة WorksheetFunction.Sum تقبل الى حد 30 وسيط. من ناحيت الخطأ فسبب ان الدالة سترجع خطأ اذا وجدت اي وسيط ليس برقم حتى لوكان NULL. في رايي انه يمكن القياس على هذه الدالة لانشاء دوال اكثر ملائمة .. مثلا ;كتبت دالة مستفيدا من فكرة الكود بحيت تعمل على تعبئة الخلاياء باي نوع من البيانات الكود مع كود الاختبار Sub Fill(R As Range, ParamArray Values() As Variant) Dim i As Integer For i = LBound(Values) To UBound(Values) R.Offset(0, i).Value = Values(i) Next i End Sub Sub test() Fill [A1], 100, "This", True, -25.5 End Sub

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب محمد الريفي جهود كبيرة لنشر العلم وتوصيل المعلومة للجميع جزاكم الله خيرا وجعله الله في ميزان حسناتكم وفقكم الله وسدد خطاكم لما فيه خيرالاسلام والمسلمين والانسانية جمعاء دمتم في رعاية الله وحفظه

السلام عليكم شكرا الله للاستاذ ياسر و للاعضاء الكرام على جهودهم الرائعة لانجاح المشروع المميز فكرة الكود هو كيفية عمل دالة تقبل عدد لا محدود من الوسطاء. للتوضيح كتبت مثال لدالة جمع بأسم Sum . لتحقيق ذلك تم استخدام المعرف ParamArray لتعريف مصفوفة وسطاء الدالة من نوع Variant في الاسفل تجد كود الدالة و اجراء اختبار لها بالتوفيق ' دالة تقبل عدد غير محدود من الوسطاء ' المثال هنا هو دالة جمع 'تم تعريق مصفوفة خاصة من نو فيريانت Function Sum(ParamArray Numbers() As Variant) As Double Dim i As Integer Dim Result As Double Result = 0# ' هنا نتأكد انه يوجد على الاقل وسيط واحد قد تم تمريره للدالة If Not UBound(Numbers) - LBound(Numbers) > -1 Then ' في حالة لم يمرر ولا وسيط ارسل خطأ و اوقف تنفيد الدالة Sum = CVErr(xlErrNull) Exit Function Else ' هنا مر على جميع وسطاء الدالة For i = LBound(Numbers) To UBound(Numbers) ' اختبر اذا كان الوسيط يمثل رقما If IsNumeric(Numbers(i)) Then Result = Result + Numbers(i) Else ' في حالة اكتشاف وسيط ليس برقم ارسل خطأ تنفيد و اوقف تنفيد الدالة Sum = CVErr(xlErrNum) Exit Function End If Next i End If ' في حالة نجاح تنفيدها حدث الدالة بقيمة الجمع Sum = Result End Function Sub test() MsgBox Sum(5) MsgBox Sum(5, 10) MsgBox Sum(5, -10, -13.25) End Sub

اخى العزيز اذهب الى ملف ومنها الى اختيارات ومنها الى تدقيق ومنها الى تدقيق املائى اثناء الكتابة ازل العلامة وبعد ذلك موافق وانتهت المشكلة

شكرا اخي العزيز حسين واتمني ان لا تنساني ولكم جزيل الشكر والعرفان اخي الفاضل طالب علم 1 اول شي عمل جدول ونسميه اي اسم ولنفترض اسماء الحقول به ( num_Contract )اي رقم العقد (Nam_Contract) اي اسم المتعاقد (Date_start) اي تاريخ البداية (Date_End) اي تاريخ النهايه) ونضع مربع نص اخر ونسميه (check1) ونجعل قيمته (نعم) (لا) بعد ذالك عمل استعلا م مبني علي هذا الجدول وانفترض اسمه (Qry ) وفي عرض التصميم للاستعلام نضع تحت مربع النص في (Date_End) هذا الكود (<=Date()+3) معني الكود انه قبل ما ينتهي تاريخ التعاقد ب 3 ايام يظهر لي رسالة تنبه وممكن تغيير العدد الي اي رقم تريده _ ونضع تحت مربع النص (check1)في خانة المعيار(0 ) وبعد ذالك ننشأ نموذج مستمر ونسميه مثلا (FrmView) مبني علي استعلام (Qry) ونختارفي الحقول الموجود في الاستعلام بعد ذالك نضع هذا الكود في نموذج البدايه لديك اوفي اي نموذج تريده ( في حدث عند التحمل ) للنموذج Dim intStore As Integer intStore = DCount("[num_Contract]", "[Qry]", "[Date_End] <=Date()+3 AND [check1] =0 ") If intStore = 0 Then Exit Sub Else If MsgBox("يوجد شخص أو أكثر قاربت عقودهم على الانتهاء" & vbCrLf & _ "هل تريد رؤيتهم", _ vbExclamation + vbYesNo, _ "العقود المنتهية") = vbYes Then DoCmd.Close acForm, "Indx", acSaveYes DoCmd.OpenForm "FrmView", acNormal Else Exit Sub End If End If

الحل بالمعادلة without camma.rar

يمكنك ذلك من خلال: فتح مستند جديد فارغ ثم الوصول للصندوق الحواري خط font ثم اختيار نوع الخط وحجمه ولنه وأي اعدادات أخرى مطلوبة ثم الضغط على تعيين كافتراضي set as default ثم موافق ok

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

السلام عليكم تحية كبيرة لاخ ياسر بخصوص قبول TextBox لحروف فقط أو أرقام فقط افضل الاتي 1 لجعل التكست بوكس لاتقبل الا الارقام Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 End Sub 2 لجعل التكست بوكس لاتقبل الا الحرف الانجليزية الصغيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!a-z]" Then KeyAscii = 0 End Sub 3 لجعل التكست بوكس لاتقبل الا الحروف الانجليزية الكبيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-Z]" Then KeyAscii = 0 End Sub 4 لجعل التكست تقبل الا الحروف الانجليزية الصغيرة والكبيرة معا Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-z]" Then KeyAscii = 0 End Sub 5 لجعل التكست بوكس لا تقبل الا الحروف العربية Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!أ-ي]" And ChrW(KeyAscii) <> " " Then KeyAscii = 0 End Sub اما اذا كنت تريد تفعيل المسطرة فكل ماعليك هو تلرك فراغ قبل الحرف الأول مثال Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A-Z]" Then KeyAscii = 0 End Sub أما اذا اردت تضمين بعض الاشكل كل ما عليك هو ادراج الشكل أو العلامة التي ستسمح بها بين الحرف الاول والمطة هذا مثال لايقبل الا الحروف الانجليزة الكبيرة والمسافة وهته الاشارات =:;/. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A=:;/-Z]" Then KeyAscii = 0 End Sub تحياتي للجميع

لنبدأ على بركة الله مجموعة اكواد متنوعة تخص تغير عنوان التطبيق بطريقة مرنة 1- لإدراج إسم الفورم من بيانات المدرجة في العمود 1 , الصف 1 من الصفحة النشطة Private Sub UserForm_Initialize() UserForm1.Caption = ActiveSheet.Cells(1, 1) أو UserForm1.Caption = ActiveSheet.Range("A1") End Sub 2- لإدراج إدراج إسم افورم من إسم الورقة النشطة Private Sub UserForm_Initialize() UserForm1.Caption = ThisWorkbook.ActiveSheet.Name End Sub 3- إدراج إسم الفورم إختياري من أي ورقة تريدها مثلا الورقة 2 : الصف 1 ; العمود 2 Private Sub UserForm_Initialize() UserForm1.Caption = Sheets(2).Cells(1, 2) End Sub

السلام عليكم فورم بحث مرن وسريع بامكانك استخدامة بدلا من القائمة المنسدلة وخاصة مع البيانات الكثيرة ويقوم بوضع نتيجة البحث في الخلية النشطة امكانياته 1 - ممكن استخدامه للبحث في اكثر من نطاق في الورقة او في الملف ما عليك سوى تضيف كود لفتح الفورم وتغيير نطاق البحث فيه مثلا Sub KH_SHOW() With UserForm1 .kh_SetRng Sheets("t1").[B3:B200] .Show End With End Sub 2 - يقوم بوضع نتيجة البحث في الخلية النشطة في اي مكان في الملف 3 - يمكنك تحديد خلية وضع نتيجة البحث والفورم مفتوح 4 -بامكانك استخدامة للبحث في اكثر من عمود المرفق 2003 بحث.rar

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

أخى الكريم يمكن عمل ذلك عن طريق اما : 1 - عن طريق خدمه مايكروسوفت سكاى درايف للإشتراك فيها عن طريق ايميل علي الهوتميل 2 - عن طريق خدمة جوجل درايف للإشتراك فيها شاهد الفيديو التالى وتقبل منى وافر الاحترام والتقدير

السلام عليكم قوائم مخصصة على الفورم باستخدام CommandBars المرفق 2003-2007 قوائم مخصصة على الفورم باستخدام كومندبار.rar هذا الموضوع الاحدث http://www.officena.net/ib/index.php?showtopic=47195

أداة تحويل صيغ المعادلات الى اكواد بالمرفقات ملف أداة تحويل صيغ المعادلات الى اكواد Convert__formulas2Code.rar