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

هذا الملف بصيغة 2003 ارجو تحويله لصيغة 2003 او 2007 وشكراً لا تقلق أخي هذا ليس إزعاج نحن نعمل ما نستطيع فعله و لا يمكن أن يزعجنا شخص يطلب العلم تأثيرات 2003.rar و هذا الملف الآخر 2003.rar

تفضل أخي الكريم حذف بيانات اعميل بدون رقمه.rar

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اليكم برنامج خبور المحاسبي المعدل الذي قمت فيه باجراء بعض التعديلات التي اثمرها لنا تجاوبكم معي في الاصدارين الاول والثاني وكانت الاراء تنصب اساسا في التالي : اولا- الدليل المحاسبي : عملته بالشكل التالي : جدول للدليل تضبط من خلالها السلسلة الرقمية لكل اختيار من الاسم في الدليل , مثلا لو اخترنا اصول ثابتة نضبط السلسلة الرقمية لها مثلا من الرقم 11 الى الرقم 99 والبرنامج بيتعامل مع هذه السلسلة في اضافة الحسابات لهذا الاسم للعلم ان لك حرية اختيار السلسلة الاسمية والرقمية فقط ان تكون في ترتيب متسلسل داخل جدول الدليل يعني ممكن تعمل اسمان لسلسلة واحدة مثلا اصول متحركة / صناديق من 1201 الى 1500 اصول متحركة / بنوك من 1501 الى 2000 واثناء اضافتك لاي حساب سيظهر لك قائمة الاسماء التي وضعتها في جدول الدليل لاختيار الصنف الذي تريده لترتيب حساباتك في ميزان المراجعة 2- نتيجة لهذه الاضافات حذفت قائمة العملاء والموردين الموجوده في الاصدارات السابقة واضافتهم ستكون في ميزان المراجعة (الذي اصبح مكون من 1000 سجل ) حسب التسلسل الذي ستضبطه في دليلك ممكن تعمل للعملاء سلسلة رقمية وللموردين سلسلة رقمية اخرى صفحة ميزان المراجعة: تعمل التالي : 1- هي المحتوى الكلي للحسابات تظهر من خلالة جميع الحسابات متسلسلة بالضابط الدليلي مجاميع وارصدة بالعملة الرئيسية وارصدة العملات الاخرى مع تعريف للحساب اذاكان مدين اودائن واسماء العملات المستخدمة لكل حساب ويظهر فيه فرق سعر العملات التلقائي قبل المجاميع الكلية 2- تتحول اثناء استخدامك للتصفية من عمود الدليل الى كشوفات تحليلية للحسابات حسب الصنف الدليلي المختار مثلا اذا اخترت اصول ثابتة تظهر لك الحسابات المشتملة على هذا الاسم مع المجاميع والارصدة الخاصة بها ويتحول الاسم من ميزان المراجعة الى كشف تحليلي لحساب الاصول الثابتة وهكذا بالنسبة لجميع الاصناف الدليلية 3- تتحول اثناء استخدامك للتصفية من عمود العملة الى كشف بحسابات العملة المختارة. ثانيا: بالنسبة للتعديلات وهي ملاحظة الاخ تويتي يمكنك تعديل القيد مثلا: اذا كان لديك القيد الاتي 50000 من حـ مصروفات نثرية 50000 الى حـ الصندوق يمكنك التعديل الى 15000 من حساب مصروفات نثرية 35000 من حـ مصروفات صيانه 50000الى حـ الصندوق والعكس وطبعا لديك صفحة القيود تتكون من 200 سجل يمكنك التعديل بدون اي مشاكل لعدد السجلات في اي قيد ممكن تعدل القيد المكون من 2 سجل الى 200 سجل والعكس وهو ياخذ الترتيب التلقائي حسب رقم القيد ويمكنك التأكد من ذلك بنسخ البيانات ( وهو زر جديد) لنسخ البيانات في ملف جديد ستلاحظ الترتيب التسلسلي لبياناتك حسب الترتيب التصاعدي للقيود اضافات جديدة : 1- لا يفتح البرنامج الا باسم المستخدم وكلمة المرور اسم المستخدم " خبور" كلمة المرور"بسم الله" يمكنك بعد ذلك تعديل اسم المستخدم وكلمة المرور من زر اسم المستخدم في صفحة الاعدادات ويمكنك تعديل كلمة المرور للتعديلات من نفس الزر كلمة المرور للتعديلات "بسم الله" 2- صفحة القيود هي الصفحة التي يتم فيها التعديل واصبحت صفحة دفتر الاستاذ صفحة للتنقل السهل من القوائم لجميع الحسابات في ميزان المراجعة واختيار تواريخ اختيارية من القوائم للكشوفات ارجو من الله تعالى ان ينال رضاكم فقط لا تنسونا من الدعاء ولا تنسونا من ملاحظاتكم اخوكم خبور __________________________.rar

السلام عليكم لن اتكلم كثيرا ولكن يجب ان اذكر التالي: كلمات القاموس الحالية منقول من المنتدى وباستطاعتكم اضافة ما تريدونه من كلمات بالنسخ واللصق في الملف وتغيير مدى النطاق المسمى (البيانات) هنا يتواجد معنا الاستاذ القدير /ابو اسامة العينبوسي في كود تغيير اللغة فكرة الاضافة والتعديل والحذف والاستماع الاستاذ القدير / محمدي عبد السميع فكرة فورم الخروج (منتديات اهلا عرب) تفضلوا _____________.rar

السلام عليكم ورحمة الله وبركاته طرق الاهلاك باستخدام دوال الاكسيل هام للمحاسبين ورؤساء الحسابات والمديرىن الماليين لاتنسونا بصالح دعاؤكم تحميل الملف http://excelfinancial1.blogspot.com.eg/2017/04/blog-post.html

جرب هذا استخدمت هذا الكود Private Sub أمر150_Click() On Error Resume Next If DLookup("الرصيد", "asd", "[NoEmp]=" & Forms![اسماء العملاء]![Text155]) <> 0 Then MsgBox ("لا يتم الحذف لان عنده " & " ( " & Forms![اسماء العملاء]![Text157] & " ) " & "باقي من الرصيد") Exit Sub End If If MsgBox("هل انت متأكد من حذف بيانات العميل", vbYesNo) = vbYes Then Forms![اسماء العملاء]![تابع132]![NaEMP] = "" Forms![اسماء العملاء]![تابع132]![SAL] = "" Forms![اسماء العملاء]![تابع132]![Alhdalmsmh] = "" Me.Refresh MsgBox "تم الحذف" End If End Sub تقبل تحياتي حذف بيانات اعميل بدون رقمه.rar

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

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

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

اخى الحبيب المحترم // حماده عمر " ابو سما " السلام عليكم ورحمته الله وبركاته أثق كثيرا فى قدراتك ولكن أين الاخ ناصر لم يتقدم بعرض الملف حتى الان اللهم أجعله خيرا تقبل وافر تقديرى واحترامى

حاولت كثير لكن بدون جدوى لكن تكدر تعمل تصدير الى بي دي ايف

استاذى / حمادة عمر لك جزيل الشكر والاحترام هذا هو المطلوب تحديدا الكود يعمل بشكل ممتاز وادى كامل الغرض

هذا الكود بيمسك السجل الحالي لكي تتم DoCmd.RunCommand acCmdSelectRecord وهذا الكود بيحذف اللي حدد من قبل DoCmd.RunCommand acCmdDeleteRecord

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

شكرا لك واسف على التأخير في الرد اخوي محمد الخازمي

حمادة عمر اخى الفاضل جزاك الله خيرا تحياتى

سلمت يداك اخى Shivan Rekany وذادك الله من لدنه علماً .

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

اسال الله ان يضع كل حرف كتبته في ميزان حسناتك ربي يحفطك اخي

تفضل db19.rar

مسكور اخي اواب ان شاء يكون هو المطلوب شكرا اخي اواب ان شاء الله يكون هو المطلوب لاننا حاليا على الموبيل بشوفه في الظهر من الكمبوتر شاكر لك على تعاونك معنا

بدون التسلسل SELECT tt1.Mid, tt1.mname, IIf(DCount("*","tt1","mid<=" & [mid])<=DCount("*","tt1")/2,0,1) AS Expr1 FROM tt1; تحياتي

تفضل اخى مع تطوير بسيط لحقل إجمالي الفاتوره برنامج مخازن.zip

اسف لم اركز والان فهمت ان العمليه عباره عن مجموعتين فقط مقسومه بالتساوي تقريبا الان اخي عبدالفتاح هذا فكره في الاستعلام وحسب المثال المرفق SELECT tt1.Mid, tt1.mname, IIf([mid]<=DCount("*","tt1")/2,0,1) AS Expr1 FROM tt1; ولي طلب بسيط لو تكرمت هل ممكن تطبيقها على مثالك المرفق وفي الاستعلام حيث نجحت . تحياتي

ولو اصبح عدد اسجلات: 24 او 21 7 ؟

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

نعم تفضل أخي أفعل ما تشاء فقط تذكرنا بدعائك في ظهر الغيب

على الرغم ما عطيتني جواب سؤالي لذا انا عملت لك هذا جرب حد الرسوب stu.rar

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

جرب هذا الماكرو Sub GetLast_Value() If Not (ActiveSheet.AutoFilterMode) Then Range("a1").AutoFilter End If Set filter_range = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible) b = Split(filter_range.Address, "$") LastRow = Val(b(UBound(b))) Range("c1").Value = Range("a" & LastRow) End Sub الملف مرفق (بالكود و بواسطة المعادلات) اخر خلية بعد الفلترة salim.rar

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

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

السلام عليكم الاخ الكريم / ابو يحيى بارك الله فيك بعد اذن الاخ والاستاذ الحبيب / زيزو العجوز .. جزاه الله خيرا وبنفس اكواده الراائعة قم باستبدال الكود الخاص بالنسخ بالكود التالي بزيادة سطر واحد فقط وهو Call SheetColors55 ليكون الكود كالتالي : Sub Copy_AddSheet() Dim x As String Sheet1.Unprotect Sheet1.Range("A2:E" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Copy x = WorksheetFunction.Text(Now(), Format("dd-mm-yyyy")) For i = 1 To Sheets.Count If Sheets(i).Name = x Then Exit Sub If Sheets(i).Name <> "form" Then Sheets(i).Visible = xlSheetHidden End If Next i Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = x With ActiveSheet .Range("A2").PasteSpecial xlPasteValues .Range("A2").PasteSpecial xlPasteFormats .Range("A2").PasteSpecial xlPasteColumnWidths .DisplayRightToLeft = False .Range("A2").Select .Protect End With '=================================== Call SheetColors55 '=================================== Sheet1.Protect Application.CutCopyMode = False End Sub وذلك بعد اضافة الكود التالي في موديل ( هو نفس كود الاستاذ / زيزو العجوز .. والخاص بالتلوين ولكن بتعديل بسيط جدا ) ليصبح التلوين للشيت في نفس خطوة وامر النسخ بضغطة زر واحدة Sub SheetColors55() Dim x, y, z As Integer x = WorksheetFunction.RandBetween(0, 255) y = WorksheetFunction.RandBetween(0, 255) z = WorksheetFunction.RandBetween(0, 255) colr = VBA.RGB(x, y, z) On Error Resume Next ActiveSheet.Select ActiveSheet.Tab.Color = colr End Sub تقبلوا خالص تحياتي وجزاكم الله خيرا

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

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

اليك هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 122 KeyCode = 0 End Select End Sub لكن لازم تتغير خاصية Key Preview الى نعم للنموذج او يجب تستخدم هذا الكود معه Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub تحياتي

السلام عليكم اولاً مرحباً بك في المنتدي بالنسبة لموصفات الحاسوب والشكل يعتمد علي طبيعة عملك انصحك تركز على الذاكرة العشوائية(( الرامات )) والمعالج وكذالك الهارد ديسك وكرت الشاشة فكل مكانت نوع الخريط من اسماء الشركات المعروفة كان ذالك افضل واطول عمر بالنسب للرمات للاستخدام العادي تكون 4 giga مناسبة والمعالج يكون QI3 والهارد ما بين 500 GIGA الي 1000 GIGA

السلام عليكم لمنع إضافة سجلات استعمل الكود التالي: Me.AllowAdditions = False لمنع حذف سجلات استعمل الكود التالي: Me.AllowDeletions = False لمنع التعديل على السجلات استعمل الكود التالي: Me.AllowEdits = False أما بالنسبة لإستعمالها في صلاحيات المستخدمين يمكنك استعمال ثلاثة أرقام مثلا: 1: له كل الصلاحيات 2: يستطيع الإضافة فقط 3: المشاهدة فقط (يمنع من جميع الصلاحيات التعديل ,الإضافة و الحذف) نستعمل الكود التالي في حدث عند التحميل للنموذج : If VaUser=1 Then Me.AllowDeletions = True Me.AllowAdditions = True Me.AllowEdits = True ElseIf VaUser=2 Then Me.AllowDeletions = False Me.AllowAdditions = True Me.AllowEdits = False Else Me.AllowDeletions = False Me.AllowAdditions = False Me.AllowEdits = False End If

السلام عليكم ورحمة الله وبركاته بعد إذن حضراتكم هذا تعديل بسيط فقد قمت بدمج الكوين وهذه النتيجة كود الحفظ التلقائي كل مدة 15 ثانية أو عند إغلاق ملف الاكسيل دون المطالبة بالحفظ هذا الكود يوضع في حدث : Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub Private Sub Workbook_Open() Call St_A End Sub هذا الكود يوضع في حدث : Module Public Rm As Double Public Const C_Con = 15 Public Const Sc_W = "Ex" Public Sub St_A() On Error Resume Next Rm = Now + TimeSerial(0, 0, C_Con) Ali_C Rm, Sc_W, True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub Public Sub Ext() Ali_C Rm, Sc_W, False End Sub Public Function Ali_C(St As Double, Sa As String, Bn As Boolean) On Error Resume Next With Application DoEvents .ScreenUpdating = False .EnableEvents = False .OnTime EarliestTime:=St, Procedure:=Sa, Schedule:=Bn .EnableEvents = True .ScreenUpdating = True End With End Function ومرفق ملف بعد التجربة وشكرا لكم جميعًا فلكم يرجع الفضل بعد الله عز وجل . مطلوب دالة.rar

السلام عليكم الاخوة الكرام هذة اكواد للاستاذ الفاضل / عباد ابو نصار لجعل الاكسيل يقوم بالحفظ كل 60 ثانية يقوم بحفظ الملف كل دقيقة هذه الأكواد في مودويل Public Rm As Double Public Const C_Con = 60 Public Const Sc_W = "Ex" Public Sub St_A() Rm = Now + TimeSerial(0, 0, C_Con) Application.OnTime EarliestTime:=Rm, Procedure:=Sc_W, Schedule:=True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub وهذه في حدث Thisworkbook Private Sub Workbook_Deactivate() Call St_A End Sub Private Sub Workbook_Open() Call St_A End Sub وممكن الرجوع الى اصل الموضوع http://www.officena.net/ib/index.php?showtopic=45107&hl

السلام عليكم اخى العزيز اليك ما طلبت كود لحفظ ملف الاكسل تلقائيا دون الضغط على ايقونة الحفظ حفظ تلقائى للبيانات فى ملف اكسل دون الضغط على ايقونة الحفظ ويوضع الكود فى WorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub ومرفق ملف مطبق عليه الكود

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

الاخ يوسف حنفرض ان محل السكن او الدور هو ( س )وهى رقم الشقة فاذا نزل ( 3 أدوار ) اذا نكتب س - 3 واذا صعد ( دورين) اذا نكتب س+ 2 اذا الادواربالعمارة لا تقل عن 5 بدون شقتة فنقوم بتغير س الى رقم 5 ونفذ نفس العملية السابقة مع تغيير س بدلا منها 5 5 - 3 =2 5 + 2 = 7 ومجموعهم 9 وهذا هو اللدور الذى يسكن فيه فاذا نزل 3 أدوار اذا اصبح فى الدور السادس فبالتالى عدد الادوار تحته 5 نضرب 2 * 5 = 10 وهو ضعف الادوار نجمع الادوار على بعض 10 فوق 5 تحت 1 شقته اذا مجموع الادوار بالعمارة 16 اسف على الشرح الطويل ارجو تكون وصلت الفكرة مجدى يونس

الادوار التي فوقه = س الادوار التي تحته = ص .......................... الحالة الاولى .... اذا نزل 3 ادوار تصبح : الادوار التي فوقه = س + 3 الادوار التي تحته = ص - 3 وبما ان إذا نزل ثلاثة أدوار أصبح مافوقه من أدوار ضعف ماتحته اذن س + 3 = 2 ( ص - 3 ) س + 3 = 2 ص - 6 س = 2 ص - 6 - 3 س = 2 ص - 9 ...............................................1 .......................... الحالة الثانية .... اذا صعد دورين تصبح : الادوار التي فوقه = س - 2 الادوار التي تحته = ص + 2 وبما ان وإذا صعد دورين من شقته أصبح ماتحته ضعف مافوقه من أدوار اذن ص + 2 = 2 ( س - 2 ) ص + 2 = 2 س - 4 ص = 2 س - 4 - 2 ص = 2 س - 6 ...............................................2 .......................... وبالتعويض : س = 2 ( 2 س - 6 )- 9 س = 4 س - 12 - 9 س = 4 س - 21 3 س = 21 ....................و بالقسمة على 3 س = 7 ص = 2 س - 6 ص = (2 * 7)- 6 ص = 14 - 6 ص = 8 الادوار الكلية = 7 + 8 + 1 = 16

السلام عليكم ورحمة الله وبركاته الاخ zoro888 الموضوع ببساطه انه اي عمود انت تريده تستطيع فقط تغيير رقم العامود من داخل الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then UserForm1.Show End If End Sub هنا اخترنا الحدث دبل كليك من نفس الصفحه التي نريد ان يظهر في عمودها الثالث وهو c ، ببساطة اذا اردت العمود b فانك ستضع الرقم 2 بدل الرقم 3 او الرقم 1 بدل الرقم 3 اذا اردت التاريخ في العمود a اماالمقصود بالكود اعلاه انه اذا تحقق الشرط بحيث يكون اختيار الخليه بالضغط عليها دبل كليك ضمن نطاق العمود c هنا اطلب من التقويم ان يظهر لي لكي اضع به التاريخ الذي اريده اما بخصوص الفورم الخاص بالتقويم ستتبع الخطوات التاليه: اولا - الدخول الى محرر الفجوال بيسك ثانيا - اختيار ادراج فورم userform ثالثا - من الادوات tools اختيار additional controls او اضافة عنصر تحكم رابعا - من القائمه التي ستظهر معك اختيار calendar control ومن ثم موافق ، بعدها ستجد الامر موجود في toolbox مثلها مثل label او textbox وغيرها خامسا - ستقوم بسحب امر calendar داخل الفورم وتعيد تنسيقه بالشكل الذي تريد سادسا - دبل كليك من على فورم ستظهر لك نافذة البرمجه سابعا - ستضع الكود التالي داخل حدث التقويم Private Sub Calendar1_Click() ActiveCell = Calendar1.Value ActiveCell.NumberFormat = "DD/MM/YYYY" UserForm1.Hide End Sub ويعني هذا الكود انه في الخليه النشطه تكون قيمتها هي نفس قيمة التقويم والسطر الثاني بخصوص اختيار الفورمات التي سيظهر عليها التاريخ والسطر الثالث يعني عند ادخال التاريخ من التقويم يقوم تلقائيا باخفاء التقويم اما الكود التالي فيعني في كل مره يستدعا بها التقويم يعطيني تاريخ اليوم الفعلي Private Sub UserForm_Activate() Me.Calendar1.Value = Now() End Sub اتمنى ان تعذرني ان اطلت عليك الشرح لانه ربما انك تعلم الكثير مما كتبت ولكن قصدت هذا ليستفيد الجميع حياك الله

اضافة بسيطه على كود الاخ بن عليه وهو Private Sub Calendar1_Click() Range("A1") = Calendar1.Value UserForm1.Hide End Sub حيث تسمح لنا باخفاء الفورم عند اختيار التاريخ

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته فورم للبحث ثنائي المعيار بكود الحساب واسم الحساب سهولة للبحث و........ في التجربة والاستخدام ما يغني عن الشرح وهو طلب الاخ سمير هنداوي جعلناه في مشاركة مستقلة لتعم المنفعة ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم/ خبور ______________1.rar

الاخ asaz تحياتى لم استطع الوصول لرابط الموضوع وضعت لك الملف بالمرفقات ملف لاستاذنا على السحيب به الطريقة التى اشرت اليها بالنسبة للحفظ من قائمة : ملف / حفظ بأسم ثم اختار نوع الملف المحفوظ ( csv ) تحياتى ______________.rar