اسلام سيد

فعلا عند اختيارى الماكرو المسمى " Ali_Formola " تظهر لى رساله بان الملف كبير 1-لكن رامات الجهاز عندى 2 G ,البروسيسور عندى حديث 2-اكتشفت من ملف حضرتك الذى به معادلة الجمع والضرب عند استخدام الاختيار " Ali_Formola " المعادلات تختفى وتكون غير مفعله وإذا قمت بكتابة ارقاب جديد مثلا2*2 لايظهر لى ناتج جديد وهو4 بل يظل الناتج القديم كما هو هنتظر ردك

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

استاذنا هذا هو الشيت ارجو من حضرتك التجربه عليه0 البرنامج-------الموسم2000-------البرنامج.rar

لاتنسى استبدال الجزء الاخير الذى ذكرة الاستاذ عباد

استاذ عباد جربت الكود على شيت معى واظن انه يعمل لكن المعادلات موجوده كما هى وإذا قمت بمسحها لا يعمل اظن انه يعمل لانه لم يصدر لى رساله خطأ

استاذ عباد بارك الله فيك جارى الاطلع

وانا ايضا اريد شرح هذة الخطوه بارك الله فيك

السلام عليكم استاذ عباد لقد تابعت الاكواد ونفس المشكله حدثت معى وقمت باستبدال الكود كما نصحت الاخ حمادة عمر إلا وانه حدث نفس الخطأ واعطانى خطأ فى الكود التالى Set V_A = ActiveWorkbook.VBProject

الكود رائع استاذ / عباد سواء المشاركه الاولى او الثانيه بارك الله فيك

بارك الله فيك استاذنا القدير لقد جربت وحققت الهدف بنجاح

وعليكم السلام هل من الممكن اجعل Public Const C_Con = 60 Public Const C_Con = 1 وبذالك يصبح التخزين كل ا ثانيه ام لا

السلام عليكم ورحمة الله وبركاته اريد كود لحفظ البيانات يعمل تلقائيا إذا انقطع التيار الكهربائى فجأه مع العلم انى معى كود يعمل على حفظ الملف تلقائيا قبل غلق الملف وهو كالاتى Sub workbook_beforeclose(cancel As Boolean) If Me.Saved = False Then Me.Save End Sub

هذا عمل رائع اخى الكريم بارك الله فيك 1- لكن عندما ادخل فاتورة جديده واريد الترحيل لا يتم الترحيل وتظهر رساله لاتستطيع الترحيل لوجود اخطاء بالفاتورة 2- هل ممكن استخدم هذه الاكواد فى شيت اخر عندى لترحيل بياناته ( فما هى البنود التى اغيرها ) بارك الله فيك ، وزادنا واياكم من واسع علمه .

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

الف مليون مبارك الترقيه استاذى واخى / حمادة لقد تأخرت عليك كثيراً فى التهنئه إلا انه لامبرر لى بعدم تهنئتك وقتها إلا السهو فعذرنى وتقبل تهنئتى المتواضعه اخوك اسلام

للرفع اريد خطوات تفصيليه لتحويل المعادلات الى اكواد

اخى الكريم راجع هذا الرابط ربما يساعدك http://www.officena.net/ib/index.php?showtopic=41982&hl=%2B%D8%AA%D8%B1%D8%AD%D9%8A%D9%84+%2B%D8%A7%D9%84%D9%81%D8%A7%D8%AA%D9%88%D8%B1%D8%A9

الف مليون مبارك عليكم الترقيه استاذنا القدير رجب ولقد سبقنى من هم افضل مني بتهنيئتكم فلم يتروكوا لى شئ اقوله اسأل الله أن يعلمنا واياكم مالم نكن نعلم.

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

السلام عليكم ورحمه الله وبركاته هذا ملخص لسؤال كنت قد طرحته من قبل عن عمل زر لفتح شيت اكسيل وبعد أن قام الاخوه الكرم بالرد على، مثل الاستاذ الفاضل عباد (ابو نصار) وجدت أن من الافضل أن اقوم بتلخيص النتائج بالتفصيل خطوة بخطوة كى يستفيد منه الجميع ، والله اسأل أن يجعله فى ميزان حسناتى وحسنات كل من يحدث به من هو مهتم بهذا العلم وإليكم العرض اولا: لابد من تفعيل الماكرو افتح الشيت الذى تريد عمل له زر ثم اختر من file الاختيار options ثم اختار trust center ثم اختار trust center settings ثم اختار Macro settings ثم اختار Enable all Macro ثم اختار من اسفلها trust access to the VBA project ثم اضغط على ok ثم ok ثانيا : قم بإنشاء شيت جديد فى الملف المراد عمل زر له ثالثا: اضغط Alt +F11 ثم اختار من insert الاختيارModule رابعا: قم بلصق هذا الكود فى موديول Public Sub Ali_AddB() Dim S$, C, T, i, ii T = 1 On Error Resume Next For ii = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes(ii).Delete End If Next For i = 1 To Sheets.Count If Sheets(i).Name = ActiveSheet.Name Then GoTo 1 With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule C = .CountOfLines + 1 .InsertLines C, _ "Sub my_" & i & "()" & Chr(13) & _ " Sheets(" & i & ")" & ".Select" & Chr(13) & _ "End Sub" End With ActiveSheet.Buttons.Add(Cells(1, 1).Left, T, 89.25, 23.25).Select S = Selection.Name Selection.Caption = Sheets(i).Name Selection.OnAction = "my_" & i T = T + 24 1 Next End Sub خامسا: ارجع الى الشيت الجديد الذى قمت بإنشائه واضغط على Alt+F8 ستظهر لك نافذة الماكرو اختار Ali- Add B ثم اختار تشغيل (Run) الان سوف يظهر لك زراير، لكل شيت زر على حدى ويمكنك نقله الى اى مكان ،عن طريق اضغط عليه كليك يمين واسحبه الى اى مكان واختار ماتريد اما تحريكه او نسخه سادسا: وهى اهم خطوة وهى حفظ الملف حيث لا يقوم بالعمل لوحفظته على نفس work Book اضغط حفظ save ثم اضغط لا No ثم اختار من save as type الاختيار الثانى وهو excel Macro-Enabled workbook ثم اضغط حفظ ثم موافقه ok وبهذا يكون قد انتهينا من عمل زر لفتح شيت اكسيل أسأل الله أن يبارك فى الاخوه الأفاضل والأساتذه الكرام وختاما تقبلو تحياتى اخوكم إسلام الشيمي

للرفع شرح معادلة large if من خلال المثال السابق خاصة لماذا تم اضافه -6 فى المعادله ثم 1 وما معنى (" ")و ما معنى (<>) بارك الله فيكم

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

السلام عليكم استاذنا ابو نصار فعلا لقد قمت بالبحث عن الاسباب المانعه لتشغيل الماكرو وقال لى اخ فاضل ان افعل الاتى اختار من file الاختيار options ثم trustcenter ثم trust center setting ثم Enabe all macros ثم trust access to the VBA ولقد فعلت وتم تشغيل الملف اللى حضرتك ارسلته لى وبه زر تشغيل

استاذ / يوسف عطا لقد وصلت الى المراد ولكن السؤال كيف اجعله ينطق باللغه العربيه بدل اللغه الانجليزيه وهل لو ارد ان اطبق المثال على شيت عندى تكون الخطوه الاولى هى اخذ الكود cope past وانقر بيمين الماوس على الشيت واختارview code واضع الكود فيها وكيف اصنع الماكرو بعد ذالك ولك منى كامل التحيه والتقدير 2-سؤال اخر عند شيت اكسيل عملت له زراير من خلال اكود من المنتدى وتمت العمليه بنجاح حيث صرت افتح وانتقل فى الشيت من خلال الزراير لكن اذا اغلقت الشيت وفتحته مره اخرى لم تعمل الزراير ويعطى رساله بان الماكرو غير شغال.

اريد كود يجعل الاكسيل ينطق الارقام وكذالك الكلمات باللغه العربيه 1-النطق عند الكتابه 2-عمل زر للنطق بعد الكتابه كذالك ارجو شرح مبسط لذالك ومكان وضع الاكواد وكذالك عمل الزر جزاكم الله خيرا وبارك الله فيكم