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

الأعضاء الأعزاء أسعد الله أوقاتكم بكل خير بعد انتهاء دورتنا " إكسيل 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

اخي انظر الى المرفق واتمنى ان اكون قد حققت لك واذا هو المطلوب سوف اعمل لك شرحا بسيطا قيد الطلاب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

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

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

لم افهم المطلوب وخاصة الميلتباج اذا كنت مبتدأ جدا في اكسس فانا ضعيف جدا في اكسل هل فتحت المثال ؟ وهل اختفى اطار اكسس ؟ قد لا يختفي في الاصدارات الحديثة ، واحب التنويه الى اني اعمل على اصدار 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"),"")) إذا لم تعمل معك المعادلات استبدل الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

جزاكم الله خيرًا على الفكرة الرائعة وأرجو المساعده فى نفس الفكره ولكن بتغيير نوع العرض فى النموذج ليصبح مستمر حيث يتأثر الكومبو الثانى فى السجل الاول بتغيير الاختيار فى الكومبو الاول فى السجل الجديد كما فى النموذج copy of نوع وجزاكم الله خيرًا قائمه_منسدله.rar

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

باستخدام Group by ثم الدالة Max للحصول على أكبر تاريخ وبالتالى هو تاريخ أخر درجة

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

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

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

وعليكم السلام خلينا نترجم كلامك الى لغة الاكسس انت قصدك بالعُهد هنا ، السجلات 1. طيب اذا كانت سجلات الشخص تتعدى الصفحة الواحدة ، مثلا صفحة ونصف ، فهل تريد ان تكتب تحت الصفحة الاولى مجموع سجلات الصفحة والنصف؟ طيب وفي نهاية سجلاته ، نهاية الصفحة ونص ، هل عندك مجموع هناك كذلك ، طبعا لا الطريقة الاسهل لحل هذه المسألة هي في التجميع والفرز في التقرير ، انظر المثال المرفق ، حيث سأعمل تجميع للحقل nam_Student (انت تستطيع ان تعمل التجميع لحقل العُهد): هذا شكل التقرير العادي ، واذا عملت مجموع العُهد ، فستأتي آخر التقرير (لآحظ لا يوجد قسم الصفحات هنا ، بدل قسم رأس وذيل التقرير) ، اضغط على 1 ، ثم 2 . الآن عملنا قسم/مجاميع خاصة للحقل nam_Student ، وظهر له رأس وذيل (وهنا تستطيع بهذه الطريقة ان تعمل مجموع العُهد في ذيل هذا القسم ، وسيكون صحيحا) . وفي الرابط التالي ، لاحظ الصورة الثانية والثالثة ، لنفس الغرض: http://www.officena.net/ib/topic/67329-حصر-اجمالي-عدد-الاجازات-لكل-موظف-في-التقرير-عنوان-معدل/?do=findComment&comment=437803 جعفر

اخي الكريم لو بحثت لوجدت العديد من الأمثلة على أيدي الخبراء جزاهم الله خير عموما القي نظرة على هذا المثال save.rar

السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك 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 وحين نفتح النموذج يكون أمامك عشر سنوات سابقة بالاضافة للسنة الحالية وعشر سنوات قادمات ......... للإختيار منها