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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

بسم الله الرحمن الرحيم القيمة المستقبلية (Future value) محاولة منى فى تبسيطها وافادة التجاريين وغير التجاريين لمفهوم القيمة المستقبليه الشكل العام للداله FV(rate,nper,pmt,[pv],[type]) fv.rar

السلام عليكم بعد اذن خبيرنا الغالي جعفر وددت المساهمة في الحل يوجد جدول يتم تكوينه بمجرد انشاء لوحة التبديل ... عند فتح هذا الجدول سنجد الحقل الاول و هو SwitchboardID هذا الحقل هو حقل رقمي يحمل القيمة 1 اذا كان هناك لوحة تبديل واحدة ( لو كان هناك لوحة تبديل اخرى ستأخذ الرقم 2 و هكذا ... ) الحقل الآخر هو حقل ItemNumber يحمل رقم العنصر ( الازرار ) و ينتهي بالرقم 8 ولإضافة عنصر او زر جديد يتم عمل الآتي: 1: يتم اضافة سجل جديد بهذا الجدول بحيث : يتم اضافة الرقم 1 لحقل SwitchboardID و هذا يعني ان هذا العنصر سيكون خاص بلوحة التبديل رقم 1 2: يتم اضافة الرقم 9 بحقل ItemNumber و هذا يكون العنصر التاسع بلوحة التبديل . 3: يتم وضع التسمية للعنصر ( الزر ) الجديد بحقل ItemText 4: يتم اغلاق الجدول و الذهاب الى قائمة ادوات قاعدة البيانات >>> ثم الذهاب الى ادارة لوحة التبديل .. سيكون العنصر موجود و يمكن تحريره للقيام بالمهمة المطلوبة. كما انه يمكن اضافة عناصر اخرى بنفس الطريقة السابقة. ارجو ان يكون الشرح واضحاً .. مع اني أرى من وجهة نظري بأن عمل واجهة خاصة بالمستخدم سيكون اكثر مرونة من استخدام لوحة التبديل. بالتوفيق للجميع

السلام عليكم إن فكرة التطبيق المكتبي ممتازة و تناسب الاستخدام الشخصي ليجمع الشخص منا ما يناسبه من أكود و لكن أري أن الفائدة الأكير فى مكتب الاكواد على النت يضيف لها الجميع و يسحب منها الجميع ، و طبعا هذا تفضيل شخصي ، و احترم رأي من بفضل التطبيق http://www.officena.net/ib/index.php?app=downloads&showcat=16 و من وجهي نظري على الاقل فى مرحلة التجمبع يمكن البدء فى التسجيل على النت فى المكتبة كل كود فى موضوع منفصل ثم بعد وجود كم كافى من الاكواد يمكن تعميم التطبيق المكتبي و تعميمه دوريا

جرب المرفق أخي ولا تغفل اسماء الشيتات تم التحايل على الاستاذ اكسيل لتنفيذ طلبك !! بالتوفيق watch 1.rar

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

بسم الله الرحمان الرحيم السلام عليكم هذا الموقع عبارة عن برنامج متكامل يمكنك من خلاله تتبع وتسيير امورك المحاسبية وفيه العديد من الميزات فقط سجل فيه وله عدت واجهات منها العربية سهل الاستخدام طريقة متكاملة لإدارة الفواتير أنشئ فواتير مهنية و أنيقة تتبع الوضع الحالي للفواتير https://aliphia.com/ تحياتي للجميع

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

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

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

الاستاذ شوقي ربيع دائما نتعلم من عبقريه اعمالك فلك كل الحب والاحترام والتقدير استاذي العزيز

استاذ : ياسر ملف جميل وفكره رائعه بس .. لما استخدمنا الملفات المتفرقه واغلقناها ، وطلبنا الدمج .. تم وكله تمام لكن لما اعدنا استخدام الملفات المتفرقة مره اخرى واضفنا بانات جديده للشتات وطلبنا الدمج مرة ثانية تكرر الشيت الاول في ملف الدمج مرتين باسمين ولكن رئيسي و رئيسي 1 ، وهكذا .. بمعنى اضافة البيانات مرة ثانيه لنفس الشيت تم دمجها باسم تاني اعتقد انه توجد وسيله تلغي الشيتات القديمه ويستقبل ملف الدمج البيانات الحديثه .. مجرد ملاحظه ( خلي العفريت يكمل جميله ويحلها ) ماشاء الله يا مبدع تسلم ايدك

ايه ده كله ده كله ده كله وكمان بتطلع عفاريت !!! مدد ياعم الشيخ مـــــــــــــــــــدد والأدهى فتحت قناة على اليوت عقبال YASSERSAT التليفزيونية وبركاتك يا سيدنا الشيخ بركاااتك

أنت بالفعل علامه أخى الغالى ياسر ومبروك على قناتك الجديدة جزاك الله خيرا

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

الأخ الحبيب شوقي ربيع بارك الله فيك وجزاك الله كل خير على المساندة الكبيرة .. لم أرى مشاركتك إلا الآن .. بصراحة من بدري وأنا مشغول مع العفريت ، وعملت موضوع جديد على هذا الرابط قبل أن أرى مشاركتك http://www.officena.net/ib/index.php?showtopic=59815 بس مش مشكلة زيادة الخير خيرين .. خلي العفاريت يرتاحوا من التنطيط

جربت الملف وتظهر الدوائر بشكل منضبط لدي .. وتظهر على القيم التي أقل من 5 فقط

اهلا بك اختي يظهر في طلبك برنامج كامل ومن الصفر ! وما يسمى بالارشفة الالكترونية ! هل هناك برنامج لديك سابق ؟ هل هناك تحليل لديك جاهز ومتطلبات محددة ؟ هل بدأتي بشي على الاكسس ؟ بالتوفيق

حصن المسلم أهداء الي الجميع بمساعدة اعضاء هذا المنتدي العظام الافاضل تم انجاز هذا العمل لذلك فأنني أتقدم لكم جميعا بجزيل الشكر و التقدير لكم وأتمني أن ينال اعجابكم يتم تحميل الملف و فك الضغط في مجلد واحد رابط الملف http://www.up-00.com/?07dI

الله يعطيك العافية، ويرفع من قدرك

جزاكم الله خيرا وعلى الاسعار دي الواحد كدا لا يتزوج أفضل يعني أخد 1000 أدفعهم 5000 يبقى أقعد عازب أفضل ( هههههه )

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

الاستاذ رمهان .. سعدت بمرورك واضافتك وشكرا للتنبيه على افراغ الذاكرة وحلوة تشغيل العرض هذه Dim opj As Object Dim strFilePath strFilePath = CurrentProject.Path & "\Ch1.ppt" Set opj = CreateObject("Powerpoint.Application") opj.Visible = True opj.Presentations.Open (strFilePath): SendKeys "{F5}" Set obj = Nothing

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

تفضل ياريت من البداية قلت هذا الكلام مثل ما اخبرتك سابقا: فهو يحسب المدة ، آخذ في الاعتبار السنوات الكبيسة والبسيطة جعفر 24.المستحقات التقاعدية.accdb.zip

مشاركة بمعلومات إضافية مع الأستاذ أبو خليل يمكن استخدام التالي وهو الافضل FollowHyperlink CurrentProject.Path & "\Ch1.ppt": SendKeys "{F5}" طبعا تغير المسار والملف حسب الحاجة وتم استخدام امر تشغيل العرض اختصار فكرة أبو خليل Set opj = CreateObject("Powerpoint.Application").Presentations.Open(CurrentProject.Path & "\Ch1.ppt"): Set obj = Nothing ونلاحظ إضافة مسح الكائن من الذاكرة وهي مهمة كما يمكن استخدام دالة shell وتمرير مسار الملف تحياتي

أخي وأستاذي الكريم / جعفر ، وأبو خليل السلام عليكما ورحمة الله بارك الله فيكم وفي علمكم وزادكم علما وفتح الله عليكم من علمه لا أدري والله ما أقول لكم إلا كما علمنا رسول الله صلى الله عليه وسلم فيما معناه " من قدم لكم معروفا فكافئوه فإن لم تجدوا فإن لم تجدوا ما تكافئونه " فأنا لا أملك إلا أن أقول لكما جزاكما الله خيرا وزادكم علما ونفع بعلمكما المسملين . وأرجو أن تتذكرا والدي بدعوة في ظهر الغيب أن يرحمه الله رحمة واسعة ويدخله جنته

بعد إذن الاستاذ الأستاذ سليم جدول الديون001.rar

جرب هذا الملف جدول الديون salim.rar

السلام عليكم ورحمة الله وبركاته مرفق لحضارتكم ملف متابعة طلبات شراء تم اعداده بمعرفة استاذنا الفاضل العبقري أ / ياسر خليل وهو موفي بالغرض المطلوب منه تماما ولكن بعد تزايد عدد طلبات الشراء تم ملاحظة التالي :- 1- عند عمل أي تعديل في شيت DATA لا يمكن ترحيل التعديل على شيت الطلب نفسه بالتالي لا يمكن التعديل على شيت TOTAL . 2 - عند محاولة البحث عن شيت طلب الشراء وليكن رقم 025-923 لاضافة دفعة أو أي تعديل على الطلب ، نواجه صعوبة في عملية البحث كما ايضا قد يتم اختيار طلب اخر مما يتسبب في حدوث اخطاء ، لذا أرغب في وجود اي حل للوصول - مثل ارتباط تشاعبي - لشيت طلب الشراء وخصوصا اننا الان في الطلب رقم 53 ومن المتوقع وصول الطلبات ما بين 350 و 400 طلب . 3 - وأخيرا مطلوب وجود زر في شيت طلبات الشراء يقوم بالرجوع الى شيت TOTAL وزر اخر يقوم بالرجوع الى شيت DATA P.O. Follow.rar

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

السلام عليكم و رحمة الله كود لمعرفة كل حرف كيف يفهمه الاكسل تم توزيع الأحرف بشكل عشوائي لمزيد من النكهة على العمل توزيع عشوائي دون تكرار.rar

كود جميل .. بارك الله فيكم

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

يا اخي الملف نموذجي يمكنك التعديل عليه بان تدرج ما تشاء من معلومات في الورقة بيانات و سوف تنتقل المعلومات الى الصفحة (ترحيل الى) على كل حال سوف اقوم بقك الحماية عن المعادلات و ارسال لملف على كل حال حاول ان تكتب شيئاً في الورقة الاولى او ان تحذف شيئاَ منها و ترى النتيجة بالنسبة للمعادلات غفذ قمت بحمايتها و ليس اخفاءها (حدد اي خلية في الوقة 2 و تظهر لك المعادلة)

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

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

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

شكرا للأبداع المتجدد

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

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

تفضل افتح frm_2 جعفر 28.Color_Combobox.mdb.zip

تحية وشكر لك استاذنا جعفر وهذا هو الذي انا اسير عليه في برامجي حيث اضع جدولا وسيطا وقد حاولت حل المسألة من وجهة نظر اخونا ابو عمرو وخرجت بنتيجة لعلها تكون مرضية وهي كالتالي : استبدال السطر الخاص بالتصدير والموجود في الوحدة النمطية العامة : 'DoCmd.OutputTo acOutputTable, "جدول تسجيل الكتب", acFormatXLS, CurrentProject.Path & "\MyBackup" & "\سجل الكتب.xls", true, "" بهذا السطر : DoCmd.TransferSpreadsheet acExport, 8, "جدول تسجيل الكتب", CurrentProject.Path & "\MyBackup" & "\سجل الكتب.xls", False, "" وفي المثال تطبيق للمقال exp@Emp.rar

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

ان الله مع الصابرين كن صبورا ومثابرا ان شاء الله احاول افهم الموضوع واتمنى على الله ان يقدر لى الخير

السلام عليكم المثال ده من مكتبتى الرجاء الدعاء لمصمم هذا العمل الجميل بارك الله فيه ياريت يكون مفيد فى حوار الكبار ده ((((((((( خلينه كدا مش فاهمين هههه))))))))) اخفاء واظهار الجداول المنتدي.rar

في هذا الرابط الاخ رمهان يشرح معنى الكود: http://www.officena.net/ib/index.php?showtopic=56917 من مفهوم آخر: استبدل هذا السطر If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then بهذا If Left(tdf.name, 4) <> "msys" Then واستبدل If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then بهذا If Left(tdf.name, 4) <> "msys" Then جعفر

اخي الكريم يفضل ان تقوم باستخدام الاصدار الاخير ويوجد فيه طلبك تحياتي

برامج خاصة باصلاح قواعد البيانات متنوعة مجانية ومدفوعة بالمرفقات احدها ، ولكن قبل ذلك يجب ان تعلم ان لديك مشكلة خاصة والا كيف تتكرر في وقت قصير تجنب خيار : ضغط عند الاغلاق الموجود في خيارات اكسس فمن واقع التجربة فان هناك علاقة بين ها الخيار وبين تلف قاعدة البيانات accessfix.rar