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

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

شرح الأكسس 2010 مايكروسوفت اوفيس اكسس الجزء (1)

هذه الملفات مصدرها صفحة زميلنا م/ طارق حنيدق علي الفيسبوك إسم صاحب الملف موجود بالملفات م/محمود الشاذلى رابط التحميل http://www.gulfup.com/?3SZpyj ملفات اكسل مهمه لادارة مشروعات.rar

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

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

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

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

استاذي الفاضل / عبد الموجود بارك الله فيك اما التعديل رقم 1 و 2 لا اشكالية في تغييرهما ولكن التعديل رقم 3 و 4 و 6 تحتاج الى مجهود في التعديل!!! والافضل عمل شيت من جديد لهذه المرحلة (وباذن الله سيكون هذا العام الدراسي المقبل ) بعد الاشتراك معك لمعرفة بعض المعلومات عن هذه المرحلة!!!! ولكن ممكن سؤال هل هذه المراحل تختلف في اقسامها وعدد موادها مثل الصنايع ام لا ؟!!

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

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

السلام عليكم بعد اذن اخى الحبيب والمعلم الكبير حمادة عمر مرفق الملف ترحيل_W.rar

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

السلام عليكم حل هذه المشكلة هنا http://www.officena.net/ib/index.php?showtopic=53564&p=337282 يعنى عند وضع هذا الكود لن يعمل المف ولن تظهر شاشة الإكسل إذا كانت وحدات الماكرو معطلة

السلام عليكم أخى ابراهيم جرب الكود التالى Sub ragab() Dim FilePath As String Dim fName As String Application.ScreenUpdating = False Range("A:A").Clear FilePath = ActiveWorkbook.Path & "\" fName = Dir(FilePath & "*.xls") Do While Len(fName) > 0 Range("A1") = "أسماء الملفات" x = Left(fName, Len(fName) - 4) If x = "الرئيسية" Then GoTo 1 Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = x ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Rows.Count).End(xlUp), Address:=fName, _ TextToDisplay:=Range("A" & Rows.Count).End(xlUp).Value 1 fName = Dir Loop Sheets("Sheet1").Range("A:A").Font.Size = 14 Columns("A:A").Columns.AutoFit Application.ScreenUpdating = True End Sub Hyperlinks.rar

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

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

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

بسم الله الرحمن الرحيم وبه نستعين الساده الزملاء السلام عليكم ورحمته الله وبركاته بناءا على طلب الاستاذ الفاضل أخى // الدهشورى باستخراج تاريخ الميلاد والسن والنوع من الرقم القومى فى الالفيه الجديدة http://www.officena.net/ib/index.php?showtopic=53559 وبناءا على رد السيدة الفاضلة الاستاذة الست // أم عبدالله أمد الله فى عمرها وبارك فيها اتشرف بعرض الموضوع التالى حساب سن الطالب فى اول أكتوبرمن كل عام اعتبار من مواليد 2000 وحتى مواليد 2199 أعطانا الله واياكم الصحة والعافية وطول العمر وعلى الاجيال القادمه التعديل الى ماشاء الله من القرون تقبلوا وافراحترامى وتقديرى وجزاكم الله خيرا

تفضل أخى ماطلبت تقبل تحياتى مقارنة جدوليين وإخراج المختلف.rar

جزاكم الله خيرا

عمل رائع وشكرا للقائمين على هذا العمل

بارك الله فيك اخي الكريم تقبل خالص تحياتي

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

مرور طيب وكريم من اخ كريم تقبل خالص تحياتي اخي الكريم / رائد

بالنسبة لتحديد شيت اعمال السنة اخي الكريم استبدل السطر التالي الموجود في الكود Range("A11:Y1000").Copy بهذا السطر .... لتحديد شيت ( اعمال سنة ) Sheets("اعمال سنة").Range("A11:Y1000").Copy وعذرا ع التأخر في الرد ... نظرا لانشغالي في العمل تقبل خالص تحياتي

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

السلام عليكم الاخ الكريم / baselnagar بارك الله فيك علي حسب فهمي لطلبك ... انك تريد تجميع البيانات الموجودة في ملفات المدارس من الكشوف في كشف واحد اسفل بعض في ملف تجميع وان كان كذلك ... شاهد المرفق التالي ( ولكن تم التنفيذ علي مدرستين فقط كمثال (( الحرية 1 - الحرية 2 )) حاولت تقديم ابسط كود ممكن لتنفيذ الفكرة ليمكن التعديل عليه بسهوله ... ارجو ان يتناسب مع طلبك قم بفتح ملف ( تجميع ) ثم اضغط علي زر ( تجميع البيانات ) وشاهد النتيجة ** ملحوظة : يجب ان يكون ملف تجميع في نفس الفولدر مع المدارس كما هو مرفق بالمرفقات تقبل خالص تحياتي شاهد المرفق المدارس.rar

الدرس السابع- اكسيس 2010 (كيفية عمل فورم في الاكسيس )

الدرس السادس- اكسيس 2010 (العلاقات بين الجداول في الاكسيس)

الدرس الخامس اكسيس 2010 - مفهوم المفتاح رئيسي وكيفية تطبيقه عمليا

الدرس الرابع - اكسيس 2010 كيفية اضافة اكثر من جدول في الاكسيس

الدرس الثالث - اكسيس 2010 (كيفية إضافة جدول جديد في الاكسيس باستخدام Design View)

الدرس الثاني- اكسيس 2010 (كيفية إضافة جدول جديد في الاكسيس) باستخدام Data Sheet View

الدرس الأول - اكسيس 2010 (التعرف علي برنامج الاكسيس وكيفية إضافة ملف جديد)

شرح الأكسس 2010 مايكروسوفت اوفيس اكسس الجزء (3)

شرح الأكسس 2010 مايكروسوفت اوفيس اكسس الجزء (2)

السلام عليكم و رحمة الله و بركاته جزاك الله كل خير

كود لادراج اسماء أوراق العمل الموجودة بملف اكسل ( ادراجها مع عمل ارتباط تشعبي لها ) Option Explicit Sub ListAllSheets2() Dim sht As Worksheet Dim i As Integer i = 2 For Each sht In Worksheets i = i + 1 ActiveSheet.Hyperlinks.Add _ anchor:=Cells(i, 2), _ Address:="", _ SubAddress:=sht.Name & "!a1", _ TextToDisplay:=sht.Name Next sht End Sub ارتباط تشعبي.rar

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

السلام عليكم ورحمة الله أخي الكريم، المعادلات المقترحة في الرد السابق فيها بعض الخلل (باعتبار أن المعادلات لا يجب أن تحوي أكثر من 256 حرف) لذا تم تصحيح هدا الخلل بوضع تسميات جديدة (لتبسيط المعادلات وتكون سهلة للفهم) لكل مادة على حدة (6 تسميات من CEL1 إلى CEL6) مع إضافة الشرط الجديد (الغياب في المادة) ثم وضعت تسمية شاملة CELLULE وهي ربط التسميات السابقة بالترتيب بوساطة الدالة CONCATENATE وهي التسمية استعملت في المعادلة الأخيرة... كل ذلك في الملف المرفق... أتمنى هذه المرة أن تكون المعادلات مفهومة... أخوكم بن علية استخراج مواد الرسوب داخل خلية واحدة_2.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حل أخي الكريم "أحمد زمان" بارك الله فيه وفي علمه، هذا حل آخر (تقريبا بالمعادلة نفسها) لكن استعملتها بالنسمية "CELLULE" لتبسيط المعادلة التي تعطي النتيجة المرجوة... تحد كل ذلك في الملف المرفق... أخوكم بن علية استخراج مواد الرسوب داخل خلية واحدة.rar

وعليكم السلام و رحمة الله وبركاته استخراج مواد الرسوب داخل خلية واحدة.rar

كود غلق الملف الغير نشط بعد مدة من الزمن 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

الاخ الحبيب ابو نصار بارك الله فيك هذا كود ادراج ساعة رقمية في خلية او فورم يعني بثلاثة طرق clock in userform .rar

السلام عليكم هذا كود رسالة ترحيب مع تاريخ اليوم هجري وميلادي هذا لقراءة الكود عند فتح المصنف Private Sub Workbook_Open() Call MACRO15 End Sub وهذا هو الكود Sub MACRO15() Dim thedate As String, thetime As String, greeting As String, fullname As String, firstname As String, ali As String Dim spaceinname As Integer, abood As String, alidroos As String, MY As String, thkr As String, thedat As String VBA.Calendar = vbCalGreg thedat = Format(Date, "long date") VBA.Calendar = vbCalHijri thedate = Format(Date, "long date") thetime = Format(Time, "medium time") abood = "التـاريخ هجري" ali = "التاريخ ميلادي" alidroos = "السـاعه" thkr = "لاتنسـى ذكــر الله" MY = "مع تحيـات أبو نصـار maicl2010ye@gmail.com" Select Case Time Case Is < TimeValue("12:00"): greeting = "السـلام عليكم صبــاح الخير" Case Is >= TimeValue("12:00"): greeting = "السـلام عليكم مســاء الخير" Case Else: greeting = "تصبح على خير" End Select fullname = Application.UserName spaceinname = InStr(1, fullname, "", 1) If spaceinname = 0 Then spaceinname = Len(fullname) firstname = Left(fullname, spaceinname) greeting = greeting MsgBox abood & thedate & vbNewLine & "=====================" & vbNewLine & vbCrLf & ali & thedat & vbNewLine & "=====================" & vbNewLine & vbCrLf & alidroos & thetime & vbNewLine & "=====================" & vbNewLine & vbCrLf & thkr & vbNewLine & "=====================" & vbNewLine & vbCrLf & MY & vbNewLine & "====================================" & vbNewLine, vbInformation, greeting End Sub وهذا المرفق والسلام عليكم كود رسالة ترحيب (التاريخ-الوقت-ملاحظات اخرى).rar

الاخ الحبيب "ابو الحارث" بارك الله فيك ...كود جميل من اخينا الحبيب "كيماس" و هذا كود اخر لتعطيل الحفظ باسم Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If booAllowSave = False Then Cancel = True MsgBox "لا يمكنك الحفظ...", vbOKOnly, "منع الحفظ" End If End Sub Private Sub Workbook_Open() booAllowSave = False End Sub و هذا كود لتعطيل الاجراء للحفظ استثناء اذ انه لايمكن حفظ الكود داخل الملف و الدالة شغالة 'كتابة الكود في module Global booAllowSave As Boolean Sub yourSavefunction() booAllowSave = True MsgBox "الحفظ جار...", vbokayonly, "تمكين الحفظ" Application.Dialogs(xlDialogSaveAs).Show booAllowSave = False End Sub DisableSaveAs.rar

كود منع خاصية اللصق و اللصق الخاص Paste & Paste Special عن نطاق محدد يفيد هذا الكود إذا كان عندك نطاق معين يحتوي على صلاحيات أو قوائم منسدلة مثلاً و لا نريد أن يقوم المستخدم بالخطأ بلصق قيم أخرى فيها الكود طبعاً يمنع هذه العملية سواء من خلال الماوس أو من خلال لوحة المفاتيح الملف في المرفقات منع اللصق و اللصق الخاص عن نطاق معين.rar

السلام عليكم كود لاظهار واخفاء الاعمدة امر واحد يعكس العملية وممكن استخدامه في اكثر من خاصية مشابهة Sub kh_Hidden() With Range("F1,K1,P1,U1,Z1") .EntireColumn.Hidden = Not .EntireColumn.Hidden End With End Sub

اسم البرنامج : Employs رقم الاصدار : 4.0 اسم المبرمج : almaistro وصف البرنامج : البرنامج عبارة عن قاعدة بيانات للموظفين يسجل فيها كل بيانات الموظفين ، مع دعم تعددية المستخدمين وقد تم عمل حماية كاملة للبرنامج بحيث لا يمكن لاى مستخدم الاطلاع على قاعدة بيانات البرنامج ولا شاشة البرنامج الرئيسية إلا بعد تسجيل الدخول للبرنامج من خلال الاسم وكلمة المرور الخاصة بكل مستخدم . مزايا البرنامج : - تستطيع عمل نسخ احتياطى للبيانات (اختيارى) - تستطيع ايضا وضع شاشة دخول للبرنامج (إجبارى فى هذا الأصدار لإحتياطات أمنية) - تستطيع حفظ واسترجاع قاعدة البيانات (اختيارى) - تستطيع حفظ صورة لكل موظف مع تشفير الصورة ووضعها بملف خارجى - تستطيع طباعة وصرف المرتبات لكل فرع (جديد) - تستطيع تسجيل الحضور والانصراف لكل موظف(جديد) - تستطيع إستعراض حضور موظف خلال فترة مع حساب اجرة الاضافى(جديد) - تستطيع صرف الاجر الاضافى لكل فرع على حده (جديد) - تستطيع إضافة مستخدمين للبرنامج مع تحديد صلاحية كل مستخدم على حده (جديد) - تستطيع مراسلة جميع المستخدمين من خلال إرسالة رسالة للمستخدم من داخل البرنامج وتحفظ داخل قاعدة بيانات البرنامج ، يستطيع رؤيتها المستخدم عند تسجيل دخولة للبرنامج (جديد) - تستطيع تغيير كلمة المرور من خلال النموذج الخاص بذلك وهذا خاص بالمستخدمين (جديد) - إمكانية عرض معلومة مفيدة حول طريقة التعامل مع البرنامج (أختيارى) - (جديد) - إمكانية تسليف وإقراض الموظفين من خلال نموذج أُعد لذلك مع تحديد المبلغ المراد إقراضة للموظف ومدة الأقساط (جديد) - إمكانية تسجيل عقوبة على الموظف من خلال الخصم من الراتب الاساسى (جديد) واشياء اخرى اكتشفها بنفسك ،،، صلاحيات الدخول للبرنامج : اسم المستخدم : almaistro كلمة المرور : all الصلاحية : General اسم المستخدم : arafa كلمة المرور : arafa الصلاحية : Limited اسم المستخدم : user كلمة المرور : user الصلاحية : Review Only نسألكم الدعاء EMP4.0.rar

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