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

الأخ الفاضل طارق طلعت مشكور على ذكرك لاسمي ، واعلم أنني ما أنا إلا طالب علم ، واستفدت كثيراً من أساتذتي الكرام بالمنتدى ولا زلت أنهل من علمهم الغزير .. بارك الله لنا فيهم وحفظهم لنا إليك الملف التالي عله يكون المطلوب إن شاء الله لا تنسى وأكرر لا تنسى أن تحدد المشاركة التي أعجبتك كأفضل إجابة ليظهر الموضوع مجاب ومنتهي إليك الكود : Sub GrabBillData() Dim WS As Worksheet, SH As Worksheet Dim BillNo As Long, lRow As Long Set WS = Sheets("فاتورة"): Set SH = Sheets("استدعاء فاتورة") BillNo = SH.Range("A2").Value If IsEmpty(SH.Range("A2")) Then MsgBox "أدخل رقم الفاتورة المطلوب استدعائها": Exit Sub Application.ScreenUpdating = False On Error Resume Next SH.Range("A4:M1000").Clear lRow = Application.WorksheetFunction.Match(BillNo, WS.Columns("D:D"), 0) - 1 With WS .Activate .Range("A" & lRow & ":M" & .Range("A" & lRow).End(xlDown).Row).Copy SH.Range("A4") End With SH.Activate Application.ScreenUpdating = True End Sub تقبل تحياتي Grab Bill Data YasserKhalil.rar

السلام عليكم بعد اذن استاذنا الفاضل/ محمد صالح اتفضل اخى الكريم اليك الحل حسب مافهمت المعادله الاولى صفيف ctrl+shift+enter {=IF(B2>=1;SUM(1*(IFERROR(VALUE(IF(FREQUENCY($B$2:$B$21;$B$2:$B$21)>=1;$B$2:$B$21;0));0)>B2))+1;"")} المعادله الثانيه : بعمود مساعد =IFERROR(VALUE(INDEX($B$2:$B$21;MATCH(0;COUNTIF($E$1:E1;$B$2:$B$21);0)));"") =IF(A2="";"";RANK($B2;$E$2:$E$21)) سؤال عن الدالة RANK.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى 1_برنامج متابعة الأنشطة القرآنية - هديتي لأحبابي في شهر رمضان_ الاستاذ / ابو عبدالله 2_تقويم الصيام (تقويم ميلادي هجري بالمعادلات)_ الاستاذ / عبدالله باقشير 3_اذكار عظيمة (هدية الايام المباركة)_ الاستاذ / عبدالله باقشير 4_الطريق الى الجنة_ الاستاذ / عبدالله باقشير 5_ابك على خطيئتك_ الاستاذ / عبدالله باقشير 6_تفسير ابن أبى حاتم منقول من ورد الى اكسل_ الاستاذ / عبدالله باقشير 7_جدول اعمال العشر من ذي الحجة_ الاستاذ / عبدالله باقشير 8_رمضانيات_ الاستاذ / عبدالله باقشير 9_صلاة الكسوف و الخسوف_ الاستاذ / عبدالله باقشير 10_اذكار الصباح والمساء_ الاستاذ / عبدالله باقشير 11_القرآن الكريم مشكلا على الاكسل_ الاستاذ / عبدالله باقشير 12_لاتنسى ذكر الله_ الاستاذ / عبدالله باقشير 13_اسماء الله الحسنى_ الاستاذ / عادل حنفى 14_مواقيت الصلاة_ الاستاذ / دغيدى 15_ساعه تناظرية مع اسماء الله الحسنى_ الاساتذة / دغيدى _ العيدروس 16_امساكية بسيطة مع تنبيه لاوقات الصلاة_ الاستاذ / محمد يحياوى 17_هديتي الى الاستاد مجدي يونس (فانوس رمضان)_ الاستاذ / شوقى ربيع 18_برنامج القران الكريم_اون لاين على يوزرفورم_ الاستاذ / شوقى ربيع 19_القرآن بالصوت والصورة 3_ الاستاذ / محمد صالح 20_صفحة مواقيت الصلاة في ثوبها الجديد_ الاستاذ / محمد صالح 21_موقع رائع للقرآن الكريم_ الاستاذ / محمد صالح 22_هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل_ الاستاذ / حماده عمر 23_لاتنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !!_ الاستاذ / حماده عمر 24_معجزات النبى_ الاستاذ / سعد عابد 25_آيات و شخصيات من القرءان الكريم بالإكسيل_ الاستاذ / أيسم إبراهيم 26_ملف أدعية و إستغفار بالاكسيل_ الاستاذ / يحيى حسين 27_تفسيرالقرآن الكريم_ الاستاذ / مجدى يونس 28_من دعاء الأنبياء فى القرآن_ الاستاذ / مجدى يونس 29_رحله مع الله سبحانه وتعالى_ الاستاذ / مجدى يونس 30_احاديث دينية_ الاستاذ / مجدى يونس 31_ام المؤمنين السيدة عائشة_ الاستاذ / مجدى يونس لا تنسونا من صالح الدعاء

السلام عليكم إخواني الكرام في المنتدى الرائع أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده .. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub

السلام عليكم أساتذتى واخوانى بالمنتدى تناولت فى موضوعى السابق طريقة نقل بيانات من ملف مغلق الى ملف مغلق أخر بطريقة تسمى ado وهى اختصار للعبارة ActiveX Data Objects بدأ العمل بها فى مايكروسوفت 1996 تستخدم هذة الطريقة فى ترحيل ونقل البيانات بين الملفات استخدمت هذه الطريقة فى جلب البيانات الى شيت رئيسى ثم ربطت الشيت الرئيسى بشيت آخر بلينك . بعد ذلك قلت لنفسى لو عندى كود لادخال البيانات الى ملف مغلق يبقى الأمر 10/ 10 ثم بحث عن كود ووجدت واحد فى أحد المواقع الأجنبية وقمت بتعديله بطريقة لا يشعر فيها المستخدم بأن الملف ده اتفتح والتفاصيل هنا : http://www.officena.net/ib/index.php?showtopic=57798 والحمد لله تم استبدال اللينك بكود . وتركت لكم الملفات فى الرابط ده . مرة مستخدما اللينك ومرة الكود فى ادخال البيانات للملف المغلق . و اليوم أقدم لكم كيفية جلب البيانات من 3 ملفات مغلقة دفعة واحدة وبضغطة زر واحدة ومن ثم ترحيلها وادخالها الى ملف مغلق آخر دون شعور المستخدم بذلك وهذا يتم بذات الطريقة السابقة . للأصدقاء من خارج المنتدى : على الميديا فاير من خلال الرابط التالى http://www.mediafire.com/download/gidslzjdssb2jii/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__3_).rar للأصدقاء فى المنتدى : تفضلوا الملفات فى المرفق التالى . أرجوا أن يفيدكم وتستمتعوا به تحياتى للجميع copy data from 3 closed excel file & paste it in a closed excel file by mokhtar ( 3 ).rar

http://www.4shared.com/office/6Nmqxz3cce/Computer_-_Excel_2010_Power_Pr.html

أبوسليمان فى هذا المرفق تم تغيير امتداد الملفات الستة الى xls مع تغيير أسماء الملفات لسهولة التعامل جلبت لك البيانات من الملفات الخمس وهى مغلقة وبضغطة واحدة الى ملف الرئيسية تحديث البيانات : عدل كما تشاء فى الملفات الخمس وانقر على الزر فى الرئيسية فقط وبكده نكون عملنا المرحلة الأولى أما الثانية سوف أسألك بعض الأسئلة فى حينها أما السؤال الأن : الرقم الطويــــــــــــــــــــــــــــــــــــــــــــــل ده بيتقسم الى خلايا هل المطلوب منه أن نستخلص منه تاريخ ووقت مثلاً ؟ أرجو الايضاح وسوف نكمل الموضوع باذن الله تعالى mokhtar get data for bosoliman.rar

أخى اقرأ هذه المواضبع المتميزة لعلك تجد فيها مطلبك 1- http://www.officena.net/ib/index.php?showtopic=36167 2-http://www.officena.net/ib/index.php?showtopic=34117 3- وختامها مسك 4-http://www.officena.net/ib/index.php?showtopic=59415 تمنياتى بالتوفيق والسداد.

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

جزاكم الله خيرا امثله رائعه

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

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

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

الاخ مختار شكرا لكلاماتك اضافة بسيطة نتمنى تعجبك Enter Password to run a Macro.rar

تفضل يا أخي الكريم لاحظ الدالة الموجودة في الكود والفرز حسب عمود العكس الترتيب من اليسار لليمين.rar

السلام عليكم ورحمة الله تفضل اخي ان شاء الله يكون المطلوب ملفين 2003 + 2013 حذف الملف بتاريخ معين.rar

جرب هذا الرابط http://www.officena.net/ib/index.php?showtopic=37165

السلام عليكم ورحمة الله وبركاته موضوع منقول من احد المواقع الاجنبية ولكنه بكل صراحة تحفة اردت ان يستفيد منها كل اعضاء منتدانا الحبيب تحياتي Progressmeters.rar

صدقني لم اقصد ذلك فانا اعلم جيدا ان الاعضاء والقائمين علي المنتدي علي درجة عالية من الرقي الفكري والاخلاقي .. وجزاكم الله كل خير علي ماتقدمونه من علم نافع

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

لا مشكلة يبدو أن الكود في موضوع الأستاذ مختار يكتب جملة الشرط في سطر واحد لذلك لم يتم التطبيق على الخلية التي بها معادلة فقط Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select msgbox "any text" end if End Sub

السلام عليكم الله وبركاته بداية أقدم كل التحية والتفدير والاحترام الى أساتذتى الكرام وأخص بالذكر الأستاذ عبدالله باقشير الذى أوحى إلىّ بهذه الدالة فقد قدم لنا الأستاذ الفاضل دالة للجمع بناء على لون الخلية وهى : Function kh_SumColor(RngColor As Range) As Double Dim cel As Range Dim sm As Double For Each cel In RngColor If cel.Interior.Color = Application.Caller.Interior.Color Then sm = sm + Val(cel) Next kh_SumColor = sm End Function وعن طريق الصدفة وجدت طلبا فى أحد المنتديات الأجنبية التى أشترك فيها يسأل عن Sum Cells by Font Color فجااء ببالى لماذا لا نستفيد من دالة أستاذى الفاضل ولكن بطريقة أخرى وهى الجمع بناء على لون الخط فأصبحت الدالة بهذا الشكل : Function MOKHTAR_SumFontColor(RngFontColor As Range) As Double Dim cel As Range Dim MOKH As Double For Each cel In RngFontColor If cel.Font.Color = Application.Caller.Font.Color Then MOKH = MOKH + Val(cel) Next MOKHTAR_SumFontColor = MOKH End Function وبمجرد أن أنتهيت من المطلوب قررت وضعه هنا فى المنتدى ليستفيد منه الزملاء أرجو من أستاذى أن يعذرنى على هذا الاقتباس فقد ينفع يوما بعض الناس . تقبلوا جميعاً تحياتى وهذا مرفق للدالة Sum Cells by Font Color.rar

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

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

الأخ الكريم والأستاذ الكبير محمد حسن كلنا هنا في الصرح طلاب علم والكل يصب في مصلحة الكل ، والكل يتعلم من الآخرين فبادر بما عندك ..ننتظر عطاؤك إن شاء الله

ما شاء الله أستاذ سليم وفقك الله لكل حير

بعد اذنك اخي علاء من حيث النتيجة بالقروش العدد صحيح لكنه بصيغة نص و لا يمكن اجراء اي عملية رياضية عليه (جمع ,طرح ...) *المعادلة الصحيحة بالمرفق فلوس salim.rar

بارك الله فيك

السلام عليكم استاذنا ياسر -معذرة فلم اشاهد الكود بالمشاركة 5 عند اضافة مشاركتي بالفعل هو يفي بالغرض و زيادة وسريع جدا كالمتوقع يكاد يكون "لحظي" . -جربت الكود في الملف في المشاركة رقم 12 فلم يكن تعطيل الحساب موجود وكان كود الترحيل بطيء جداااا و عند اضافة كودك عليه من المشاركة 5 يعمل سريع جدا لحظي , لكن الملف بدون تشغيل اكواد او اي شيء يحتاج و قت طويل لاعادة عمليات الحساب فيه (اكيد في عدد كبير من المعادلات فيه) ,لكن الكود سريع فيه . تحياتي

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

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

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

يمكنك ذلك عن طريق النسخ ثم اللصق الخاص واختيار القيم سوف يتم النسخ بدون معادلات

شكرا جزيلا لك استاذي الفاضل وربي يحميك من كل شر يارب

اليك هذا النموذج عما تريده نسخ القيم فقط.rar

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

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

وبدون مساعدة الاستاذ رمهان جعفر

بعد إذن الأستاذ الفاضل / الصقر جرب الكود التالى : كود لعمل حفظ ذانى لملف الإكسيل على رابط لى قد شاركت به من قبل http://www.officena.net/ib/index.php?showtopic=59622&hl=%2Bauto+%2Bsave يوضع الكود فى ThisWorkbook Sub workbook_beforeclose(cancel As Boolean) If Me.Saved = False Then Me.Save End Sub Auto Save Excel.rar

أخي الحبيب غسان إليك الملف المجاني .. وعيوني للأخوة الأعضاء Functions 2013-EN-US (free-unlocked).rar

اخي الفاضل انت تتعجل في ايجاد الحل ولا تريد المساعدة بارفاق الملف

بسم الله الرحمن الرحيم تكملة لما سبق انجازه من برنامج المرتبات العام السابق 2014 م لقد قام بتحديث البرنامج اخى وصديقى / الاستاذ عبدالجابر اسماعيل غنام برنامج المرتبات 2015 م وقد ابلى فيه بلاءا حسن جعله الله فى ميزان حستانه .... امين ******* مميزات البرنامج ( يحسب السنة المالية 2015م /2016 م آلى ) 1- البرنامج يحتوى على 12 شهرا من يناير الى ديسمبر ،كل ما عليك هو كتابة البيانات فى شهر يناير فقط والبرنامج يقوم بتوزيع البيانات على باقى الشهور الى ديسمبر واذا وجد تعديل بيانات فى شهر ما تدخل على الشهر الذى تريد التعديل به وهكذا 2- تحديد البنوك من صفحة الرئيسية كما تريد 3- حساب الاجور السنوية وحساب التكملة ثم تصفيرها عند بلوغ الحد الاقصى للاجور وبالتالى لا يكون لك متبقى تحصل عليه من قسم الاجور بديوان الادارة التعليمية 4- حساب المكافأة السنوية 5- حساب انتقالات الامتحانات 6- صفحة للدفع الالكترونى للعاملين الذين يستخدموا الفيزا كارت *******أنواع الطباعة : (يوجد ازرار للطباعة آلى ) 1- طباعة المرتبات على صفحات A3 وتسليمها لديوان الادارة وخلف اخر ورقة طباعة المرايا 2- طباعة كشوف الترحيل يسمى " طباعة الميزان" 3- طباعة اوراق التأمين والنعاشات 4- طباعة المقترضين للبنوك 5- طباعة الاقساط والاستقطعات 6 - طباعة الاجور الشهرية 7- استمارة مفردة 8- مفردات مرتب للموظف البرنامج يحسب مرتبات المنتدب و نصف المدة او نصف الاجر واوائل الخريجين اختار مدرس كى يتعامل مثل الادارى والسلام عليكم ورحمة الله وبركاته لاتنسوا دعواتكم لنا بحسن الخاتمة تحميل البرنامج ]

اخى الفاضل .... المشاركة رقم 6 ... تم تعديل اللجان الى 15 كما طلبت .... برجاء تحميله ومراجعته مره اخرى تحياتى

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

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

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