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

الطريقة بخطوتين : 1- حماية النماذج والتقارير عن الفتح المباشر بواسطة الكود 2- تحويل المشروع الى mde هذا ما يخص ملف الواجهات والذي يهم المبرمج اما البيانات وقاعدة الجداول فهو الذي يهم المستخدم فلها طرق عدة في الحماية وغالبها ضعيف 1- اخفاء الجداول 2- تشفير الجداول 3- تحويل قاعدة الجداول الى sql

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

جرب هذا الملف ترتيب لكل صف salim.rar

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

كم سعره نشتريه ونوزعه على الحبايب

بسم الله الرحمن الرحيم الحمد لله و الشكر له اذي أنعم علينا بنعم لاتعد و لاتحصى ومن هذه النعم وجود هذا المنتدى القيم وانعم علينا بوجود هذه الزمرة المتميزة في المنتدى التي تعمل وتقدم الخير ولاتنتظر إلا الجزاء من الله عز وجل كافأهم الله بكل خير وأنعم علينا أيضا بوجود ساحر الاكسيل ومهندسه العالم العلامة والبحر الفهامة بمشيئة الله عبد الله باقشير وهو من أحب الناس إلى قلب اخيه الأستاذ / محمدي عبد السميع عبد الغني حفظه الله ورعاه وحفظ الجميع من كل سوء ......... آمين يارب العالمين وبعد : أقدم هذا العمل الفذ وهو عبارة عن تجميع لأكواد معينة والشرح لكي نحصل في النهاية على عمل ولا أروع منه في مجال أعمال الكنترول الخاص برجال التربية والتعليم وسنطلق على هذا العمل " درة أعمال الكنترول " بسم الله نبدأ أولا : عند تصميم أي برنامج لأعمال الكنترول نحتاج الى صفحة بيانات أساسية وفي هذه الصفحة نحتاج الى *** حساب العمر عند يوم واحد أكوبر من العام الدراسي القادم وتوجد معادلات كثيرة لكن أفضلها وأسهلها على الإطلاق هذه المعادلات =IF($E7<>"";DATEDIF($E7;$J$5;"Y");"") لحساب عدد السنوات =IF($E7<>"";DATEDIF($E7;$J$5;"Ym");"") لحساب عدد الشهور =IF($E7<>"";DATEDIF($E7;$J$5;"MD");"") لحساب عدد الأيام أما إذا كنت من هواة الأكواد فهذا الكود للبطل الهمام بضم الهاء وفتح الميم الأولى عبد الله ياقشير '============================================" ' دالة حساب العمر بالتقويم الميلادي تاريخ الميلاد Mydate_Birth التاريخ الذي تريد حساب العمر عنده Mydate اذا كان فارغا سيتم احتساب اليوم '============================================" Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now, Optional Y_M_D As String = "Y_M_D") Dim MyDate As Date Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, d As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then MyDate = Mydate_Now Else MyDate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(MyDate) Then D_1 = Day(MyDate): D_2 = Day(Mydate_Birth) M_1 = Month(MyDate): M_2 = Month(Mydate_Birth) Y_1 = Year(MyDate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then d = D_1 - D_2: M = 0 Else d = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D = "Y_M_D" Then kh_count_y_m_d = d & "d-" & M & "m-" & Y & "y" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = d End If End Function *** ونحتاج أيضا الخلية النشطة : وهي آخر حلية مكتوب فيها في آخر صف و تسهل لنا الوصول الى الصف الأخير الفارغ لإضافة بيانات أخرى إذا أردنا Sub nasheta() Dim U As Integer U = ActiveCell.Row Dim LastRow As Integer LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 If U = LastRow Then Range("B7").Select Else Range("B" & LastRow).Select End If ActiveWindow.View = xlNormalView End Sub ماعليك إلا أن تربط زر بهذا الكود وهذه هي Sub kh_Hidden() With Range("A2:A5") If .EntireRow.Hidden Then .EntireRow.Hidden = False Else .EntireRow.Hidden = True End If End With End Sub *** سنجتاج أيضا إلى Private Sub Worksheet_Activate() Set WW = Application.WorksheetFunction SS = WW.CountA(Range("B7:B1000")) + 6 EE = WW.CountA(Range("C7:C1000")) + 6 Application.ScreenUpdating = False Range("B7:Z1000").Sort [c7], xlAscending Range("B7:Z1000").Sort [D7], xlDescending For U = 7 To EE Cells(U, 4).NumberFormat = "yyyy/mm/dd" Next Range("B7:B1000").ClearContents [B7] = 1 [B8] = 2 Range("B7:B8").Select On Error Resume Next Selection.AutoFill Destination:=Range("B7:B" & EE) Application.GoTo [B7] 'Application.ScreenUpdating = True End Sub حساب العمر.rar حساب السن بالكود.rar كود اخفاء الصفوف.rar الخلية النشطة.rar طريقة ربط زر بكود اختر أي زر يعجبك منظره ثم اضغط عليه بيمين الماوس واختر نسخ ( copy) ثم حدد المكان الذي تريد اللصق فيه أو إنشاء الزر فيه واضغط بيمين الماوس واختر لصق ( past ) حرك الماوس في اتجاه الإطار الموجود حول الزر الذي لصقته ستظهر علامة الزائد و في كل اتجاه من علامة الزائد يوجد ايضا علامة زائد أخرى ثم اضغط بيمين الماوس واختر تعيين ماكر و ستطهر اسماء الماكروهات اختر الماكرو المطلوب ثم أوكي طريقة تحريك زر ملحوظه عند وجود علامة الزائد و في كل اتجاه منها يوجد ايضا علامة الزائد يمكنك الضغط بيسار الماوس وأنت مستمر بالضغط حركها إلى أي مكان جرب عمل ذلك واحمد الله *** سنجتاج أيضا الى كود يخفي عدد من الأسطر حتى نجصل عل أكبر مساحة ممكنه من الصفحة للرؤية و الكتابه بها وهذا هو الكود الخاص بذلك " كود الاخفاء" كود لعمل المسلسل أوتوماتيكي وهذ الكود سنضعه في حدث الورقة لكي يتم التسلسل بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية بدون الضفط على أية أزرار وسنضيف عليه كود لترتيب الطلاب حسب النوع أولا ثم ترتيب الطلاب تصاعديا بدون زر في نفس اللحظة وهذا الكود سنضعه في حدث الورقة لكي يتم الترتيب بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية وهذا هو الكود الخاص بذلك " كود التسلسل الاوتوماتيكي والترتيب الهجائي"

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

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

وجدت هذا الكود في احد المنتديات لعمل الرسالة بخط سميك bold أتمنى ان ينال اعجابكم Bold Message.rar

أخي الكريم لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه كلما وجدت الحماية وجد كسر الحماية ، وكلما وجد كسر للحماية وجدت حماية أفضل .. وما زالت وجهة نظري أن الإكسيل حمايته ضعيفة .. فقط يمكنك وضع باسورد للمصنف نفسه عند فتحه ..!

أبي الحبيب أبو يوسف وعليكم السلام ورحمة الله وبركاته أحبك الله الذي أحببتني فيه .. أسأل الله العلي القدير أن يجمعنا في الفردوس الأعلى من الجنة وأن يسعد أيامك وبلادك وتنزاح الغمة إن شاء الله

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

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

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

الامثلة المحولة دائما تشتمل على خلل فيصعب التعمل معها بسهولة لذا نسخت الكائنات الى قاعدة جديدة ، وغبرت مسميات الحقول الى الحروف الانجليزية حتى يسهل عليك دراسة وفهم الكود المسؤول عن عملية العد تفضل المثال بعد التعديل اتمنى ان يكون مطلوبك db17.rar الصفحة مفتوحة عندي من فترة وتفاجأت بالحلول المختصرة الرائعة لو كنت رأيتها قبل تقييم الحلول : عيسى = ممتاز الشمال = ممتاز مكرر ابو خليل = جيد

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

السلام عليكم اتمنى ان تكون هذه الاجابة صائبة 2جمع.rar

السلام عليكم أخي الكريم تفضل الإجابة في المرفق و أرجو أني وفقت للصواب جمع.rar

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

طيب هل فيه مشكلة إنك ترفق البرنامج لتجربته ومحاولة تقديم المساعدة بدلاً من الدخول في دائرة افتراضات واحتمالات .. طيب جرب السطر دا في حدث ورقة العمل ThisWorkbook.RefreshAll

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

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

مشكور أبو سليمان الحبيب على الرد الجميل بس بلاش تعرف السعر عشان ممكن تتخض (ولا أقولك اتخض وخلاص !! السعر حوالي 650 جنيه مصري) فينك بقالك فترة مش ظاهر على شاشات أوفيسنا ..خير اللهم اجعله خير ..لعل غيابك خير إن شاء الله تقبل تحياتي

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

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

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

شاشة البداية : لتغيير شاشة البداية الى صورة انت تختارها ، الصق الصورة بجانب قاعدة البيانات بشرطين : 1- امتداد الصورة يكون bmp 2- اسم الصورة يكون مثل اسم قاعدة البيانات بالضبط اما ايقونة المشروع : فلمستخدمي 2003 : ادوات / بدء التشغيل / رمز التطبيق وللاصدارات الاحدث اذهب الى ملف في الركن العلوي من الصفحة و ابحث في الخيارات

Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open (CurrentProject.Path & "\WrdfilName.doc") WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing طباعة ملف ورد.rar

بعد اذن استاذى زيزو العجوز استاذى الحبيب ابومهند جرب هذه الداله فى الخليه C2 واسحبها نزولا وسيتم قرائتها وقت وليس رقم =IF(ISNONTEXT(A2);"";IF(ISBLANK(B2);"بدون بصمة";IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(7;31;0);"";IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(8;1;0);1;IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(8;31;0);2;IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))>=TIME(8;31;0);"إجازة تراكم زمنيات")))))) جرب وعلمنى بالنتيجة تقبل تحياتى

تفضل بالتوفيق

تفضل تطبيق ماذكرته لك باضافة عمود لاستخراج اسم الشهر واصبح المعيار به ! بالتوفيق PreTest 1.rar

عليكم السلام اتفضل لعل هذا ما طلبت اضافة دوائر وحذفها معدل.rar

السلام عليكم ورحمة الله أخي الكريم، حسب ما فهمت من المطلوب تم عمله بوساطة المعادلات واحتاج ذلك إلى إضافة أعمدة مساعدة (خاصة في شيت "البيانات") والاستعانة بالنطاقات بالتسمية لأجل إنشاء قوائم منسدلة ديناميكية حسب الحالات ثم استعمال بعد الدوال لجلب البيانات المطلوبة في التقرير حسب الحالة مثل الدوال : INDEX و MATCH و OFFSET... أرجو أن يفي بالغرض المطلوب... بن علية تقرير حسب الحالة.rar

السلام عليكم ورحمة الله أخي الكريم لست أدري إن كنت قد فهمت المطلوب جيدا ولكني أقدم العمل التالي في المرفق مع تحفظ شديد (خاصة فيما يتعلق بالانحراف المعياري لأن له قانونين مختلفين -اختلاف بسيط-)... بن علية ‫مصنف 2.rar

السلام عليكم شاهد المرفق استدعاء_البيانات_111.rar

أخي الكريم مهند بالنسبة لموضوع الفورمات فأمره صعب ومعقد وعواقبه غير مضمونة .. نخشى أن يقوم أحدهم بتجربة الكود فينتهي كل شيء بالنسبة له ههههههه إليك حل آخر وهو حذف كل الملفات والمجلدات والمجلدات الفرعية في مسار محدد (قمت بالتجربة على فلاشة عليها ملفات غير هامة) Sub Clear_All_Files_And_SubFolders_In_Folder() Dim FSO As Object Dim MyPath As String Set FSO = CreateObject("Scripting.FileSystemObject") MyPath = "I:\" If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " Doesn't Exist", 64 Exit Sub End If On Error Resume Next FSO.DeleteFile MyPath & "\*.*", True FSO.DeleteFolder MyPath & "\*.*", True On Error GoTo 0 End Sub غير المسار I الموجود في الكود إلى المسار الذي ترغب في حذف الملفات والمجلدات به ، وأعلمنا بالنتيجة تقبل تحياتي

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

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

حمله يمكن عيجبك وتشتريه .. وساعتها متنساش توزعه ع الحبايب تقبل تحياتي

جرب الملف التالي عله يفي بالغرض Grouping Tabs Or Sheets YasserKhalil Officena.rar

السلام عليكم إخوتي الكرام: إصدار Windows 8 نظام تشغيل 64 بت لم تتوافق النسخة الكاملة معه مطلقاً ...فاضطررت إلى العمل على الـ Portable الذي يفتقد إلى الكثير من المكتبات بنظري أما الأوفيس 2007 حتى الآن بما أنني ضمن العمل فإنني أخاف أن تتضرر بعض البرامج عند الترقية ولذلك سأراوح مكاني حتى يقضي الله أمراً كان مفعولاً... والسلام عليكم.

اخى الحبيب السلام عليكم ورحمة الله اليك ما طلبت 1.rar

مجموعه من اعمال الاكسيل التى وفقنى الله فى تقديمها عام 2015 . نسال الله ان يتقبل منا ومنكم صالح الاعمال . تقبلوا تحياتى Mohamed Elrify . ----------------------------------------------------------------------- مكتبة اكسيل باللغه العربيه http://download-pdf-ebooks.net/49-1-library-books برامج مصممة بالاكسيل ------------------------------------------------------------------------ برنامج المصروفات الاصدار الثالث http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… ملف اكسيل حسابات عامه من قيود اليومية وحتى الميزانية http://www.mediafire.com/…/%D9%85%D9%84%D9%81+%D8%A7%D9%84%… اداره حسابات تكاليف مشاريع المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد المقايسة التقديرية لعملية مقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… برنامج احتساب اجور العماله في شركات المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد قائمة التدفقات النقدية بالطريقة الغير مباشره ل 4 فترات او سنوات بالاكسيل http://www.mediafire.com/…/%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF_%… برنامج توزيع فئات النقديه http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx جدول اعمار الديون http://www.mediafire.com/…/%D8%AC%D8%AF%D9%88%D9%84+%D8%A7%… دفتر الحضور بالاكسيل http://www.mediafire.com/…/%D8%AF%D9%81%D8%AA%D8%B1+%D8%A7%… صيغ متقدمة ------------------------------------------------------------------------ ابجدة الاسماء بالمعادلات http://www.mediafire.com/…/%D8%A7%D8%A8%D8%AC%D8%AF%D8%A9+%… الداله FORCAST والداله TREND http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D8%A8%D8%A4%D… دالة عد الاسماء بدون تكرار http://www.mediafire.com/…/%D8%B9%D8%AF+%D8%A7%D9%84%D8%A7%… دالة HYPERLINK http://www.mediafire.com/…/%D8%AA%D8%B9%D9%84%D9%85+%D8%AF%… انشاء مخطط تكرارى بالمعادلات. بدون انشاء رسم بيانى http://www.mediafire.com/…/%D8%A7%D9%86%D8%B4%D8%A7%D8%A1+%… دالة VLOOKUP بشرطين http://www.mediafire.com/…/%D8%AF%D8%A7%D9%84%D8%A9+VLOOKUP… الترقيم التلقائى بالاكسيل http://www.mediafire.com/…/%D8%AA%D8%B1%D9%82%D9%8A%D9%85+%… القيمة المستقبلية fv http://www.mediafire.com/download/14it43a76cnc7qj/fv.rar الداله LARGE و SMALL http://www.mediafire.com/…/%D8%A7%D9%84%D8%AF%D8%A7%D9%84%D… صيغه تقريب الربع الى اقرب واحد صحيح http://www.mediafire.com/…/%D8%AA%D9%82%D8%B1%D9%8A%D8%A8+%… دالة TRUNK http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx الرصيد التراكمى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D8%B1%D8%B5%D9%8A%D… استخراج البيانات او القيم بدون تكرار بخمس طرق مختلفه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… توليد سلسلة تواريخ http://www.mediafire.com/…/%D8%AA%D9%88%D9%84%D9%8A%D8%AF+%… استخدام دالة VLOOKUP , INDIRECT فى البحث فى العديد من الصفحات http://www.mediafire.com/downl…/oq5dho0m1ykq85o/vlookp_2.rar استخراج بيانات بشروط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D… دالة الجمع الشرطى من صفحات متعدده http://www.mediafire.com/…/%D8%A7%D9%84%D8%AC%D9%85%D8%B9+%… المجموع الفرعى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D9%85%D8%AC%D9%85%D… استخراج اى رقم سواء فى بداية او وسط او نهاية سلسله نصيه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… التقريب لاقرب 10 جنيها http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D9%82%D8%B1%D… حالة عملية لدالة VLOOKUP فى تحديد سعر صنف ضمن مجموعة اسعار لهذا الصنف http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… البحث عن اخر قيمة او نص فى عمود او فى صف حتى مع وجود فراغات http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D9%82%D9%8A%… استخدام الداله max , min بشرط http://www.mediafire.com/…/%D8%AF%D9%88%D8%A7%D9%84+MAX+%2C… البحث عن اخر سعر بناء على شروط كاسم الصنف او المنتج والعميل http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D8%B3%D8%B9%… تنسيق الارقام السالبة باللون الاحمر ووضعها بين قوسين http://www.mediafire.com/…/%D8%AA%D9%86%D8%B3%D9%8A%D9%82+%… حالة عملية متقدمه باستخدام الدالة VLOOKUP , MATCH , IFERROR https://www.youtube.com/watch?v=G5QV4V3OOt0 معامل الارتباط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D9%85%D9%84+%… دالة عد الالوان https://www.facebook.com/…/61…/%D8%A7%D9%8A%D9%85%D9%86.xlsm معادلة للتعامل مع التواريخ الهجريه http://www.mediafire.com/…/7e…/%D9%87%D8%AC%D8%B1%D9%89.xlsx المعادلة frequency https://www.facebook.com/download/441176896082998/aaa.xlsx مخططات استخدام الصور فى الرسم البيانى http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… مخطط بيانى لعرض البيانات الربع سنوية http://www.mediafire.com/download/39owukjsxx4nz41/CHART.xlsx موضوعات ------------------------------------------------------------------------ طريقة عمل نسخه احتياطية من ملف اكسيل https://www.youtube.com/watch?v=1xHS1snXRKs تحليل التعادل بالاكسيل 4 http://www.mediafire.com/…/%D8%AA%D8%AD%D9%84%D9%8A%D9%84+%… تحديد نقطة التعادل في حالة تعدد المنتجات http://www.mediafire.com/…/%D8%AA%D8%AD%D8%AF%D9%8A%D8%AF-%… أدوات التحليل ماذا لو ؟ pdf http://www.mediafire.com/…/%D8%A7%D8%AF%D9%88%D8%A7%D8%AA+%… أدوات التحليل ماذا لو ؟ excel file http://www.mediafire.com/…/%D9%85%D9%84%D9%81%D8%A7%D8%AA+%… فنون وأساليب التنبؤ بالاكسيل فيديو + pdf +excel files https://www.youtube.com/watch… ميزه وخاصية ممتازه وهى Flash Fill (تعبئة سريعة) https://www.youtube.com/watch?v=OZyrmcInZLU الجديد فى اكسيل 2016 http://www.mediafire.com/…/6vda4ed2a27qf…/New+EXCEL+2016.rar وفى النهاية نسال الله ان يعيننا على الاستمرار وان يوفقنا للخير صفحة خبير اكسيل صفحتى على الفيس بوك

test.rar

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

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

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

أخي العزيز / mohammadey1 بارك الله فيك وجزاك الله خير أكواد جميلة وبالنسبة لاستفسارك هناك فائدة لأستاذنا عبد الله باقشير وهي : قبل نسخ أي كود أولا قم بتحويل اللغة في شريط اللغة إلى اللغة العربية أي اجعل المؤشر يكتب باللغة العربية ثم انسخ الكود

السلام عليكم أخي obaid70 ، حياك الله في المرفق ستجد أنني قمت بتصميم 10 أزرار لطباعة الملفات العشرة التي تريدها الطريقة التي تضع بها اسم الملف المطلوب هي كما يلي ، لنقل أنك تريد عند الضغط على زر طباعة الملف الثاني أن تطبع الملف الذي اسمه obaid.doc ملف وورد والموجود في الدليل الرئيس لجهاز التخزين :C ، فتقوم بما يلي : 1. تدخل لوضع التصميم للنموذج 2. تضغط على زر الماوس اليمين فوق زر الأمر الملف الثاني وتختار الخصائص properties من الصندوق الذي سيظهر وثم ستظهر لك الصوورة التالية : وبعدها تختار لسان التبويب حدث event وتدخل إلى إجراء حدث عند النقر وحينها سيظهر لك الكود التالي : Private Sub doc2_Click() Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open "C:\file1.doc" WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing End Sub تغير اسم الملف فقط من file1.doc إلى obaid.doc وسيعمل معك البرنامج بإذن الله كما تود. تعمل نفس الشيء مع باقي الأزرار لتحدد أسماء الملفات التي تود طباعتها. مع الاحترام والتقدير DR_fix2.rar