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

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

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

السلام عليكم ورحمة الله وبركاته كل عام انتم بخير لو سمحتم لي بالمشاركة البسيطة دي حيث قمت بتجميع كل ما تحتوية المشاركات السابقة في ملف واحد فقط تقبولي تحياتي http://www.gulfup.com/?58sHZG

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

اثراءً للموضوع تم نقليص حجم الملف اكثر مع القدرة على ايجاد نتائج اكثر الغاز 4.rar

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

الأستاذ الفاضل / محمد أبو البراء السلام عليكم ورحمة الله وبركاته نعم أستاذي الفاضل وجرب هذا الملف مع تبديل الرقم 7 بالرقم 11 مثلاً مع الشروط السابقة ولاحظ النتيجة. لغز3.rar

الأستاذ الفاضل / محمد أبو البراء السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على كلماتك الطيبة وهذا من نبل أخلاقك بالنسبة للفرق 420 الثابت لأنك عندما تحسب الفرق بين أي عدد يحقق الشروط والعدد الذي يليه مباشرة تجده 420 وهذا ناتج من الأرقام المحصورة بين هذين العددين تجدها 60 فيكون القيمة المناظرة لهذا العدد 60 مضروب *7 فيكوت 420 هذا هو الثابت. أرجو ان أكون وضحت الفكرة.

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

ما شاء الله حلول فى قمة الروعة بارك الله فيكم جميعا وتقبلوا منى وافر الاحترام والتقدير

أخى فى الله الأستاذ الكبير // ابراهيم ابو ليله مرفق لكم نموذج للأستاذ القدير // الحسامى إن شاء الله به المطلوب وتقبل منى وافر الاحترام والتقدير جلب صور الحسامي.rar

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

ويمكن ايضا استبدال الاقلام بالعمل الذي يقومون به مهندس ، طبيب ، طيار .... الحقائق: -هناك خمسة بيوت بجانب بعضها على صف واحد؟ -كل بيت له لون يختلف عن الآخر؟. -كل بيت يسكنه شخص جنسيته مختلفه عن الآخر؟. - كل شخص من السكان يربي حيوان مختلف عن الآخر؟ - كل شخص له مشروب مفضل يختلف عن الآخر؟. -كل شخص يعمل عملا مختلفا عن الآخر؟. تلميح: -البريطاني يسكن في البيت الأحمر. -السويدي يربي كلب. -الدنماركي يشرب الشاي. -البيت الأخضر على يسار البيت الأبيض. -مالك البيت الأخضر يشرب القهوة. -الشخص الذي يعمل مهندسا يربي عصفور. -مالك البيت الأصفر يعمل طبيبا ‏. -الشخص الذي يسكن في البيت الواقع في المنتصف يشرب الحليب. -النرويجي يسكن بالبيت الاول. -الشخص الذي يعمل طيارا يسكن بجانب الشخص الذي يربي قطة. -الشخص الذي يربي خيل يسكن بجانب الطبيب .‏ -الشخص الذي يعمل ضابطا يشرب عصيرا. -الألماني يعمل قاضيا .‏ -النرويجي لديه جار بيته أزرق. -الشخص الذي يعمل طيارا لديه جار يشرب الماء. السؤال هو : من يربي السمك ؟ ما رأيكم الآن ؟ اليس أفضل ؟

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

اخواني at_aziz و علي المصري شكرا على الثناء والتقييم .. جزاكم الله خيرا

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

كود غلق الملف الغير نشط بعد مدة من الزمن 30د مثلا يحدث في بعض المرات ان تترك الملف مفتوحا وفيه بعض البيانات المهمة و الحساسة و يمكن ان تطول مدة غيابك اذا ليس لك حل سوى هذا الكود و هو ينوب عنك في حفظ البيانات و غلق الملف ارجوا ان يحوز اعجابكم Private Sub Workbook_SheetActivate(ByVal Sh As Object) Call Timer End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Call Timer End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call yahp End Sub Public vartimer As Variant Sub Timer() Call yahp vartimer = Format(Now + TimeSerial(0, 30, 0), "hh:mm:ss") If vartimer = "" Then Exit Sub Application.OnTime TimeValue(vartimer), "yahm" End Sub Sub yahm() With Application .EnableEvents = False ActiveWorkbook.Save .Quit End With End Sub Sub yahp() On Error Resume Next Application.OnTime earliesttime:=vartimer, _ procedure:="yahm", schedule:=False On Error Goto 0 End Sub

إخوانى الأفاضل ( المدرسون منكم ) إليكم : برنامج كنترول لمدرسة اعدادية بمص ر تم تصميمه منذ فترة وكنت وقتها أتمنى ان أجد صدى وتقدير لجهودى . . إلا أن جهل مديرى المدارس لدينا بالحاسب الآلى وبيروقراطية النظام الذى يفضل العمل اليدوى الشاق ( على أساس اللى تعرفه أحسن من اللى متعرفهوش ) حال دون استكمال وتعميم البرنامج ، وبالصدفة المحضة وأنا أبحث فى أعمالى القديمة وجدت هذا التطبيق وأردت مشاركتى له إياكم علماً بأنه يحتوى على الكثير من الأفكار المفيدة والأكواد الاحترافية التى سوف تعجبكم. باختصار .. هو برنامج مفتوح لكل من يريد الاستفادة منه والتطوير فيه بشرط ألآ يبخل علينا بملاحظاته أو أفكاره البناءة .. مع خالص التحية المرفقات : http://www.officena....&attach_id=3195

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

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

اليكم كود لتلأم العمود لمحتوى النص بمعنى عند كتابة اسم طويل بالخليه تتوسع اتوماتيك ينحط الكود في حدث workbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) ActiveSheet.Columns(Target.Column).AutoFit End Sub

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

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

شكراً لك أخي عابر القارات ، و أتمنى لك كل خير و للجميع أيضاً في هذا المنتدى الحبيب

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

الآن أخوتي وكما وعدتكم سابقاً ، فإني أرفق لكم أمثلة إضافية أسأل الله تعالى أن تفيدكم و تزيد من معلوماتكم مع تأكيدي أنني سأستمر في طرح المزيد من الأمثلة وبإنتظار ردودكم . مع وافر شكري و إعتزازي للجميع ، ، ، accarch11.zip accarch30.zip accarch43.zip picturereport.zip ColorCmdBtns2k.zip

مشكورررررررررررررررررررررررر

شوفولي هالبرنامج و إدعولي وما بدي أذكركم هاي برامج مجمعة من مواقع ومنتديات ، يعني مش أنا إلي عاملها وبشكر أصحاب هذه البرامج لأنها راح تكون مفيدة للجميع إنشاء الله wzbackup.zip

شكر وتقدير الاستاذ الفاضل ابو عبد الله على تشجيعه الدائم واخرين عفوا لم اتذكر الاسماء اللهم اجعل هذا العمل خالصا لوجهك وانفع به من اراد ان يعلم الناس علما نافعا مع تحيات amr atef eid المرفقات _______________2.rar