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

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

السلام عليكم جرب هذا الكود انا استخدمه في اعمالي يعمل على تناسب الزوم مع الطول او العرض ايهم الانسب Private Sub UserForm_Initialize() Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! '=========================================== AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = Me.Height: FW = Me.Width ZH = AH - FH: ZW = AW - FW: Zo = Me.Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) '=========================================== With Me .Move AL, AT, AW, AH If Zo <> 100 Then .Zoom = Zo End With '=========================================== End Sub في امان الله

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

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

أثناء مروري بأحد المواضيع في منتدانا الطيب ومن خلال المشاركات كان لأخي الحبيب أبو أحمد - عبدالله المجرب ، تعليق وطلب لشرح تركيب جملة SQL ، .... http://www.officena....=0 ومنها راودتني نفسي أن أجهز سلسلة لشرح ما يفتح عليّ ربي عن SQL ، وقد باشرت بالعودة لمراجعي ومواقعي المعتمدة ، وما لدي من ملاحظات و ( خرابيش ) في كشكولي ، وعقدت العزم ووجهت النية ... لوجه الله تعالى ، لا أبتغي منكم أجراً ولا (مديحاً) ، إن أجريَ إلا على الله ، وهو حسبي ، وهو المستعان . ورغم أن لغتي الإنجليزية ممتازة (أدعي) ، إلا أنني قررت الاستعانة بإبني البكر آدم في بعض الترجمات الفنية ، تخفيفاً على نفسي ، وتكثيفاً للجهد ، فأعينونا بالدعاء. راجياً من المولى عزّ وجلّ أن يعيننا على الخير ، وهو المستعان بحق وجزاؤه المرتجى ... والله من وراء القصد ... وهو حسبي ........................

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' ' هذا الكود للعالم العلامة عبد الله باقسير Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If Activewindow.ScrollColumn = 1 Activewindow.ScrollRow = 1 On Error GoTo 0 End Sub في هذا الكود البسيط والمفيد عند الضغط على الزر ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف اختر منها الورقة التي تبعاها ودمتم في حفظ الله التنقل بين الصفحات.rar

ملف اكسل بسيط به بعض من القنوات الاخبارية + تلاوة مسموعة للقران الكريم بصوت المقراء ماهر المعيقلي تم تحويل ماف الاكسل الى ملف تنقيدي كل ماعليك هو تسطيبه كاي برنامج عادي ثم افتحه وستلاحض Excel Chanel.rar

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

السلام عليكم يوجد ملف مرفق اريد عمل كود للاستدعاء من شيت الى شيت وشكرا استدعاء.rar

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

بعد إذن أستاذى ( أبو حنين ) طبعا أكواد حضرتك الكل بيشيد بها ولكن أنا بعشق المعادلة لأنها عندى زى المعادلة الكيميائية بأستمتع وأنا بركبها مع بعضها حتى تعطينى فى النهاية النتيجة المرجوة بعد قيام أستاذى ( أبو حنين ) بتحقيق المطلوب لحضرتك عن طريق الكود أقدم لحضرتك الحل أيضا بالمعادلة قوائم منسدلة بطريقة جديدة 2.rar

السلام عليكم اولا: استخدمنا الليست بوكس لسهولة الاضافة والحذف والتعديل ثانيا: تم تصحيح المعادلة للاسم المعرف asd لتعطينا النطاق بدون فراغات =OFFSET(Sheet1!$B$3;;;COUNTA(OFFSET(Sheet1!$B$3;;;10000;1));1) شاهد المرفق 2003 استدعاء بيانات بشكل افقي و التعديل عليها 2.rar

الاخ الكريم عباد بارك الله فيك اكوادك فعلا رائعه وبالتاكيد كل من ا يحتاج لهذا الكود

بسم الله الرحمن الرحيم تحية طيبة للجميع اساتذة ان شاء الله اريد تصميم نضام قواعد بيانات للمدرسة بحيث من 2 اسبوع وانا اعمل على تحليل النضام بحيث قمت بتحليل النضام كما التالى : و المطلوب يا اساتذة فى مساعدتى اذا كانت هناك نقص فى التحليل او اضافة .... ارجو مساعدتى فى ذالك التحليل : 1 ) انشاء جدول خاص بالمدرسين و الموظفين معا : بحيث يتم حفظ جميع بيانات العامة للمدرس و الموظفين من ( الاسم الثلاثى , تاريخ الولادة , محل الولادة.... ) 2 ) انشاء جدول خاص بالطلاب : بحيث يتكون من 2 فرع ( العلمى , الادبى ) بحيث قمت بانشاء جدول خاص للفرع العلمى و جدول خاص للفرع الادبى كما التالى : فرع العلمى : 1 ) جدول خاص بالصف : يتكون من ( رقم التسلسل , اسم الصف اما تكون ( ا , ب , ج ... ) 2 ) جدول خاص ببيانات الطلاب العامة يتكون من ( رقم , اسم الطالب , تاريخ الميلاد ... ) و قمت بربطها مع جدول الصف one to many 3 ) جدول خاص بالمواد و الدرجات و يتكون من ( رقم , اسم المادة , مدرس المادة , كورس الاول , كورس الثانى ... ) و قمت بربطها مع جدول بيانات الطلاب one to many فرع الادبى : نفس الجداول الموجودة فى فرع العلمى و هذا صورة توضيحية

السلام عليكم الاخ الكريم / إبراهيم ابوليله اليك اخي لمسه بسيطة جدا علي كود الرائع / بن عليه ... جزاه الله خيرا ليقوم بنسخ جزء معين من الصفحة الموجودة ويقوم بعمل Print Preview تلقائيا بعد اضافة الصفحة ارجو ان يلبي هذا طلبك جزاك الله خيرا اضافة ورقة جديدة ومعاينة.rar

اخواني الاحبه هذا تعديل للكود بعد تجربته عند فتح اكثر من ملف واغلاق الملف الذي به الكود يفتح الملف مره اخرى وذلك بسبب التايمر في وضع التشغيل عموما هذا هو التعديل هذه الأكواد في حدث Thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Call Ext End Sub Private Sub Workbook_Open() Call St_A End Sub وهذه الأكواد في مودويل Public Rm As Double Public Const C_Con = 3 Public Const Sc_W = "Ex" Public Sub St_A() On Error Resume Next Rm = Now + TimeSerial(0, 0, C_Con) Ali_C Rm, Sc_W, True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub Public Sub Ext() Ali_C Rm, Sc_W, False End Sub Public Function Ali_C(St As Double, Sa As String, Bn As Boolean) On Error Resume Next With Application DoEvents .ScreenUpdating = False .EnableEvents = False .OnTime EarliestTime:=St, Procedure:=Sa, Schedule:=Bn .EnableEvents = True .ScreenUpdating = True End With End Function

أخوتي الأعزاء في منتدانا الطيب هذا : أرفق لكم اليوم مجموعة من الأمثلة البرمجية التي أجد فيها الكثير من المعلومات المفيدة لكم راجياً الله تعالى أن تنال إعجابكم بإنتظار ردودكم ComboChoosesRecord.zip CreateQueryFields.zip CopyObjectsFromBE.zip ContinuousFormNewRecordOnTop.zip DeleteTablesAtStart.zip