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

بسم الله الرحمن الرحيم اليوم اقدم لكم لعبة شيقة جدا من برمجتي بلغة برمجة المواقع أما هي فمعروفة كفكرة رياضية من زماان وأدعوكم للتفكير قليلا ومعرفة سر هذه اللعبة اللعبة عبارة عن ملف htm يتم فتحه بمستعرض الانترنت. باسوورد فك الضغط عن الملف mr-mas.com والآن مع اللعبة. وهذا رابط لمعاينة اللعبة قبل تحميلها. الرابط موجود في صفحتي في أوفيسنا. guess number.zip

برنامج حسابات العملاء تسجيل ومتابعة حسابات العملاء عن طريق خمسة حركات مختلفة (فاتورة بيع - مرتد مبيعات - سند قبض - اشعار خصم - اشعار اضافة ) الحل الامثل لضبط ومراجعة الحسابات لتحميل البرنامج اطغط على الرابط التالى http://a7lashare.com//uploads/files/A7lashare-9e7ce016c8.rar مميزات البرنامج تسجيل فاتورة البيع بالقيمة تسجيل فاتورة مرتد المبيعات بالقيمة تسجيل سندات القبض الخاصة بكل عميل تسجيل اشعار خصم - حركة دائنة تسجيل اشعار اضافة - حركة مدينة قاعة بيانات للعملاء تسمل كود العميل واسمة وعنوانة وتليفونة والمنطقة التابع لها لعمل افضل التقارير العمل بـ id مسريل من داخل البرنامج لكل عملية تسجيل بعيدا عن رقم الفاتورة او السند * امكانية المعاينة والتعديل على اى عملية تسجيل تمت بمنتهى السهولة تسجيل اسم المندوب فى كل عملية تسجيل لأعدات التقرير الخاصة بكل مندوب مع العملاء الخاصين به سرعة هائلة فى التسجيل وحفظ البيانات النسخة الاحتياطة هى مجرد كوبى من ملف الاكسيل مع امكانية اخذ نسخة من البيانات المسجلة على ملف اكسيل جديد تصدير التقرير الى ملف خارجى لأرسالها بالميل او لاى غرض اخر بعيد عن البرنامج العمل بأعلى كفائة على الشبكة الداخلية وبأبسط الطرق adminصلاحية لـ 9 مستخدمين والصلاحية الرئيسية لـ admin اسم مستخدم وكلمة سر لكل مستخدم يعرفوا عن طريق تقارير البرنامج كشف حساب لكل عميل تقرير تفصيلى عن كل مندوب تقرير عن حركة معينة بيع - مرتجعات - تحصيلات كشف بأرصدة العملاء كشف تحليل مديونية العملاء موضح فية نسبة التحصيل الى المديونية لكل عميل قائمة تحليل المبيعات موضح بها اجمالى المبيعات والمرتجعات والمتحصلات والخصومات وصافى المسحقات تقرير حركة يومى لمتابعة جميع العمليات المسجلة فى يوم محدد افضل طرق رقابة على المستخدمين وسهولة اكتشاف اخطأ المستخدم فى اثناء عملية التسجيل

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

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

قمت بتصمم فاتورة بالاكيسيل وهى عبارة عن شيت اسمه الفاتورة به هذا الجدول :- الصنف السعر وعندى شيت فى نفس ملف الاكيسيل اسمه Setting به الاتى:- اسم الصنف سعر الصنف كمبيوتر 25000 دش 450 كاسيت 850 السؤال هو : اريد عمل قائمة باسماء الاصناف بحث اختار منها الصنف فيظهر لى السعر كيف اقوم بعمل ذلك مع جزيل الشكر

الأستاذ/ عبدالسلام السلام عليكم ورحمة الله وبركاته حسب إصدار الويندوز لديك - من قائمة إبدأ Start -> All Programs - >Startup بزر الماوس اليمين أفتح مجلد Startup ضع به الملف المراد فتحه أو نسخة عنه تقبل تحياتي

اخواني الاعزاء في الملف المرفق يوجد جدول1 به حقل رقم المحافظة وحقل رقم المديرية وحقل رقم المدرسة وحقل رقم الصف وحقل الرقم المدرسي وحقل الاسم فهل بالامكان انشاء الرقم المدرسي بالاعتماد على الحقول ( رقم المحافظة والمديرية والمدرسة والصف)مباشرة كترقيم تلقائي مثلا رقم المحافظة 717 ورقم المديرية من خانتين 05 ورقم المدرسة من ثلاث خانات 016 ورقم الصف من ثلاث خانات 008 يتكون الرقم 7170501600812131 والطالب الذي يليه بنفس الصف والمدرسة والمديرية والمحافظة يكون 7170501600812132 والاقارم 12131 يبداء بها الترقيم اتمنى الافادة حيث وانا محتاج اليه فقد تعبت من الرقيم بالارقام الطويلة الرقم المدرسي.rar

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

الملف بعد التعديل تخطيط البرنامج.rar

جزاك الله خيرا اخي العزيز تقبل خالص تحياتي

الاخ الكريم / رائد اولا : كنت بصدد كتابة هذا الشرح التالي فعلا قبل طلبك ... ثانيا : بارك الله فيك وجزيل الشكر علي كلماتك الجميلة قمت بتنفيذ طلبك بطريقة سهلة جدا ... هيا معي !! ضع المعادلة التالية في الخلية C1 مثلا .. وهي موجودة بالملف ولكن تم تنسيقها علي ان لا تظهر او ضعها في اي خلية تريدها غير مستخدمة =SUBTOTAL(9;A2:A100) ثم قم بوضع الكود التالي في حدث تكست بوكس 1 في الفورم كما يلي Private Sub TextBox2_AfterUpdate() Dim SAMA_Date As Date Dim LastR As Long Application.ScreenUpdating = False SAMA_Date = TextBox2.Value LastR = Sheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row '============== Sheets("Sheet2").Range("A1:B" & LastR).AutoFilter Field:=2, _ Criteria1:="<=" & Format(SAMA_Date, "mm/dd/yyyy"), Operator:=xlAnd '============== TextBox1.Value = [C1].Value Sheets("Sheet2").Range("A1:B1").AutoFilter Application.ScreenUpdating = True End Sub ولكن يجب الآخذ في الاعتبار هذا السطر في الكود TextBox1.Value = [C1].Value حيث عند تغييرك للخلية الموجود فيها المعادلة يجب عليك وضع اسم الخلية الجديدة هنا في السطر السابق بدلا من [C1] الموجودة في الكود ارجو ان اكون وفقت في شرح الطريقة ويمكنك تنفيذها بسلاسة تقبل خالص تحياتي

الاخ الكريم / رائد تفضل المرفق به المطلوب ان شاء الله تقبل خالص تحياتي Book15-SAMA.rar

وايضا للعلم هذه الخاصية موجودة في 2007 وذلك من خلال الخيار ( تعقب التغييرات ) او ( Track Changes ) كما في الصورة التالية

السلام عليكم الاخ الكريم / ريان أحمد بارك الله فيك شاهد الملف المرفق ... جرب التعديل في الجدول في الشيت dd وشاهد النتيجة في شيت ( التعديلات ) تقبل خالص تحياتي Nouveau Feuille de calcul Microsoft Exce1l.rar

السلام عليكم ورحمة الله وبركاته من تنسيق تختار مخصص ومنها B2dd/mm/yyyy للخلايا المراد الكتابة بها التاريخ الهجري وإليك الملف به المطلوب. Book1.rar

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

كيف يمكنني عمل حساب على آوت لوك لأول مرة علماً ايميلاتي على غوغل هل من مساعد

السلام عليكم : الكود بالمرفقات هو للاستاذ : عبدالله باقشير حيث يقوم بنقل الغياب حسب رقم الموظف والتاريخ الى ورقة2 المشكلة ان الكود يعمل طالما كان رقم الموظف لا يتجاوز رقمان من(99:1) أما اذ تعدى رقم الموظف رقمان فان الكود لا يعمل أرجو التعديل على الكود ليشمل رقم الموظف المكون من 5 ارقام ترحيل غياب_جديد_5.rar

أخي العزيز / محمد عبارة إليك بعض التعديلات في الملف لعلها تفي بالغرض إن شاء الله والعفو سجل الدوام.rar

جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

السلام عليكم مرفق الملف و الكود و شرح خطواته ReplaceallInFolder.rar و يمكنك حذف الثلاثة أسطر الخاصة بكل رسالة اذا لم ترد ظهورها و هي التي تبدأ ب msgbox Sub ProcessAll() ' هذا الكود يقوم باختيار فاعدة البيانات التي تحوي كافة اكلمات المراد استبدالها ' ثم اختيار مسار المجلد الموجود به الملفات المطلوب استبدال الكلمات بها ' ثم استدعاء كود الاستبدال ليعمل عليها واحدا تلو الآخر Dim Wb As Document, sFile As String, sPath As String Dim itm As Variant Dim strFileNames, mydbpath As String Dim f As FileDialog ' اختيار قاعدة البيانات Set f = Application.FileDialog(msoFileDialogFilePicker) f.Show If f.SelectedItems(1) = "" Then MsgBox "يجب اختيار ملف الاكسيس الذي يحوى الكلمات المطلوب استبدالها " Exit Sub End If mydbpath = f.SelectedItems(1) MsgBox "سيتم الاستبدال بناء على الملفت الموجودة فى قاعدة البيانات التالية : " & _ Chr(10) & Chr(13) & mydbpath & Chr(10) & Chr(13) & _ " مع تحيات أوفيسنا " & Chr(10) & Chr(13) & "www.officena.net" ' اختيار مسار الملفات المطلوب التطبيق عليها Set f = Application.FileDialog(msoFileDialogFolderPicker) f.Show If f.SelectedItems(1) = "" Then MsgBox "يجب اختيار مسار المجلد الموجود به الملفات التي تريد التطبيق عليها " Exit Sub End If sPath = f.SelectedItems(1) & "\" MsgBox "سيتم الاستبدال لطافة ملفات الوورد فى المسار التالي : " & _ Chr(10) & Chr(13) & sPath & Chr(10) & Chr(13) & _ " مع تحيات أوفيسنا " & Chr(10) & Chr(13) & "www.officena.net" ' اختيار مستندات الوورد فقط ضمن الملفات الموجودة فى المجلد sFile = Dir(sPath & "*.doc") ' ثم استدعاء كود الاستبدال ليعمل عليها واحدا تلو الآخر Do While sFile <> "" strFileNames = strFileNames & "," & sFile sFile = Dir() Loop ' فتح الملفات و تشغيل كود الاستبدال عليها و احدا تلو الاخر For Each itm In Split(strFileNames, ",") If itm <> "" Then Set Wb = Documents.Open(sPath & itm) Call Replacedoc(mydbpath) 'استدعاء كود الاستبدال Wb.Close True End If Next itm End Sub [/sql] [sql] Sub Replacedoc(mydbpath As String) ' هذا الكود يقوم باستبدال كافة الكلمات فى الملف المفتوح طبقا لما ورد فى قاعدة البيانات المحدد اسمها و مسارها فى المتغير Dim doc As Document Dim db As DAO.Database Dim rs As Recordset Set doc = Application.ActiveDocument Set db = OpenDatabase(mydbpath) Set rs = db.OpenRecordset(Name:="Table1") While Not rs.EOF With doc.Content.Find .ClearFormatting .Text = rs(0) With .Replacement .ClearFormatting .Text = rs(1) End With .Execute Replace:=wdReplaceAll, _ Format:=True, MatchCase:=True, _ MatchWholeWord:=True End With rs.MoveNext Wend rs.Close db.Close End Sub ReplaceallInFolder.rar