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

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

برنامح لتسجيل كشوف 12 د إلكترونيا ... كل عام وانم بخير كشوف 12 د.rar

أخى ياسر بنهرج معاك لا يضيق صدرك بما قلت . أنا - وأخوك زيزو أكيد - بنحبك فى الله

اهداء للمنتدى الغالى برنامج المصروفات برنامج المصروفات.rar

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

يا أبو العربى يبقى ايه ؟؟؟؟ ان شاء الله صدقة مش كمان ننا استفسار : هو الملف التنفيذى قابل للكسر ؟ ما جربتش قبل كده !

أخى عبدالعزيز اجابة على سؤالك : نعم يمكن ازالة كلمة المرور بمحرر الأكواد فقط ارفع الملف للعمل عليه

ملاحظ عدد المواد تختلف للصف الرابع والصف الثالث ؟ هل ممكن تحط امثله للصفوف التي تتعامل معها مثال : ورقة للصف الاول والثاني والثالث الخ ... حتى اعرف فروقات اعمدة المواد واحط شروط ع الكود

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

استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله

معلش عشان أقول كل شىء صعب لكن أقدر أقولك باختصار الفكرة أى تغير فى التكست بوكس firstname يجعل التكست بوكس autoNumber يزيد 1 على آخر مسلسل فى الشيت الخلية AA2 فى الشيت بتاخد قيمتها من التكست بوكس Qawmi فى الفورم الذى تضع به الرقم القومى الخلية AB2 فيها معادلة نستدعى فيها الدالة Function A_ID وتطلع تاريخ الميلاد من الخلية AA2 التى بها الرقم القومى ( المتغير T تكون قيمته 2 فى المعادلة) التاريخ الذى يظهر فى هذه الخلية بياخده التكست بوكس BrirthDate فى الفورم الخلية AF2 فيها معادلة نستدعى فيها الدالة Function A_ID وتطلع النوع من الخلية AA2 التى بها الرقم القومى ( المتغير T تكون قيمته 3 فى المعادلة) النوع الذى يظهر فى هذه الخلية بياخده التكست بوكس Gender فى الفورم الخلية AC2 و AD2 و AE2 نستخدم فيها معادلة DATEDIF لحساب السن ( أيام - شهور - سنوات ) من الخلية AB2 التى بها تاريخ الميلاد والقيم الناتجة فى هذه الخلايا تظهر فى الفورم وبكده يكون الفورم به كل البيانات التى تصدر الى الشيت مرة أخرى بالنسبة للصور كما وضحت فى المشاركات السابقة أرجو أن يكون الشرح وافى

أشكرك أخى الكريم على كلماتك . سبحان الله جائتنى فكرة اليوم نفذت بها طلبك الأول قم بانشاء مجلد جديد وسميه Image وضع بداخله صورا بامتداد jpg وسمى هذه الصور 1 2 3 4 5 وهكذا وضع المرفق ده بجوار مجلد الصور Image 4 تاريخ الميلاد والسن والنوع.rar

ملف الإكسل المستخدم للشرح نسخ معادلة للكود و تخصيص زر أمر.rar

بسم الله الرحمن الرحيم ارجوا من الاخوة والاساتذة الكرام تجربة هذا الملف واخباري بالنتيجة هل يعمل بدون مشاكل ام يوجد مشاكل بالملف البرنامج لمراقبة حركة الاصناف من صرف واستلام والرصيد النهائي لكل صنف مصمم بالفيجوال بيسك وقمت بتحويل المعادلات لتعمل مع الفيجوال طبعا شوية معادلات محدودة ليس الا كل ما احتاجه هو الالمام بمعظم دوال ومعادلات الاكسيل برمجيا حتى اتعامل بها مع الفيجوال بيسك طبعا للجماعه اللي بتقول الحماية علي معادلاتي وشغلي اظن كدا بقت محمية كويس ملف الاكسيل ليس الا قاعدة بيانات فقط وكل معادلاتنا داخل الملف التنفيذي للفيجوال اينعم اعرف بعض طرق لاعادة سورس كود البرنامج ولكن يوجد برامج تشفير كتيررررر لحماية الملف من هذه المواضيع ارجو ان يعمل البرنامج بنجاح معاكوا وميحرجنيش معاكو ارجو التقييم اخوكم ياسر العربي vb6-excel.rar

بسم الله الرحمن الرحيم ميزه وخاصية ممتازه وهى Flash Fill Excel 2013 (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم https://www.youtube.com/watch?v=OZyrmcInZLU flash fill.rar

اولا يامعلم ياحبيبي عبد العزيز مع انك دوختني وتقولي انه معمول بالاكسيل انما انت حبيبي وهوضح ليك الحكاية برنامج الفيجوال بيسك دا يعتبر لغة برمجة من لغات كتيررررر جدا vb6,c++,vb.net,As-sembly,c#,php,java,sql,oracel, وفي غيرها كتيررر المهم خلينا في الفيجوال بيسك 6 عارف انت محرر الاكواد بتاع الاكسيل اللي بنخش عليه ونعمل فورم ونحط تكست بوكس وزرار وليست بوكس وتعمل صفحة الويب بتاعتك دي وتعمل فيها النص المتحرك دا المحرر دا بقي يعتبر جزء من الفيجوال بيسك مدمج مع مجموعةالاوفيس وهي VBA طبعا برنامج الفيجوال دا ممكن نعمل بيه اي برنامج زي مثلا برنامج تشغيل موسيقي او فيديو او نعمل بيه العاب او اي تطبيقات احنا محتاجنها وطبعا دا بيعمل ملفات تنفيذية يعني اي مشروع داخل البرنامج بنحوله لملف تنفيذي علي طول

ممكن بغير كود اتبع الشرح في المرفق شرح_111.rar

السلام عليكم اختى الكريمة تم الرد على موضوعك السابق بأكثر من حل ؟ على العموم تفضلي المرفق وبه الكود اكتبي التاريخ في خلية B3 وانقري انتر تحياتي كود انتقال_111.rar

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

السلام عليكم ورحمته وبركاته ارجو ان يكون هذا هو ماتقصده معلومات الاسرة.rar

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

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

البرنامج دا غير البرامج اللي جربت عليها بس هجيب امه ان شاء الله قول يارب

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

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

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

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

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

اذهب الى العمودين Z و X ستجد هناك معادلات تساعدك على اتمام الامر عليك تعديلها فقط حسب المطلوب اعمل نسخة احتياطية عن الملف قبل البدء بأي عمل تلافياً للأخطاء

بالطبع لا و انتظر رأى الزملاء قد يكون لدى أحدهم طريقة أخرى

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

جمعة مباركة بدأناها بعملية كسر للتعلم ليس أكثر تفضل برنامج الاختبارات مفتوح.rar

جرب هذا الملف المصنف1 salim.zip

م/ياسر فتحى شرفنى مرورك يا هندسه تقبل تحياتى كود اخر يؤدى نفس الغرض بطريقة منظمة Option Explicit Public Sub ListFormulasInWorkbook() ' by J.E. McGimpsey ' revised 04 July 2003 by Tom Ogilvy to add ' sheets when reaching ROWLIM formulas Const SHEETNAME As String = "Formulas in *" Const ALLFORMULAS As Integer = _ xlNumbers + xlTextValues + xlLogical + xlErrors Const ROWLIM As Long = 65500 Dim formulaSht As Worksheet Dim destRng As Range Dim cell As Range Dim wkSht As Worksheet Dim formulaRng As Range Dim shCnt As Long Dim oldScreenUpdating As Boolean With Application oldScreenUpdating = .ScreenUpdating .ScreenUpdating = False End With shCnt = 0 ListFormulasAddSheet formulaSht, shCnt ' list formulas on each sheet Set destRng = formulaSht.Range("A4") For Each wkSht In ActiveWorkbook.Worksheets If Not wkSht.Name Like SHEETNAME Then Application.StatusBar = wkSht.Name destRng.Value = wkSht.Name Set destRng = destRng.Offset(1, 0) On Error Resume Next Set formulaRng = wkSht.Cells.SpecialCells( _ xlCellTypeFormulas, ALLFORMULAS) On Error GoTo 0 If formulaRng Is Nothing Then destRng.Offset(0, 1).Value = "None" Set destRng = destRng.Offset(1, 0) Else For Each cell In formulaRng With destRng .Offset(0, 1) = cell.Address(0, 0) .Offset(0, 2) = "'" & cell.Formula .Offset(0, 3) = cell.Value End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If Next cell Set formulaRng = Nothing End If With destRng.Resize(1, 4).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 5 End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If End If Next wkSht With Application .StatusBar = False .ScreenUpdating = oldScreenUpdating End With End Sub

ربما يكون المطلوب مثال salim.zip

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

اخي الكريم ذكرت لك الجواب عن طريق dsum وفي اول مشاركة ولو بحثت لوجدت امثلة اكثر من ما تتخيل ! فلا اعلم لماذا مازلت مستمر في الكتابة ! ولا اعلم المقصود من هذه المشاركة : فان كانت معلومات فجزيت خيرا ونشكرك ! وان كان استفسار ارجو التوضيح ! وللعلم : الاصح ان التعبير السابق هو جمع الكمية لصنف معين بجدول الاصناف ! لا عذر بين الاخوان ! تحياتي للجميع

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

بسم الله ماشاء الله معلومة جميله جدا وهتفيد قي الكثير من الأعمال شكرا لك

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

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

معلومة جميلة ومفيدة جدا أخى الحبيب الغالى أ / محمد الريفى يجهلها الكثير جزاك الله خيرا

الاخ العزيز هذا الرابط موجود عليه شيت كنترول للصف الثانى الثانوى الصناعى http://www.gulfup.com/?kaCEfZ

براك الله فيك وننتظر منك المزيد وجزاك الله كل خير

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

شكراً لك اخي morsy على هذا الرد الجميل ، و أسأل الله القوة و المعونة لطرح المزيد المزيد من الأعمال و التي أرجو الله أن يتقبلها مني و أن يكون فيها الخير للجميع إنشاء الله . أما اليوم أخوتي الأعزاء في هذا المنتدى العزيز ، فقد قمت بإضافة العديد من الأمثلة التي تساعدكم إنشاء الله في موضوع الـ Combo بإنتظار ردودكم جميعاً . . . CascadingComboBoxes.zip CascadingComboInSubform.zip ComboChoosesRecord.zip

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

جزاك الله خيرا ووالدك أيضا

أخوتي الأعزاء : ارفق لكم اليوم مجموعة من الأمثلة التي تتعلق بالتقارير بإنتظار ردودكم و إستفساراتكم جميعاً ChooseReportFields.zip ChooseReportFieldsRows.zip ChooseReportFromList.zip ChooseReportFromList2.zip CrossTabReport.zip

السلام عليكم ورحمة الله وبركاته/- بارك الله فية ورحم الله والديك واتمني لك بذل المزيد من الجهد والمثابرة للرفع من مستويات شباب امتنا العربية والاسلاميه وياريت لو فيه احد من الاساتذه ان يتطرق كل مرة الى برنامج بالشرح ولكم فائق تحياتي وتقديري واحترامي[/ size] :clapping :