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

الطريقه الحاديه عشر :- تعبئه الكمبوبوكس بأستخدام المصفوفه ويتم ترتيبها ابجديا اولا ثم تعبئة الكمبوبوكس هذه الطريقه للاستاذ القدير / ياسر خليل تفضل بها علينا وارسلها لى على الخاص الكود مشروح جاهز Private Sub UserForm_Initialize() 'يوضع الكود في حدث الفورم ويقوم بعمل قائمة كومبوبوكس مميزة في عناصرها ومرتبة أبجدياً 'تعريف المتغيرات Dim A, E 'مسح محتويات الكومبوبوكس ComboBox2.Clear '[Sheet1] بدء التعامل مع ورقة العمل المسماة برمجياً With Sheet1 'ليحمل قيم النطاق في العمود الثاني أي أنها تعتبر مصفوفة بكل القيم في هذا النطاق [A] تعيين قيمة للمتغير A = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).value End With 'بدء التعامل مع المصفوفات With CreateObject("System.Collections.ArrayList") '[Aِ] من عناصر المصفوفة [E] عمل حلقة تكرارية لكل عنصر For Each E In A 'إذا كان العنصر لا يساوي فراغ ولا يوجد عنصر مماثل في المصفوفة أي يتم التعامل مع القيم الفريدة If (E <> "") * (Not .Contains(CStr(E))) Then 'يتم إضافة العنصر إلى المصفوفة الجديدة التي تحتوي على قيم فريدة غير مكررة .Add CStr(E) End If Next 'ترتيب عناصر المصفوفة الجديدة تصاعديا .Sort 'إضافة عناصر المصفوفة الجديدة للكومبوبوكس ComboBox2.List = .ToArray End With End Sub لو حضرتك عايز الترتيب يكون من ( تنازليا ) فقط غير هذا السطر .Sort الى .Sort: .Reverse تقبلوا تحياتى

اخى الكريم الكود يعمل تمام شاهد الملف المرفق مسافه بادئه للتكست.zip

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

اعزائي واخواني اعضاء المنتدى الرائد اقدم اعتذاري للانقطاع المؤقت والذي لن يدوم طويلا وذلك لانشغالي قليلا متمنيا للجميع التوفيق والسداد ! تحياتي للجميع

أخي الكريم أيمن هل اشتغل معك الكود بشكل جيد ؟؟؟ أشك في النتائج ... راجع الملف مرة أخرى ... أخي الغالي ياسر العربي .. ركز معايا في اللي جاااااي إنت بتقول المشرفين بيقفشوا على Activate أو Select .. اتفضل القفش في الكود القفشة الأولى زي ما أبطلت تحديث الشاشة كان عليك ترجع الإعدادات مرة تانية وتشغل الخاصية في النهاية Application.ScreenUpdating = True القفشة التانية عند نسخ الكود .. هناك خطأ في هذا السطر لديك aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 حضرتك نسيت أقواس التنصيص عشان تقفل اسم ورقة العمل القفشة التالتة في نفس السطر الل فوق ..دا كدا بيجيب آخر صف به بيانات ..يعني لما تيجي تلصق البيانات فيه آخر سطر سيتم اللصق عليه (قفشة في الجون) وليه اللفة الطويلة دي واستخدام دالة Counta وتزود عليها 4 كان ممكن يكون السطر بهذا الشكل أفضل aseel = Sheets("تحويل داخلي").Cells(Rows.Count, "B").End(xlUp).Row + 1 القفشة الرابعة بدلاً من أن تكتب وتشير إلى ورقة العمل Sheets("تحويل داخلي") الأفضل الإعلان عن متغير باسم ورقة العمل مرة في أول الكود لسهولة استخدام المتغير بمعنى أن تضع في أول الكود هذين السطرين Dim SH As Worksheet Set SH = Sheets("تحويل داخلي") وبعد ذلك يمكنك استخدام المتغير SH القفشة الخامسة حضرتك بتتسخدم أسماء أشخاص في المتغيرات ودا شيء مش مستحب لأن اسم المتغير بيعبر عن وظيفته في الغالب (دا أفضل) ..صحيح مش قفشة صحيحة بنسبة 100% ، ولكن أنا بكلم واحد محترف ، يعني لازم تستخدم اسماء في المتغيرات تعبر عن المتغير وعن نوعه كمان يعني مثلاً المتغير mohamed المفروض إنه بيجيب رقم آخر صف في ورقة العمل اللي فيها الكود ... كان ممكن نسميه lRow (حرف الـ l اختصار للنوع Long .. أو لو حبيت تستخدم Integer يبقا iRow) .. والمتغير المسمى aseel المفروض بيعبر عن آخر صف في ورقة العمل "تحويل الداخلي" أو على الأدق أول صف فارغ بعد آخر صف به بيانات ... ممكن تسميه iRowTar أي آخر صف في الورقة الهدف (الورقة الهدف : الورقة المراد الترحيل إليها) القفشة السادسة يفضل أيضاً الإشارة إلى ورقة العمل الحالية .. عشان تقدر تنفذ الكود من أي مكان تاني (لأن الكود بهذا الشكل مينفعش يتنفذ غير وإنت واقف في ورقة العمل Sheet1 فالأفضل تعيين متغير تاني لورقة العمل الأولى عشان تقدر تنفذ الكود من أي مكان زي ما قلت فيكون بهذا الشكل أيضاً .. Dim WS As Worksheet Set WS = Sheets("Sheet1") والأفضل كمان إنك تستخدم الاسم البرمجي بدلاً من اسم ورقة العمل ، نظراً لأن المستخدم قد يرغب في كثير من الأحيان إلى تغيير اسم ورقة العمل ، بالتالي راعي هذه النقطة أيضاً القفشة السابعة السطر التالي ايه لازمته ...عايز أعرف ايه الفايدة منه بعد انتهاء أسطر الكود aseel = aseel + 1 ملوش لازمة إلا لو كنت داخل حلقة تكرارية مثلاً وتريد زياد رقم الصف بمقدار واحد شفت إزاي ممكن كود صغير نقفش منه سبع قفشات ... قول ورايا : خشب السقف سبع خشبات واتمسكت بسبع قفشات (قولها 10 مرات) تقبل تحياتي أخوك وحبيبك أبو البراء الكود بالشكل النهائي يمكن أن يكون بهذا الشكل ... Sub Rectangle1_Click() Dim WS As Worksheet, SH As Worksheet Dim lRow As Long, lRowTar As Long Set WS = Sheet1: Set SH = Sheet5 lRow = WS.Cells(Rows.Count, "A").End(xlUp).Row lRowTar = SH.Cells(Rows.Count, "A").End(xlUp).Row + 1 Application.ScreenUpdating = False WS.Range("A2:H" & lRow).Copy SH.Range("A" & lRowTar).PasteSpecial Paste:=xlPasteValues Range("A1").CurrentRegion.Offset(1).ClearContents Application.ScreenUpdating = True End Sub

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

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

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

استاذى الحبيب مرحبا بك فى جامعه اوفيسنا بعد ان اطلعت على صفحتك الشخصية بالمنتدى فلقيت ان حضرتك مدير مالى فما رائيك تجربة هذا البرنامج http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/ شوف هيعجبك او لا فيه كل اللى انت عايزه تقريبا لو عجبك البرنامج قولى وانا ابعتلك احدث نسخه له ولو مش عجبك مفيش مشكله انا او غير من الاعضاء بالمنتدى لو عندنا متسع من الوقت لن نبخل عليك ولكن نصيحه من اخ لك اطلب طلب طلب حتى يسهل لمن يريد المساعده تقديم يد العون لك ملحوظه على الهامش تاريخ اشتراك بالمنتدى من شهر 4 والان بشهر 10 يعنى ست شهور بالمنتدى ودى اول مشاركه لك بالمنتدى وكما تفضلت وقلت انك استفد كتير من المنتدى لم يخطر ببالك ولو مره تكتب اى تعليق على اى مشاركه انت استفد منها ومريت عليها عملتلك اول طلب كدا على السريع فى شيت المبيعات طلبك بخصوص الكمية المتاحه فى الخلية D4 قم بنسخ المعادله التالية واسحبها نزول للاسفل وشاهد النتيجة ستجد ان الكمية تتناقص عند بيع كمية =LOOKUP(C4;'قائمة الاصناف'!$B$4:$B$1000;'قائمة الاصناف'!$E$4:$E$1000)-SUMIFS($F$3:F3;$C$3:C3;C4) تقبل تحياتى

أخي الحبيب عمرو مشكور على مرورك العطر وكلماتك الطيبة أخي الحبيب أبو يوسف ماذا لو زادت الأرقام عن ثلاثة أرقام ؟ .. أمر آخر لما الضغط على Ctrl +Shift + Enter (هذه ليست معادلة صفيف) أرجو أن تتقبل النقد بصدر رحب .. وكلنا نتعلم من بعضنا البعض أبي الغالي عموماً هذه دالة معرفة بسيطة تؤدي الغرض إن شاء الله Function GetNumber(myStr As String) myStr = Replace(myStr, "المبلغ النهائي", "") GetNumber = Val(Split(Application.Trim(myStr))(1) & "." & Split(Application.Trim(myStr))(0)) End Function Tee V2.rar

السلام عليكم أخي الكريم معادلة الأستاذ ياسر عدلت عليها رقمين فقط بعد إذنه.. =VALUE(RIGHT(TRIM(SUBSTITUTE(A145;"المبلغ النهائي";""));3)&"."&LEFT(TRIM(SUBSTITUTE(A145;"المبلغ النهائي";""));3)) يرجى أن تكون مناسبة

أخي الكريم أبو جيداء ضع معادلة الصفيف التالية في الخلية H5 ثم اسحبها عبر الصفوف والأعمدة لا تنسى بعد إدراج المعادلة الضغط على Ctrl + Shift + Enter =SUM(IF(FREQUENCY(IF($B$2:$B$12=$G5,IF($C$2:$C$12=H$4,MATCH($A$2:$A$12,$A$2:$A$12,0))),ROW($A$2:$A$12)-ROW($A$2)+1),1)) تقبل تحياتي

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله Download VBE Basics

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

الاخوة الكرام فى هذا الصرح العظيم بناء على طلب للاخ " المارد العراقى " على هذا الرابط http://www.officena.net/ib/topic/64162-موضوع-خاص-بالردود-والاستفسارات-واسئله-اختبارات-على-شروحات-الفورم-سلسلة-علمنى-كيف-اصطاد/?do=findComment&comment=418485 قمت بعمل طلبه وحبيت يكون فى موضوع مستقل حتى تعم الفائده ويكون سهل فى الوصول اليه من خلال البحث فيما بعد الطلب كان السلام عليكم أستاذ عندي 3 (textbox) الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلادي و عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل تاريخ التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم دون الرجوع او استخدام الخلايا في الاكسل على سبيل المثال التكست الاول يساوي 22 الي هو اليوم ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000 كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه بواسطة vba فقط دون استخدام خلايا الاكسل ؟؟ مرفق ملف به ما تريد الملف الاول تحويل التاريخ من يوم وشهر وسنة تحويل التاريخ من ميلادى الى هجرى على الفورم.zip الملف الثانى تحويل التاريخ بنفس التكست تحويل التاريخ من ميلادى الى هجرى على الفورم - Copy.zip تقبلوا تحياتى

ارغب عمل دالة لتحويل الارقام إلى نص بالنجليزي في المجموع الكلي وبرفقه الملف فاتورة المؤسسة .rar

ياعم الحاج انت حبيبي وعمري ما ازعل منك بس انت استحمل رخمتي بس وبعدين انا هشتغل بكودي بقي ايه رايك رخامة وشوف الكود تاني Sub Rectangle1_Click() Dim mohamed As Integer Application.ScreenUpdating = False mohamed = [A100000].End(xlUp).Row Sheet1.Range("a2:h" & mohamed).Copy aseel = WorksheetFunction.CountA(Sheet5.Range("a5:a9999")) + 4 Sheet5.Range("A" & aseel + 1).PasteSpecial Paste:=xlPasteValues Sheet1.Range("a2:h100000").ClearContents Application.ScreenUpdating = True End Sub ومحمد واسيل متغيرات عشان هما كل يوم بحال وعشان نبقي خالصين خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات

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

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

ههههههههههههههههههههههه اينعم انا عدلت بس مجربتش ماشي ياعم انت زي ما انا شاكك فيك من الاول منفسن من ناحيتي مش عارف ليه انا مبحبش النقد الهدام داااا هههههههه انت ياخي كودك الاولاني زي الفل اشتغل علي Select or Activate محطتشي تاتش في حته وسلكت لازم يتعلم عليا كدا ماشي الواحد مش بيتعلم ببلاش

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

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

والحق واقولك غير كودك بالكود دا عشان في مشرفين هنا بيقفشوا علي الواحدة ويقولك بلاش Select or Activate Application.ScreenUpdating = False Dim mohamed As Integer mohamed = [A100000].End(xlUp).Row Range("a2:h" & mohamed).Copy aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 Sheets("تحويل داخلي").Range("A" & aseel).PasteSpecial Paste:=xlPasteValues aseel = aseel + 1 Range("a2:h100000").ClearContents كود الغاليين

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

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

جرب هذا الملف ايضا للقدير استاذى سليم حاصبيا تغيير اللغة اوتوكاتيكياً.rar

وعليكم السلام ورحمه الله وبركاته ولا يهمك اخي الفاضل المهم انك بخير والحمد لله .. تحياتي لك

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

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

إخواني وأحبابي في الله تتقدم إدارة الموقع بالتهنئة لكلٍ من العضوين الكريمين :: خالد الرشيدي *** ياسر العربي فنتقدم لهما بالتهنئة الحارة من قلوبنا ، ونتمنى لهما مزيد من التفوق والتميز .. مع تحيات أخوكم أبو البراء

السلام عليكم ملفك تم التعديل عليه شاهد الفديو http://up.top4top.net/downloadf-top4top_8a4c3884ba1-zip.html بالتوفيق

البيانات على sql عليها كلمة مرور

يعني لما تدخل على sql بعطي خطا او قصدك لما يحاول البرنامج يرحل بعطي خطا؟

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

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

اخى الكريم وإن كنت احبذ طريقة الاستاذ / عمرو بزان ... جزاه الله خيراً اطلع على المرفق 3 معادلات.rar

السلام عليكم ملفك بطيئ الافضل تنسخ البيانات مع الاكواد جميعها الى ملف جديد وزارات المحافظة - بطأ العملية_111.rar

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

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

جرب هذا الشيء notes.zip

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

جــــــزاك الله كل خير واتمنى لك دوام الصحة والعافيـــــة

السلام عليكم المنتدى نايم بحاول أصحي الناس والناس بردو نايمه .. خير اللهم اجعله خير ... هو فيه مبارة كرة قدم ولا الناس كسلانة ولا تعبانة طيب للي مهتم بالأمر .. هل ترغب أن يقوم الإكسيل بالحفظ التلقائي كل 10 ثواني مثلا .. في حدث الورقة ضع الكود التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) StopTimer End Sub Private Sub Workbook_Open() StartTimer End Sub وفي موديول جديد ضع الكود التالي Public RunWhen As Double Public Const cRunIntervalSeconds = 10 Public Const cRunWhat = "The_Sub" Sub StartTimer() RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _ schedule:=True End Sub Sub The_Sub() ActiveWorkbook.Save StartTimer End Sub Sub StopTimer() On Error Resume Next Application.OnTime earliesttime:=RunWhen, _ procedure:=cRunWhat, schedule:=False End Sub ويمكنك بالطبع تغيير الوقت المراد عمل الحفظ التلقائي على أساسه من خلال السطر الثاني Public Const cRunIntervalSeconds = 10 إليكم الملف المرفق Auto Save Every 10 Seconds.rar

اخى الكريم جرب المرفق هل هو طلبك تقبل تحياتى abduo.zip

أستاذ هشام ومنكم نستفيد لقد قمن بتغيير بسيط في الكود السابق ز حيث بدلت السطر Worksheets.Add الى Sheets("Database").Select Sheets("Database").Copy Before:=Sheets(1) وتم المطلوب حيث اصبح لدي حرية التغيير في ورقة Database وعند اضافة عضو جديد سوف يقوم الفورم بأضافة ورقة Database جديده تحتوي على اسم العضو الجديد تجدون مثال في المرفق ولكم خالص الشكر اخوك ابوفيصل تكرار وتسمية شييت محدد.rar

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

السلام عليكم . كنت عاملة تقرير وفي نهاية التقرير عملت مربع نص وسميته AVRGE أشان يجمع علامات كل طالبه على حدة : =Sum([AVRGE]) الآن عايزه أعمل مربع نص ثاني وليكن TOTAL ومهمته يجمع المجموع الكلي الي موجود في نهاية التقرير AVREG مع الشكر والتقدير للجميع