اسلام سيد

استاذنا هذا هو الشيت ارجو من حضرتك التجربه عليه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-عمل زر للنطق بعد الكتابه كذالك ارجو شرح مبسط لذالك ومكان وضع الاكواد وكذالك عمل الزر جزاكم الله خيرا وبارك الله فيكم

بارك الله فيك استاذنا عبد الله باقشير

وعليكم السلام اخى واستاذى الكريم بن علية والله ماظننت بك إلا الخير مثلما ذكرت انك كنت مسرعا فى الصبح لقد حملت الملف وهو الان يعمل بكفاءة تسلم يداك وبارك الله فيك ونفعنا بعلمك