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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...إخوتي الكرام السلام عليكم ورحمة الله وبركاته أحببت أن أعرض عليكم بعض إمكانيات الإكسيل الرائعة في تنسيق الأشكال في حال عدم توفّر الفوتوشوب أو البرامج الرسومية الأخرى ليظهر الملف بشكل أنيق ... حبث أنه يتمتع بجماليات في الخط والشكل وتناسق الألوان لكنه بعود على الملف بشيءٍ من البطء وزيادة حجم الملف .. الارتباطات التشعبية تظهر على شكل شفاف كقطرات الندى في صباح ربيعي مزهر..عند وضع المؤشر عليها تدلك على الورقة الهدف. راجياً من الله تعالى أن ينال إعجاب حضراتكم. اسم المستخدم :admin كلمة السر 123 ...بعض أوراق العمل محمية دون كلمة مرور ... والسلام عليكم ورحمة الله وبركاته. مكابس بلوك.rar

كود مهم جدا ولا يمكن الاستغناء عنه تحديد ارقام الخطأ لرسائل الاكسس فيمكن تعطيلها او ترجمتها Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue End Sub

السلام عليكم ورحمة الله تم عمل المطلوب في الخلايا الملونة بالأخضر... تم أيضا التعديل على معادلات كل من أعمدة (الطلاب الغائبون - نسبة أكثر من 75 % - نسبة 50 % إلى 75 %)... أرجو أن تفي الغرض المطلوب... أخوك بن علية حاجي الصفين الرابع والخامس الإبتدائي 2016-2017م.rar

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

يظهر ان عدد الخلايا المحددة اكبر من عدد الكومبوبوكس او الليست بوكس او اي نوع من الكونترول لتلافي الرسالة أضف هذه العبارة بعد كل الاسطر Dim On Error Resume Next

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

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

وجزيت خيراً بمثل ما دعوت لي أخي أبو يحيى ..جرب الكود مرة أخرى بعد التعديل

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 1 Then Range("c" & Target.Row) = Range("a" & Target.Row).Value * Range("b" & Target.Row).Value Else If Target.Column = 3 And Range("a" & Target.Row).Value <> "" And Range("a" & Target.Row).Value <> 0 Then If Range("b" & Target.Row) <> Range("c" & Target.Row).Value / Range("a" & Target.Row).Value Then Range("b" & Target.Row) = Range("c" & Target.Row).Value / Range("a" & Target.Row).Value End If End If End If End Sub

وعليكم السلام ورحمة الله Sub SUM_Each_Five_Cells() Dim ws As Worksheet Dim sh As Worksheet Dim ct As Long Dim nr As Long Set ws = Sheets("Sheet1") Set sh = Sheets("Sheet2") For ct = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 5 nr = nr + 1 sh.Range("A" & nr).Value = Application.WorksheetFunction.Sum(ws.Range("A" & ct).Resize(5)) Next ct MsgBox "Done...", 64 End Sub

سلمك الله والجميع من كل سوء اخي الكريم

وعليكم السلام اخي الكريم ياسر حسب معلوماتي البسيطة يمكن ذلك عن طريق هذه الدالة =MID(A2;1;4)&"/"&MID(A2;5;2)&"/"&MID(A2;7;2) ارجو ان يكون المطلوب Date.rar

انا عارفه المعلومه دى ميرسي ليك ولذوئك لكن لو قاعدة البيانات اتحولت لاى اصدار اقل من 2007 مش راح تشتغل علشان كده انا عملتها كلها اكواد علشام لو حد حب يحول لـ 2000 او 2003

فكرة أخرى ولربما تكون اسهل جرب بنفسك على جدولك مافي الصورة المرفقة مع إضافة التاريخ يدويا وانظر النتيجة

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

اشرح معادله من معادلاتك ايها العملاق في تركيب المعادلات بن عليه .. من فضلك

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

لقد وضعت لك جدولاً للاسم الاول (و لم استطع المتابعة لضيق الوقت) يمكنك المتابعة بنفس المعادلات انظر الى الورقة Salim حضور Salimوانصراف.rar

وعليكم السلام أخي الكريم محمد المهندس في الحقيقة بحثت عن حل بالمعادلات كبديل حيث أن الدالة SUMIF لا تعمل والملف مغلق .. وجربت SUMPRODUCT وجربت الدالة SUM ومعها IF في معادلة صفيف لعلها تؤدي بالغرض .. ورغم اختلاف المعادلات النتائج واحدة وصحيحة فقط إذا كان الملف مفتوح .. ولا يوجد أمامي سوى حل واحد لك وهو العمل بالأكواد .. حيث كود بسيط يمكن أن يحل المشكلة ، حيث يقوم الكود بدون أن تشعر بفتح الملف المغلق وإدراج المعادلات والحصول على القيم فقط للتخلص من المعادلات ثم إغلاق الملف .. كل هذا سيكون بضغطة زر واحدة فقط ، ولا أرجح أن يكون مع كل تغيير في الملف لأن الكود يقوم بفتح ملف آخر وإغلاقه وهذا قد يسبب بطء إذا تكرر في حدث تغير ورقة العمل .. بالتالي من وجهة نظري (ولعله توجد حلول أخرى والله أعلم) الأفضل هو اختيار الصرف المطلوب في العمود بالكامل وتنفيذ الكود مرة واحدة للحصول على النتائج فقط .. الكود مرفق به التعليقات لعلها تفيدك في فهم الكود لتستطيع التعديل عليه إذا أحببت في أي وقت Sub Test() Dim wb As Workbook 'إلغاء تحديث الشاشة لتسريع الكود Application.ScreenUpdating = False 'فتح المصنف الخاص بالمخزن للحصول على النتائج المطلوبة Set wb = Workbooks.Open(ThisWorkbook.Path & "\مصنف المخزن.xlsx") 'وضع المعادلات في النطاق في العمود الأول ثم الحصول على القيم فقط With ThisWorkbook.Sheets(1) With .Range("A3:A" & .Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=SUMIF('مصنف المخزن.xlsx'!الجدول1[النوع],[الصرف],'مصنف المخزن.xlsx'!الجدول1[المبلغ])" .Value = .Value End With End With 'إغلاق المصنف الخاص بالمخزن بدون حفظ التغييرات wb.Close False 'إعادة تفعيل خاصية تحديث الشاشة Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله انسخ الكود التالى والصقه فى موديول واربطه بالزر المتاح فى الورقة Sub Counter() Dim x As Integer x = Range("B1") x = x + 1 Range("B1") = x End Sub

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

اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub واليك قاعدة بياناتك بعد تعديل invoice.rar

السلام عليكم هل ممكن كود بدل المعادلة اطبقه على عمود ما في اكتر من شيت بارك الله فيكم

‏22‏/1‏/1435هـ الموافق ‏25‏/11‏/2013م السلام عليكم و رحمة الله وبركاته في المرفق ملف نظم اصدار وطبع الشيكات لعدة بنوك وعدة حسابات في اولو رقة بالملف نموذج تحرير الشيكات في نموذج تحرير الشيكات عملية الإدخال كالتالي: 1 التاريخ: ادخل التاريخ للشيك وهومثبت على تاريخ اليوم حاليا ويمكنك تغييره 2- حرر في: ادخل مكان تحريري الشيك او اختاره من القائمة – اذا ادخلت اسم مكان جديد سوف يتم اضافته للقائمة عند طباعة الشيك 3- رقم الحساب: يمكنك استخدام هذه الخانة او تجاهلها - - تستخدم هذه الخانة في حالة يكون لديك اكثر من حساب في نفس البنك – يقوم البرنامج باضافة رقم الحساب الى اسم البنك للتأكد من حصولك على معلومات دقيقة 4- رقم الشيك: تقوم بادخال رقم الشيك وبعد كل عملية طباعة يقوم البرنامج بزيادة الرقم 1 ليصبح متسلسل - - اذا اخلت رقم شيك متطابق مع اسم بنك سبق اصدارة يعطيك رسالة تحذيرية بذلك 5- اسم المستفيد: أي اسم الشخص الذي يظهر على الشيك – يمكنك اختياره من القائمة اذا سبق اصدار شيك له - - و يمكنك البحث عن أي جزء من اسم الشخص وتظهر نتائج البحث في القائمة المنسدلة - - مثال: اذا كتبت في خانة اسم المستفيد: عبد سوف يظهر لك في القائمة كل من يوجد في اسمهم عبد مثل عبدالله وعبدالرحمن وغيرها وتختار منها الإسم الذي تريد 6- المبلغ و التفقيط: بمجرد ادخال المبلغ في خانته يتم التفقيط بجوار المبلغ 7- الإيضاح: يوجد نوعين من الإيضاح ايضاحات تظهر على الشيك وايضاحات تحفظ لديك مع بيانات الشيك ولا تطبع على الشيك - - وايضا الإيضاحات يوجد لدينا ايضاحات تتكرر دائما لذلك يقوم الملف بحفظ الإيضاحات الغير مكررة و يمكنك البحث عنها بواسطة بأي جزء بنفس طريقة البحث عن الإسم. يتم عمل ورقة جديدة لكل اسم بنك جديد وتنسق الورقة بما يتناسب وطباعة الشيك ورقة الحفظ و البحث: بعد كل عملية طباعة يتم حفظ بيانات الشيكات هنا ويمكنك البحث عن أي معلومة من هنا من تاريخ و الى تاريخ – او – تختار اسم البنك المطلوب – او – أي معلومة اخرى من رقم الشيك او مبلغ او ايضاحات او اسم مستفيد آمل ان يكون به ما طلبت Shiqشيكات01.rar

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

Test5.rar اخي الكريم ارجو ان يكون هذا هو الحل الذي تريده لا تنسونا من خالص الدعاء

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

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

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