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

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

بغد اذن اخي و صديقي بن علية حل اخر زيادة في اثراء الموضوع انظر الى الورقة Sheet2 العشرة الاوائل بكود salim.rar

أبي الحبيب أبو يوسف بارك الله فيك ..شكلك فنان تشكيلي (تشكيلي غير تشكي لي .. !!) مجهود رائع وتنسيق جميل .. ولكن انتبه كثرة التنسيقات في الملف من شأنها أن تجعل الملف كبير الحجم وثقيل في التعامل ، فلا تكثر منها تقبل وافر حبي وتقديري

السلام عليكم ورحمة الله ولإثراء الموضوع هذا كود من إبداعي ودن الرجوع لاي مصدر كود صغير جدا خفيف وسهل من 7 كلمات Dim MySh MySh = "KHMB" Sheets(MySh).Select يتم وضعة في حدث النقر علي زر الامر مرفق المثال KHMB الذهاب الي الشيت المحدد من الفورم.rar

أخي الكريم أبو حمادة قم بوضع الكود التالي في موديول عادي Sub ShowForm() UserForm1.Show vbModeless End Sub Sub UnhideAll() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Sheets Ws.Visible = xlSheetVisible Next Ws End Sub Sub HideAll() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Sheets Ws.Visible = xlSheetHidden Next Ws End Sub أنشيء فورم وعليه 4 أزرار أوامر وقم بتسمية الأزرار باسم cmdClose للإغلاق الخاص بالفورم ، وزر أمر باسم cmdSheet والذي من خلاله يمكنك التعامل مع ورقة العمل المكتوب اسمها على زر الأمر فيخفي أوراق العمل الأخرى ويبقى ورقة العمل فقط ، وزر الأمر cmdRename ويقوم بتسمية زر الأمر السابق المسمى cmdSheet (يغير عنوان الزر وليس اسم الزر) ، وأخيراً زر أمر cmdUnhide لإظهار جميع أوراق العمل وإليك الكود الذي يوضع في حدث الفورم 'Author : YasserKhalil 'Released : 25 - Dec. - 2015 'Use : This UserForm Enables You To Navigate To Specific Sheet ' Depending On cmdSheet Caption & Hide Other Sheets. '-------------------------------------------------------------------- Private Sub cmdSheet_Click() Dim Str As String, Ws As Worksheet, Bln As Boolean Str = cmdSheet.Caption On Error Resume Next For Each Ws In ThisWorkbook.Sheets Ws.Visible = xlSheetVisible If Str = Ws.Name Then Bln = True Next Ws If Bln = True Then For Each Ws In ThisWorkbook.Sheets If Ws.Name = Str Then Ws.Activate Else Ws.Visible = xlSheetHidden End If Next Ws Else MsgBox "There Is No Such Worksheet Name", 64 End If On Error GoTo 0 End Sub Private Sub cmdRename_Click() Dim StrName As String On Error Resume Next StrName = InputBox("Rename Previous Command Button", "Rename Button") If StrName <> "" Then cmdSheet.Caption = StrName On Error GoTo 0 End Sub Private Sub cmdUnhide_Click() Call UnhideAll End Sub Private Sub cmdClose_Click() Unload Me End Sub أعلم أني قد زدت عن الطلب ..فعذراً لكن الموضوع استهواني قليلاً فقمت بعمل الفورم الذي تراه بحيث يلبي حاجة من في حاجة إليه تقبل تحياتي Navigate To Specific Sheet By Command Button Name YasserKhalil.rar

الفكرة أخي الكريم السيفاني في الإعلان عن المتغيرات لا تكمن في أن يتم الأعلان عن كل متغير في سطر منفصل أو الإعلان عن كل المتغيرات في نفس السطر يمكن الإعلان عن الثلاثة متغيرات في سطر واحد ولكن يجب أن تكون كما ارفقت بالمشاركة الأولى أي يتم تحديد نوع كل متغير أما الخطأ الشائع الذي يقع فيه الكثيرون هو أن يتم الإعلان عن المتغيرات بهذا الشكل Dim c1, c2, c3 As Date هنا المتغير الثالث فقط هو الذي تم تحديد نوعه أما المتغير الأول والثاني فلم يتم تحديد نوعهما مما يترتب عليه أن يتعامل معهم المحرر أنهما من النوع Variant وليس من النوع Date أرجو أن تكون قد وصلت الفكرة

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

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

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

ما شاء الله عليك أخي رضا ، من وينك لك الوقت لكل هذه البرامج تفضل جعفر 316.students.accdb.zip

شكرا على الرد و لكن قصدي بقيام بإستعلام يشمل حقول الإسم و اللقب و الرتبة و جدول العطل لا ينجح الإستعلام و شكرا

أخي الكريم حامد (الغد المشرق) وربنا يستر وميحصلش إعصار بكرة وتطلع الدنيا برد وبرق ورعد ومطره وساعتها الشمس لن تشرق حدد النطاق A2:I2 ثم من التبويب Home روح لـ Conditioal Formatting أي التنسيق الشرطي انقر على الأمر New Rule من النافذة ثم ستظهر لكنافذة أخرى اختر منها آخر خيار ألا وهو Use a formula t determine which cells to format ضع المعادلة التالية في الحقل المسمى Format values where this formula is true =COUNTIF(2:2,A2)>1 انقر زر الأمر Format ثم ادخل على التبويب المسمى Fill واختر اللون المطلوب كما تريد أخيراً انقر أوك ثلاثة مرات .. إليك الملف المرفق بعد تطبيق الخطوات السابقة Highlight Duplicates In The Same Row Using Conditional Formatting.rar

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

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

تفضل يا سيدي نعمل ماكرو يشتغل عند تشغيل البرنامج ، ويجب ان يكون اسمه AutoExec ، هذا الماكرو نطلب منه تشغيل الوحدة النمطية Login_Form: . الوحدة النمطية Login_Form ، تقرأ قيمة الحقل Shall_I_Open من الجدول tbl_Shall ، فاذا كانت قيمته =-1 (True) ، فانه سيفتح النموذج frm_Log-n ، وإلا فانه سيفتح النموذج frm_Home : . عند اغلاق النموذج frm_Login ، فانه يغير قيمة الحقل Shall_I_Open من الجدول tbl_Shall ، الى القيمه =0 (False) . جعفر 314.form.accdb.zip

أخي الكريم حامد التوجيهات ليست قوانين صارمة إنما هي تسهل العمل بالمنتدى ليستفيد الجميع ويجد الباحث بغيته بسهولة بدون تعب لنفترض مثلاُ أن العنوان كما في موضوعك "كيف أتصرف في هذه المشكلات" .. ما مضمون الموضوع ؟ قد يكون الطلب هام وحيوي ومفيد للجميع ولكن عندما يغلق الموضوع لن يستفيد منه أحد سوى صاحب الموضوع فقط أما لو كان العنوان واضح مثلاً "تظليل الخلية عند تكرار اللجنة لنفس المراقب " ..عندما يبحث أحد الأعضاء عن موضوع التكرار سيكتب في البحث كلمة "تكرار" فيأتي الموضوع من ضمن نتائج البحث وقد يكون فيه الجواب الشافي والكافي لسؤاله دون أن يطرح موضوع جديد أرجو أن تكون الفكرة وصلت للجميع تقبل تحياتي

جزاك الله خيراً أستاذي ياسر لقد راجعت التعليمات ووجدت أني أخطأت في كثير من الأمور منها 1) كثرة طلباتي في مضوع واحد 2) عنوان الموضوع لم يوضح ما هو المطلوب 3) عدم تنسيقي للنصوص مما يسئ للشكل العام للمنتدي 4) عدم بحثي عن مثال لمشكلتي واستفساري عذراً أساتذتي

تمام - 100 % بعد الغاء حماية الورقة المعادلات اصبحت واضحة وبالامكان الاضافة والتعديل جزيت خيرا

جزاكم الله خيراً أساتذتي الأفاضل فعلاً نجحت واشتغلت علي أوفيس 2003

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

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

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

أخي الكريم حامد يرجى تغيير اسم الظهور للغة العربية بارك الله فيك إليك المعادلة التالية لتعمل على 2003 =IF(ISERROR(VLOOKUP(A20,'كشف توزيع اللجان'!A15:B39,2,FALSE)),"",VLOOKUP(A20,'كشف توزيع اللجان'!A15:B39,2,FALSE)) إذا لم تعمل معك المعادلة قم باستبدال الفاصلة العادية الموجودة بالمعادلة إلى فاصلة منقوطة وحاول تلحق نفسك أوفيس 2016 هو المستخدم الآن .. 2016 - 2003 =13 سنة (أعتقد كفاية كدا على 2003) والناس اللي بتقول إن 2003 خفيف فأقدر أقول إن النسخ الحديثة 2013 و 2016 خفيفة أيضاً أنا عندي جهاز 1 جيجا رامات وبروسيسور عادي وشغال 2016 عليه بشكل كويس جداً تقبل تحياتي

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب ياسر العربي عطرت المكان بمرورك الطيب وكلماتك العذبة ..الله ينور علينا وعليكم آمين...فما هذا إلا من عبق رياحينكم جزاكم الله خيراً..والسلام عليكم.

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

السلام عليكم ورحمة الله أخي الكريم، اكتب المعادلة بالشكل التالي: =INDIRECT(B2&4)*30% وبإذن الله يكون ما تريد... بن علية

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

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

اخي لا يوجد بالملف اي شئ وبعدين ملفات الxlsx لا تحوي اي اكواد ماكرو كفورمات او اكواد وغيرها حيث انها غير داعمة للماكرو تاكد من رفع الملف المطلوب

السلام عليكم ورحمة الله أخي الكريم يحيى، هذه نسخة أخرى للملف بعد الاستغناء عن العمود AE المساعد في شيت Data والتعديل على معادلات استدعاء البيانات لكل شركة والتي أصبحت معادلات صفيف (التي ربما تثقل عمل الملف) وهذا من مساوئ معادلات الصفيف... أخوك بن علية soi_2.rar

أخي الكريم أبو يوسف جرب الكود التالي عله يفي بالغرض Sub YasserReport() Dim Ws As Worksheet, Wf As Worksheet, Cel As Range Dim TN As Long, S As String, N As String, R As Long, C As Long Set Wf = Sheets("Final") Application.ScreenUpdating = False For Each Ws In Worksheets N = Ws.Name If N Like "Sheet*" Then For Each Cel In Ws.UsedRange.Offset(20, 1).Resize(, 41) If Not Cel.Row Mod 2 = 0 And Cel.Value <> 0 Then S = Ws.Cells(Cel.Row, 45) TN = Cel.Value N = Ws.Cells(19, Cel.Column) If S <> "" Then If N = "" Then N = Ws.Cells(19, Cel.Column - 1) R = 2 Do Until Wf.Range("A" & R) = S Or _ Wf.Range("A" & R) = "" And Wf.Range("B" & R) = "" R = R + 1 Loop C = 2 Do Until Wf.Cells(R, C) = N Or Wf.Cells(R, C) = "" C = C + 2 Loop Wf.Cells(R, 1) = S Wf.Cells(R, C) = N Wf.Cells(R, C + 1) = TN End If End If Next Cel End If Next Ws Application.ScreenUpdating = True End Sub إليك الملف المرفق .. لا تنسانا بدعوة بظهر الغيب تقبل تحياتي Grab Data From Sheets Colored In Red Or White YasserKhalil.rar

سؤال الاخ احمد كان كلمات متقاطعة ، فحاولت احلها من الكود ولما كود ADO ما وصلني مكان ، التجأت الى DAO بس ياريت تكمل الكود ، لأني اعتقد بأن الاخ أحمد عنده اسئلة لاحقه لسؤاله الاصلي ، وكودك حيكون اول خطوة للجواب التالي جعفر

الله ينور عليك karrar sabry إضافة بسيطة جدا للكود الذي تفضلت به.. بعد الرسالة لكي لا يحتفظ بالتاريخ الغير مساوي للعام Me.ax = ""

انت لما تحذف بيانات من جدول الطالب ، فتلقائيا سجلات الطالب في جدول الدرجة ينحذف. وين المشكلة؟ لوسمحت تعطيني اسماء الجداول جعفر

أخي الكريم مهند جرب الكود التالي عله يفي بالغرض - مع العلم أنه تم تقديم نفس الكود تقريباً في موضوعك السابق على هذا الرابط من هنا Sub SortData() Dim WS As Worksheet Dim LR As Long Set WS = Sheets("Sheet1") With WS LR = .Range("B" & Rows.Count).End(xlUp).Row - 1 .Range("B1:D" & LR).Sort Key1:=.Range("C1:C" & LR), Order1:=xlAscending, Header:=xlYes End With End Sub Sorting.rar

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

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

أخي الكريم ابن الملك (منقول أمير الإكسيل وخلاص) بارك الله فيك وجزاك الله خيراً على الموضوع الرائع والمفيد للجميع في انتظار المزيد من ابداعاتك .. لي ملحوظة صغيرة حاول تدي الموضوع حقه من حيث التنسيق والتفاصيل وكدا يعني بس خلاص

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

وعليكم السلام استعملت: ---------------------------------------------- 3. اعمل وحدة نمطية ، مثلا function make_shortcut() الكود يأتي هنا end function ثم اعمل ماكرو ، واطلب من الماكرو ان: شغل الكود make_shortcut شغل النموذج الفلاني ---------------------------------------------- فك المرفق في مجلد واحد ، وافتح البرنامج بطريقة عادية ، واغلق البرنامج ، سترى الاختصار على سطح المكتب ، ومن الان فصاعدا استخدمه للدخول لبرنامجك وكلما حذفت الاختصار ، سيتكون من جديد جعفر Export to Excel And Make Dektop shortcut.zip

صورة عن الطلبات

اختي ام عبدلله ملاحظة العلاوة دائمة يعني حلك صح منشان 9%

الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته أرفق لكم اليوم الإثنى عشر جزءاً للشرح الكامل لجميع دوال برنامج الإكسيل باللغه العربيه والذى وجدتة على أحد مواقع الإنترنت فقمت بتجميعة وتصنيفة وفقاً لطبيعة الدوال وهو شرح مبسط جداً أرجو أن يكون نافعاً للبعض منا وسوف أقوم بتحميلهم على عدة مرات كالتالى:- الجزء الخامس : دوال قواعد البيانات الجزء السادس : دوال الوقت و التاريخ الجزء السابع : الدوال الهندسية الجزء الثامن : دوال المعلومات الجزء التاسع : الدوال المنطقية الجزء العاشر : دوال البحث الجزء الحادى عشر : دوال النصوص الجزء الثانى عشر (والأخير) : دوال المكعب وعذراً على التأخير فقد كنت أقوم بتنزيل كل ملف على حده أرجو منكم الدعاء لوالدى رحمة الله عليه بالمغفرة أخوكم عيد مصطفى Database Functions.rar Date & Time Functions.rar Engineering functions.rar Information functions.rar Logistic functions.rar Search functions.rar Text Functions.rar Cubic functions.rar

الدخول الى اكسس 2007 - في اقصى اليمن يوجد شعار ماكروسوفت اوفيس - في الاسفل يوجد خيارات Access - قاعدة البيانات الحالية - عرض النموذج( اختيار نوع الفورم المطلوب )

هذا مثال من عملي لشكل الماوس عند ملامسة أزرار الأوامر قد تفيد لتجميل برنامجك ليس الموضوع جديد ولكن أغلبه لم اجد له مثال من قبل ولم التحيه جميعاً __________.rar

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

Dear Sir, May peace and God's mercy and blessings Have found it appropriate that I thank myself, as a large number of participants in this forum have thrown the file on the allegation. But unfortunately I did not find one I had a Turkish flag was something in the file, or even participated in the voting. I thank you and appreciation For owners of the site and the participants. السلام عليكم ورحمه الله وبركاتهقد وجدت انه من الواجب ان اقوم بشكر نفسي ، حيث ان عدد كبير من المشتركين في هذا المنتدي قاموا بتحميل الملف الخاص بمشاركتي. ولكن للأسف لم اجد احد قد تركي لي ماهو رايه في الملف ، ولا حتى شارك في التصويت. ولكم جزيل الشكر والتقدير لاصحاب الموقع والمشاركين.