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

بسم الله الرحمان الرحيم السلام عليكم تكملة لموضوع النص التنبئي على الكمبوبوكس http://www.officena.net/ib/index.php?showtopic=59463 و لمعرفت احد فوائد ذلك الموضوع غالب مايعاني الاشخاص في ادخال اصناف فواتير البيع او الشراء رغم الطرق الكثيرة التي رئيتها لفعل ذلك الا انها تتسم ب: (الركاكة) ان صح التعبير او نقول غير مريحة في الادخالات احسن اقدم لكم اليوم هذته الطريقة التي وحسب رئي الشخصي افضل الطرق للوصول الى هدفنا المتمثلة في نموذج بسيط لفاتورة لكنه يشرح الفكرة بوضوح في الاخير ارجو من الاعضاء تقديم ارائهم و ملاحضاتهم لنطور الموضوع اكثر ونصل الى افضل النتائج معا لرفع المستوى ******************* ملاحظة يوجد ملفان في المرفق احدهما اوفيس 2003 لاكن الاخير يعطى خطاء في المعادلات المستعملة في الملف اضن بسبب دالة IFERROR و على ما اعتقد ان النسخة لا تدعمها اما الملف الثاني 2007 فما فوق شغال عادي تحياتي للجميع تم تغيير المرفق بعد 7 تحميلات Model Facteur.rar

بعد اذن اخويا ومعلمى الاستاذ عبدالرحمن هاشم انا مأخدتش بالى من موضوع التقارير وربطها بمربع التحرير والسرد من زر الامر نسيت كود الربط فقط وضعت كود للتأكد من انا كل خيار يعرض التقرير المنوط به من خلال زر الامر ونسيت ربطها كما اراد اخونا عبد الله فى طلبه وعلى كل حال انا مكنتش عارف هأعمل ايه لسه فى الموضوع ده وكنت لسه هأفكر ولان حضرتك كان ليك السبق الطيب فى تلك المسأله واعتقد مكنتش هاعملها بالطريقة الجميلة دى استسمح حضرتك انا دمجت الكود من الثلاث ازرار فى كود واحد لزر امر واحد وهو يعمل حسب الاختيار وكل الشكر والتقديرلحضرتك وجزاكم الله خيرا اخوكم محمد اسف نسيت ارفاق القاعده تم التعديل لرفع القاعدة بعد التعديل Cleaning contracts- باضافة التقارير لعرضها من زر امر واحد فقط.rar

وعليكم السلام ورحمة الله هذا مقترح آخر بعد أذن أخي العزيز أسير الشوق Cleaning contracts.rar

الملف جاهز على قدر فهمى الضئيل ارجوا ان تكون فيه الفائده المرجوه ان شاء الله Cleaning contracts-UP .rar

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

لم أدرك جيدا المطلوب لكن جرب التالي Private Sub Workbook_Open() If Date > DateValue("10/3/2015") Then If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then MsgBox "كلمة المرور خطائة " ThisWorkbook.Close If CloseMode = vbFormControlMenu Then Cancel = True MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً " Application.DisplayAlerts = False Application.Quit End If Else MsgBox "تفضل بالدخول كلمة المرور صحيحة " UserForm2.Show Sheet3.Select Range("B1").Select Exit Sub End If End If End Sub

ولماذا النسخ واللصق ؟ هذا يعني ان الدرجات يتم ادخالها اول مرة يدويا مثل برانمجنا هذا صمم ليتم الادخال يدويا تأتي كشوف الاختبارات فيقوم المسؤول بادخال الدرجات اولا باول في بعض الحالات ( مدارس وغيرها ) يكون هناك قواعد بيانات خارجية او مصنفات اكسل يتم ضمها الى البرنامج على فترات ، وهذه يجرى لها عمليات خاصة عند الاستيراد ، وتكون الجداول داخل البرنامج معدة مسبقا لاستقبال مثل هذه العمليات .

بعد التطبيق في المثال السابق .. هذا هو الكود هو المسؤول عن العملية Private Sub co2_AfterUpdate() If co2 = 1 Then 'ويمثل الاختبار الاول في مربع تحرير الفترة subs.Form!text1.ControlSource = "ekhtbar1" 'حقل الاختبار الاول في الجدول ElseIf co2 = 2 Then subs.Form!text1.ControlSource = "ekhtbar2" ElseIf co2 = 3 Then subs.Form!text1.ControlSource = "ekhtbar3" ElseIf co2 = 4 Then subs.Form!text1.ControlSource = "NISFALSANH" ElseIf co2 = 5 Then subs.Form!text1.ControlSource = "ekhtbar4" ElseIf co2 = 6 Then subs.Form!text1.ControlSource = "ekhtbar5" ElseIf co2 = 7 Then subs.Form!text1.ControlSource = "NHAIATALSANH" End If End Sub text1.ControlSource يعني مصدر عنصر التحكم لحقلنا الموجود في النموذج الفرعي كما تلاحظون في الكود يتغير المصدر بتغير قيمة مربع التحرير الفترة الموجود في النموذج الرئيسي

السلام عليكم ورحمة الله وبركاته أقدم لكم دالة معرفة UDF تقوم بدمج وجمع النصوص كما تفعل الدالة CONCATENATE ، ولكن مع اختلاف في النتائج ، حيث تتميز الدالة المعرفة بالحفاظ على تنسيق الخلايا التي يتم دمجها معاً. وقد وضحت بالأمثلة في الملف المرفق معظم الحالات للدالة المعرفة ، وكيف أن النتائج تكون مختلفة عن الدالة CONCATENATE ، وأترككم مع الملف المرفق ومع الأمثلة التي توضح الفرق بينهما. للمزيد حول الموضوع يرجى زيارة الرابط التالي رابط الموضوع من هنا

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

زادك الله من علمه وفضله ورفع درجاتك فى الجنة

جميل أوي أخي الكريم الكود الذي وضعته في زر استعراض اكثر من تقرير Select Case Reports Case 1 On Error Resume Next DoCmd.OpenReport "Report1", acViewReport Case 2 On Error Resume Next DoCmd.OpenReport "Report2", acViewReport Case 3 On Error Resume Next DoCmd.OpenReport "Report3", acViewReport End Select انا عملت 3 ازرار معلش بقى لسة مبتدئين

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

بارك الله فيك يا استاذ

ومنكم نتعلم استاذي الكريم والرأي رأيك >>> بس نسيت الختم ...

السلام عليكم أخي آخر الارض اود ان اعرض عليك كود واحد على زر واحد ، يخفي ويُظهر: Me.a.Visible = Not Me.a.Visible ايش رايك؟ جعفر

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

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

انا عدلت وتركت حقل التاريخ القديم كما هو امممممممممم مشكلتى انى مش عارف اظهر اسم الشهر بصراحه مكنتش عارف الاجابه وبحثت حتى هدانى الله لهذا الحل لازلت احاول اظهار اسم الشهر وان كان احد الاخوة او اساتذتنا الكرام يستطيع مد يد العون فى ذلك حتما لن يتخلفوا عن رد طلبكم ان شاء الله تنبيه بإنتهاء تفوي - up .rar

حياك الله اخي الكريم جرب هذا المرفق .. اخفاء اظهار .rar

جرب الملف التالي إذا كانت المشكلة في التسلسل .قمت بعمل معادلة بسيطة تسيتطيع بها أن تتغلب على التسلسل طباعة.rar

السلام عليكم أخي عبدالعزيز رجاء ، لا تستخدم الخط الضخم ، فانا أقرأ المنتدى على الجوال في الكثير من الاوقات ، والخط الكبير صعب القراءة عليه 1. تم التعديل ، 2 و 3. تم إرجاع البيانات السابقة (كنت اعتقد بان البيانات كانت للتجربة ، وعلى العموم انا غيرت في الكثير منها ، للتجربة) ، 4. فرق تصفية السجلات بين تصفيتها في الاستعلام وتصفيتها في النموذج/التقرير كالتالي: فلنعتبر الجدول عبارة عن مخزن لتخزين المواد ، الاستعلام هو قاعة مخصصة لتصفية وفرز المواد ، والنموذج/التقرير هو منزلك او متجرك ، السؤال: عندما تريد شراء المواد ، عمل الفلتر من الاستعلام: هل تختار وتصفي ما تشاء في المكان المخصص لذلك في المخزن ، وتأخذ الى متجرك البضاعة التي تريدها فقط ، عمل الفلتر من النموذج: او تأخذ جميع بضاعة المخزن الى متجرك ، ثم تختار البضاعة التي تريد ، 5. تم التعديل بإزالة ربط حقول السرد ، ولكن السنة لا تزال هي الاهم جعفر 14.3.البرنامج المميز.mdb.zip

أخي أيمن .. المدارس كما لاحظت في ملفك تظهر بمجرد التغيير في الخلية AA2 ...ما المطلوب إذاً إذا كانت كل مدرسة تظهر بمجرد أن تغير الرقم في الخلية المذكورة .؟؟ وضح بشكل أكثر لو سمحت

استاذ / ياسر خليل ما شاء الله و جزاك الله خيرا

عااااااااااااااااااااااااااااااااااااااااشت يداك اخي الكريم هذا هو المطلوب تحياتي لؤي الخزرجي

اذا تكرمت استاذنا وضح لي ذلك او دلني على الموضوع المناسب لذلك لاكمل برنامجي

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

شى جميل جداً ........ ان شاء الله يكون في ميزان حسناتك :fff:

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

تفضل استاذى الكريم هل هذا هو طلبك انظر المرفق اعمال السنة2+.zip

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

البيانات اعلاه تكون في جدول واحد لانها بيانات ثابتة لا تتغير ولا تزيد ولا تنقص متى نحتاج الى الجداول الاخرى ؟ نحتاجها عند وجود بيانات متغيرة مثلا : 1-المرتبات ...... تزيد وتنقص وتتجدد كل شهر 2- الاجازات .... تختلف وتمنح من حين الى آخر 3- الدرجات للطلاب ... وهكذا .....

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

أستاذى وأخى الفاضل ياسر بارك الله فيكم وفى أعمالك وجعلها فى ميزان حسناتكم

وعليكم السلام أخي حسسين في الواقع كنت ناوي اعمل برنامج فيه شوية اعمال اضافية ، بس عطني بعض الوقت ، وان شاء الله سيكون البرنامج مميز جعفر

كما تفضل الأخ عبد الفتاح .. ولكني استخدمت الكود في حدث عند التحميل للتقرير a = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 3"), 0) b = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 6"), 0) c = Nz(DCount("[typeofcalling]", "childdetails", "[typeofcalling]= 5"), 0) كذلك قمت بتعديل جدول typeofcalling وربطه بعلاقة مع الجدول الرئيسي كما تم تغيير مربعات النص الغير منظمة إلى a,b,c الق نظرة على المرفق وان شاء الله يفي بالغرض . Protection Concern.rar

بعد إذنكم انسخ هذه داخل مربع النص غير المنضم =DCount("*";"Childdetails";" TypeOfcalling = 'غير حقيقي'")

أخي الفاضل هناك العديد واالعديد من الموضوعات داخل المنتدى للتعليم ( منها دوروس ومنها شروحات ) ويمكن انت تطرح السؤال او الفكرة التي ترغب بها وهنا من يجيبك إن شاء الله ومنها تتعلم ما تريد

تفضل أخي الحبيب وإن كنت لا أدري شكل الأكواد لديك .. Codes To Run At Startup.rar

بسم الله الرحمن الرحيم إخوانى الأعزاء السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم الدرس الثانى من ( سلسلة الفارس فى شرح دوال الإكسل عن طريق الفيديو ) شرح دالتى AND و OR وان شاء الله الدرس القادم سيكون عن استخدام دالة IF مع دالة AND أو دالة OR http://youtu.be/Y2FwfUAZIuY OR ودالة AND دالة.rar

السلام عليكم هذا مثال لما اوردته باستخدام في مشاركتي السابقة عن استخدام سلكت كوس غير معطياتك كعميل او مورد Sub kh_AddItem(nSh As String) Dim MyRng As Range Dim R As Integer Dim ContRow As Long, i As Long Dim tFindNum As String Dim dt1 As Date, dt2 As Date '------------------------- On Error GoTo 1 '------------------------- Set MyRng = Sheets(nSh).Range(MyTopColmnRng) '------------------------- With MyRng ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row End With If ContRow = 0 Then Exit Sub '------------------------- ' اسم الحساب المطلوب tFindNum = LCase(saad1.ComboBox1.Value) '------------------------- ' التواريخ dt1 = CDbl(CDate(saad1.ComboBox2)) dt2 = CDbl(CDate(saad1.ComboBox3)) '------------------------- With MyRng.Offset(1, 0) For R = 1 To ContRow Select Case .Cells(R, dColmn).Value2: Case dt1 To dt2 If LCase(.Cells(R, MyColmnFind)) Like tFindNum Then '''''''''''''''''''''''''''''''' 'مثلا هذه الاعمدة مطلوبة في كل الحسابات Cells(ii, "B").Resize(1, 6).Value = .Cells(R, 1).Resize(1, 6).Value ' المعيار اسم الورقة Select Case .Worksheet.Name 'باقي الاعمدة وهي اربعة نختار فيها مانريده Case "مشتريات", "م.مبيعات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, "", .Cells(R, 9).Value) Case "مبيعات", "م.مشتريات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, .Cells(R, 9).Value, "") Case "خزينة" Cells(ii, "H").Resize(1, 4).Value = Array("", "", .Cells(R, 7).Value, .Cells(R, 8).Value) End Select '''''''''''''''''''''''''''''''''''' ii = ii + 1 End If End Select Next End With '------------------------- 1: Set MyRng = Nothing End Sub المرفق 2003 تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar

الاخ / أبو حنين شكرا لك الان نتعلم كيفية جمع المواد المختلفة مثل العربى الدراسات العلوم ....... التى رسب فيهم الطالب بطريقة سهلة وبدون كتابة معادلات انظر الفيديو الفيديو جمع المواد المختلفة.rar

والان كيفية عمل بيانات الطالب اليكم الامر باستعمال دالة LOOKUP من ادراج دالة =LOOKUP(B12;الشيت!A9:A108;الشيت!B9:B108) واليكم الشرح بالفيديو اسم الطالب ودرجاته.rar

نتعرف الان على كيفية عمل خلفية للورقة وازالتها واخفاء خطوط الشبكة وكيفية رسم مستطيل وكتابة بيانات او عنوان اليكم الفيديو خلفية وعنوان.rar

الاخوة الزملاء كنت امل التفاعل مع شرح خطوات عمل شيت كنترول للوصول الى شكل يستفاد منه الجميع وعموما اليوم نتعرف على بداية عمل شهادة للطالب أو ممكن استعمالها فى الكشف على درجات طالب بداية سننفذ مربع تحرير وسرد اى بالضغط على الزر تظهر قائمة بارقام الجلوس نختار الرقم تظهر بيانات الطالب واليكم الشرح بالفيديو http://magdiyonis.forumegypt.net/ مربع تحرير وسرد.rar

اخي لاحظ المرفق color select.rar

الاستاذ يحياوي : تحية طيبة مرفق اكواد رياضية رائعة - 2 ملف - مع شرح بسيط لتطبيقات vba مع الاكسل لاستاذنا الكبير محمد طاهر وفقك الله ياسر الحافظ شرح برنامج اكسل و تطبيقات الفيجوال مع اكواد رياضية رائعة.rar

السلام عليكم بارك الله فيك اخي yahiaoui و لكل المشاركين جميعا و هذا كود يمنع كتابة الارقام في تكست بوكس و اخر يمنع كتابة الحروف في تكست بوكس اخر تحياتي قبول التكست بوكس لارقام فقط او لحروف فقط.rar

السلام عليكم الأخ الكريم نفرض أن مدى البيانات الذي تعمل عليه هو A1:A1000 حدد مدى البيانات و تأكد أن الخلية النشطة هي A1 من قائمة تنسيق....اختر تنسيق شرطي....ثم اختر الدالة هي... format>>>conditional formating>>>formula is اكتب المعادلة التالية =COUNTIF($A$1:$A$1000;A1)>1 =COUNTIF($A$1:$A$1000;A1)>1 ثم اضغط زر تنسيق format واختر الألوان والتنسيقات التي تحلو لك اضغط موافق ثم موافق مرة أخرى دمت بخير أيسم إبراهيم

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