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

الأعضاء الأعزاء أسعد الله أوقاتكم بكل خير بعد انتهاء دورتنا " إكسيل 2013 المستوى المتقدم" (تجدون روابطها بالأسفل) يسرني أن أقدم لكم كتاب الدورة بصيغة PDF حيث تم التطرق لكافة مواضيع الدورة في هذا الكتاب. وأتمنى أن ينال اهتمامكم واعجابكم ] رابط الكتاب إكسيل 2013 المستوى المتقدم - دورة في كتاب يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير أخوكم م/نضال الشامي Google+

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

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

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

وعليكم السلام لا يمكن عمل Combobox في نموذج مستمر ، معتمد على Combobox آخر ، فهناك من يعتقد انه احد العيوب في الاكسس التي لم يتم اصلاحها جعفر

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

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

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

السلام عليكم ورحمة الله اقتراح للمعادلة: =INT((COLUMN()-1)/ROW())+1 بن علية

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

أخي الكريم كريم اطلع على النطاقات المسماة من خلال التبويب Formulas ثم Name Manager ... ستجد أن الصوة تم عمل تسمية لها في صندوق الاسم بنفس الاسم ..اطلع على المعادلة... شوف الـ Data Validation ثم List لتعرف مصدر القائمة المنسدلة تقبل تحياتي

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

السلام عليكم إخواني الكرام أثناء تجوالي في مواقع الانترنت وجدت برنامج اسمه VBA Time Saver Kit فكرة البرنامج أنه يقوم بتخزين أكواد الـ VBA .. ويمكن البحث من خلاله بسهولة عن الكود المطلوب .. أعتقد أنه يمكن أن يكون نواة لمكتبة كبيرة نساهم جميعاً في إثراء تلك المكتبة .. لمن لديه خبرة في التعامل مع مواقع الانترنت والشراء من خلالها ويستطيع أن يقوم بشراء البرنامج حوالي 15 دولار فليتقدم ويتبرع إذا كان بإمكانه وبعد الشراء طبعاً عارفين ..كل الوطن العربي هيستخدم البرنامج اللي هيتم شرائه ..بس خلاص تقبلوا وافر تقديري واحترامي

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

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

كما هو في العنوان وأنا في آخر سجل أريد عند الضغط على زر معيّن ليكن f6 مثلاينتقل للسجل الذي يسبقه مباشرة ويحذفه db1.rar

أخي الحبيب محمد علي الطيب بارك الله فيك وجزاك الله كل خير على إحياء التراث والكنوز المدفونة إنه حقاً ملف رائع وجميل هل أثني على الملف والموضوع وأكتفي ؟؟! بالتأكيد لن يرتاح قلبي أبداً طالما لم أدلي بدلوي (قول مأثور من العربي) دعنا نحلل الملف بحيث يستفيد منه إخواننا الكرام في المنتدى (سيكون التحليل في نقاط) --------------------------------------------------------------------------------------------------- ** يعجبني دائماً أن تكون الجملة التالية في بداية كل موديول .. Option Explicit والتي من شأنها تجبر المبرمج على الإعلان عن المتغيرات وهو أمر مستحب وأنا عن نفسي أفضله ** تم الإعلان عن الـ API في بداية كل فورم بهذا الشكل Private Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Dim MYPATH وتكرر نفس الإعلان في الفورم الثاني السؤال : لما التكرار .. ؟؟!!! هل فكرنا للحظة أنه يمكن الاستفادة من الإعلان بشكل عااااااااااااااام Public؟ ماذا لو أردت أن أضيف فورم أخرى وأريد فيها نفس الإعلان ..هل سيتحتم علي أن أقوم بالإعلان في كل فورم على حدا ..إنه لأمر مرهق !! ألستم توافقونني الرأي في تلك النقطة الحل : أن نقوم بالإعلان مرة واحدة فقط ..كيف سيتم ذلك؟ يتم ذلك في بداية أي موديول ونستخدم كلمة Public بدلاً من Private لأنه سيصبح إعلان عااااااااااااااااام وليس خاااااااااص بالفورم فقط كما يتم الإعلان عن المتغيرات المستخدمة في الموديول باستخدام كلمة Public أيضاً ليصبح الإعلان بهذا الشكل (يوضع في بداية الموديول) Public Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Public MYPATH ولكن مهلاً ..ماذا عن أصحاب النطام المنتشر 64 بت ...حتماً ستواجههم مشكلة في العمل على الملف .. لابد أن نراعي جميع الأطراف .. المهم للتعديل ليصبح الكود يعمل على كلا النظامين 32 بت و 64 بت سيتم التعديل على الإعلان .. وإضافة المتغيرات الأخرى التي ستسبب أخطاء في حالة عدم الإعلان عنها #If VBA7 Then Public Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long #Else Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long #End If Public myPath As String Public SoundFile, Result أخيراً انتهينا من تلك النقطة إليكم الملف المرفق بعد عمل التعديلات .. ليتناسب مع مستخدمي الـ 32 بت والـ 64 بت .. تقبلوا تحياتي Add Sound To CommandButton On UserForm.rar

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

ههههه الجو اتظبط شويه اخرج ياريس ولف براحتك

أخي الكريم يرجى تغيير اسم الظهور للغة العربية تفضل الملف المرفق التالي وقم بدراسته جيداً ..فيه أمثلة متعددة لاستخدامات الدالة VLOOKUP داخل الـ VBA .. كنت من فترة قد اطلعت على مقالة فيها هذه الأمثلة وقمت بتطبيقها على ملف مرفق ... إن شاء الله يفيدك الملف تقبل تحياتي VLOOKUP In VBA With Examples YasserKhalil.rar

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

السلام عليكم هنا كانت لي مشاركة في منتدى الفريق العربي للبرمجة ، وبها احد الاقتراحات: http://arabteam2000-forum.com/index.php?/topic/291451-ربط-النماذج-الفرعيه/&do=findComment&comment=1393460 جعفر

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

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

أظن أنه لا يمكن ذلك مع النماذج المستمرة

أخي الفاضل كريم بارك الله فيك وجزيت خيراً على فكرتك الطيبة .. أعتقد أن هناك الكثير يستطيعون الإطلاع على الموقع من خلال الموبايل .. ويتابعون المنتدى وموضوعاته

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

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

السلام عليكم ورحمة الله وبركاته .. وجدت هذا المثال في احد المواقع رفعته لكم للفائدة تقبلوا تحياتي .. Picture Lookup in Excel.rar

استعلام1 gdf.rar

Database1.rar شكرا ليكم جميعا علي محاولة المساعدة

السلام عليكم 1. بعض الاوقات الحفظ بصيغة ثانية ما يصير ، فالطريقة الاخرى لعمل هذا ، هو ان تعمل قاعدة بيانات جديدة بالصيغة اللي تريدها ، ثم تستورد كائنات البرنامج الاخر الى برنامجك الجديد 2. ها ، لا تقولون ما كان لي دور في عمل البرنامج المرفق بصيغة mdb . جعفر BackUp-delete-Control.zip

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

تفضل اخي لعله المقصود على ما فهمت من المرات السابقة قم بعمل StartTimer وقم بنسخ الجداول عادي حتى اخر جدول ولا تزيد اي جداول اخرى غير الاساسية YASSER.rar

جرب الكود التالي عله يفي بالغرض Sub HideEmptyRowsAndColumns() Dim X As Long, LR As Long With Application .ScreenUpdating = False Columns.Hidden = False: Columns.Hidden = True For X = 1 To Columns.Count If .WorksheetFunction.CountA(Columns(X)) > 0 Then Columns(X).Hidden = False Next X LR = Cells.SpecialCells(xlCellTypeLastCell).Row Rows(LR + 1 & ":" & Rows.Count).Hidden = True For X = 1 To LR If .WorksheetFunction.CountA(Rows(X)) = 0 Then Rows(X).Hidden = True Next X Application.Goto Range("A1"), True .ScreenUpdating = True End With End Sub

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

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

اليك اخي مثال من الاكسل مثال.rar

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

جرب هذا الملف اعتذر اخي ياسر لم ار مشاركتك الا بعد التحميل Ages.rar

أخي الكريم محمد ماهر ضع التاريخ الذي سيتم احتساب تاريخ الميلاد على أساسه في أي خلية وليكن E1 وروح لصندوق الاسم اللي على شمال شريط المعادلات .. وسمي الخلية دي Start_Date واضغط إنتر من لوحة المفاتيح لتأكيد اسم الخلية ضع تاريخ ميلاد الطالب في الخلية A1 مثلاً ثم ضع المعادلة التالية في الخلية B1 لحساب الأيام =IF(A1="","",IF(DAY(Start_Date)<DAY(A1),DAY(Start_Date)+30-DAY(A1),DAY(Start_Date)-DAY(A1))) ثم ضع المعادلة التالية في الخلية C1 لحساب الشهور =IF(A1="","",IF(A1>1,DATEDIF(A1,Start_Date,"ym"),"")) ثم ضع المعادلة التالية في الخلية D1 لحساب السنوات =IF(A1="","",IF(A1>1,DATEDIF(A1,Start_Date,"y"),"")) إذا لم تعمل معك المعادلات استبدل الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

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

السلام عليكم ورحمة الله تفضل أخي أتمنى يكون المطلوب حيث احتسبت التاريخ على تاريخ اليوم calcule(2)------.rar

انا ارجح رأى الاستاذ عبد الفتاح جدول الموظفين الذى يحتوى على بينات الموظف يتم تحديثه بناء على الترقية وفى هذه الحلة يتم تحديث الحقول الاتية الدرجة الوظيفية وتاريخ الحصول على الدرجة ورقم قرار الترقية ☺

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

1- مستحيل احد يتريق عليك ... لاننا كلنا هنا لنتعلم .... 2- لو ترفق مثال بسيط ليتمكن الاخوة و الاساتذة الافاضل من مساعدتك ...

بارك الله فيك اخي محمد سلامة وشرفتني بمرورك ! وانا موجود هنا وهناك ! الواحد لما يكون عنده اكثر من بستان مش احسن والا ايه ! تحياتي

السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub تحياتي

نحتاج أحياناً لإستخدام ملفات صوتية من امتداد WAV ، وفي أحوال معينة نحتاج للتعرف على الفترة الزمنية للتشغيل (طول الملف بالدقيقة) ، وللحصول على هذه المعلومة أنشيئ وحدة نمطية جديدة وإنسخ اليها: Option Compare Database Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Function GetMediaLength(FileName As String) Dim MediaLength As Long Dim RetString As String * 256 Dim CommandString As String 'open the media file CommandString = "Open " & FileName & " alias MediaFile" mciSendString CommandString, vbNullString, 0, 0& 'get the media file length CommandString = "Set MediaFile time format milliseconds" mciSendString CommandString, vbNullString, 0, 0& CommandString = "Status MediaFile length" mciSendString CommandString, RetString, Len(RetString), 0& GetMediaLength = CLng(RetString) 'close the media file CommandString = "Close MediaFile" mciSendString CommandString, vbNullString, 0, 0& End Function وعند الحاجة إستدعي الوحدة النمطية كما يلي: Dim Seconds, Minutes As Integer Dim MilliSeconds As Long ' replace "E:\working.wav" with the path to your media file MilliSeconds = GetMediaLength("E:\working.wav") ' the function GetMediaLength return the media length in milliseconds, ' so we will calculate the total minutes and seconds Seconds = Int(MilliSeconds / 1000) Mod 60 Minutes = Int(MilliSeconds / 60000) MilliSeconds = MilliSeconds Mod 1000 TotalTime = Minutes & ":" & Seconds & ":" & MilliSeconds MsgBox (TotalTime) جرّب ...... والله من وراء القصد ... وهو حسبي

نطاق السنوات ... Year Loop نحتاج قائمة تحرير وسرد توفر لنا في صفوفها لإختيار السنوات عشرٌ مرت وعشرٌ قادمات ، بحيث لا يكون مصدر الصف جدول أو قائمة قيم ، بحيث تكون متغيرة عبر السنوات بدون أن نضطر لتغييرها وتعديلها ، مستندة للسنة الحالية !! كل ما عليك فعله : إنشاء وحدة نمطية جديدة ولصق الكود التالي بها ، ومن ثم حفظها ... Function YearLoop() As String Dim YearHold As Date Dim strSQL As String Dim i As Integer Dim n As Integer n = 10 strSQL = "" For i = -10 To n YearHold = DateSerial(Year(Date) + i, 1, 1) strSQL = strSQL & Format(YearHold, "yyyy") & "; " Next i YearLoop = strSQL End Function وفي حدث عند الفتح للنموذج نضع الكود لتكون نتائج الوحدة النمطية مصدر الصف لقائمة التحرير والسرد Text7 Private Sub Form_Load() Me.Text7.RowSource = YearLoop() End Sub وحين نفتح النموذج يكون أمامك عشر سنوات سابقة بالاضافة للسنة الحالية وعشر سنوات قادمات ......... للإختيار منها