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

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

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

السلام عليكم ورحمة الله اليك الاجابة عن القسم الاول من السؤال /امّا القسم الثاني فلم افهم ما المطلوب تاريخ تلقائي.rar

الأستاذ / devoter السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. over times.rar

السلام عليكم اخي الكريم جرب التالي For h = 0 To ListBox1.ListCount - 1 Sum = Sum + Val(ListBox1.Column(4, h)) Next TextBox2 = Sum

أستخدم هذه المعادلة أخى ستحقق ماتريد وذلك بفرض أن بداية البيانات هى الخلية "A1" =SUBSTITUTE(A1;MID(A1;FIND(" ";A1)-1;1);"") أوهذه المعادلة أيضا =SUBSTITUTE(A1;LEFT(A1;FIND(" ";A1)-1);"") أوهذه أيضا =RIGHT(A1;LEN(A1)-FIND(" ";A1)) ثم إسحبها لأسفل وهذا كود أيضا لو رغبت فى الأكواد Sub RemoveNumberSpace() ' gamal_abdelsammeh, 07/05/2014 Dim c As Range, h As String Application.ScreenUpdating = False For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)) h = c c = Right(h, Len(h) - WorksheetFunction.Search(" ", h)) Next c Application.ScreenUpdating = True End Sub ثم إسحبها لأسفل تقبل تحياتى

السلام عليكم هذا يعمل مع جميع الازرة المرفق 2003 أوائل الطلبه وشهادات 4.rar

السلام عليكم هذا الجزء الثالث من البرنامج والأخير برنامج المشتريات والمبيعات والمخازن.part3.rar

السلام عليكم أنت تطلب انشاء قاعدة بيانات جديدة كاملة لك لا احد انشاء قاعدة لك كما تتمناها انت مهما شرحت لهم (هذا رأيي طبعا ) انشئ قاعدة بيانات لك و ارفعها الى المنتدى ونساعدك بالتعديل عليها ما ستطعنا و على كل حال سأرفع لك قاعدة بيانات مبدأية لبرنامج محاسبة أقوم بتصميمه حاليا ملاحظة مصممة على اكسس 2007 حاول الاستفادة منها و التعديل علي ماتريد و احذف ما لا تريد كلمة مرور القاعدة 123. new1.rar