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

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

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

الحمد لله رب العالمين ....

تم التطبيق على : أذا كان هذا هو المطلوب ,,,, نفذها انت على البقية kanory.accdb

مرحبا اخي جمال اعتقد لايحتاج المهم نزول الدرايفر مع مكتبات الدوت نت مثلا اكسس 2003 موجود oledb وكذلك مكتبة dao طبعا لاستخدام كاءناتها اكسس 2013 مثلا وجود ace فاذا موجوده الدرايفرز مايحتاج الاوفيس تحياتي

اخى ادخل على اعدادات الاكسيل file option advanced enable fill handle

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

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

سؤال : لما لم تفعل هذه المعادلات في الاستعلام ......... على العموم تفضل حسب طلبك .. ss_2.rar

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

تفضل ..... kanory.accdb

جرب هذا الملف كنموذج Super Adv_Filter.xlsm

تم حل المشكلة وذلك بتفعيل الأداة المرفقة عن طريق موجه الأوامر cmd وتشغيله بواسطة مسؤول النظام أولا بعد فك الضغط للملف المرفق السابق نضع المجلد myPic بكافة محتوياته في القرص C في جهاز الكمبيوتر ثم من قائمة إبدأ نكتب cmd ثم نضغط الزر الأيمن للماوس نختار Run as administrator ونقوم بتسجيل الأداة ونكتب الأمر التالي: regsvr32 C:\myPic\YsVedPic.OCX ثم نضغط Enter بعدها ستظهر رسالة أنك سجلت الأداة بنجاح وبعد ذلك يمكننا استخدام قاعدة البيانات السابقة والتقاط الصور من كاميرا الويب شاكرين لكم

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

لاجظ كا يلي 1-الخلايا F13 و F14 غير متساووين (نرى ذلك بعد أصافة كل الاعداد بعد الفاصلة) 2-لماذا لا تستعمل الدالة المذكورة في العامود الاخضر طالما انها موجودة في الملف (Order_Salim(RANK(F8,$F$8:$F$17 3- الملف كبير جداً (أكثر من 3 ميغا ) و لا أعلم السبب مع أن البيانات قليلة الملف مرفق Three_s.xls

هو أنت اللي ( عامل تنسيق ليومي الجمعة و السبت كعطلة نهاية الاسبوع) لماذا لا تذكر من وضع لك المعادلات في الملف الذي رفعته؟؟ ( كحفظ حقوق النشر لا أكثر والقليل من العرفان بالجميل) جرب هذا الكود (تستطبع التنقل ضمن الجدول بواسطة المفتاح Tab والبرنامج يقفز الخلايا الخضراء) Option Explicit Private Sub Worksheet_Activate() Application.ScreenUpdating = False Block_cells Application.ScreenUpdating = True End Sub '========================================= Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False If Target.Address = "$M$1" Or Target.Address = "$V$1" _ Or Target.Address = "$Z$1" Then Block_cells End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub '======================================= Sub Block_cells() With Sheets("Sheet1") .Unprotect .Cells.Locked = True .Range("B1:AF33").Locked = False End With On Error Resume Next Dim k% For k = 2 To 32 If Weekday(Cells(3, k)) > 5 Or Not IsDate(Cells(3, k)) Then Range(Cells(4, k), Cells(33, k)).Locked = True End If Next On Error GoTo 0 Sheets("Sheet1").Protect , EnableSelection = xlUnlockedCells End Sub الملف مرفق Protect_Abscent.xlsm

عدل الاسطر الثلاث الى هذه i = DCount("no", "tb", "tdate=#" & Me.tdate & "#" & " and chk=1") x = DCount("no", "tb", "tdate=#" & Me.tdate & "#" & " and chk=2") z = DCount("no", "tb", "tdate=#" & Me.tdate & "#" & " and chk=3")

حاضر اخي صالح دعني اقعد امام الطابعة واصورلك الاعدادات الخاصة بها

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

لقد ارسلت لحضرتك ميل

السلام عليكم ورحمة الله الشرح موجود في مربع النص بالأعلى على اليسار (وكان موجودا بالأسفل)... بن علية حاجي مصفوفة.xlsm

جزاك الله كل خير وزادك علما

السلام عليكم ورحمة الله انسخ هذين الكودين وضعهما فى حدث ThisWorkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)" Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True Application.DisplayScrollBars = True Application.DisplayStatusBar = True End Sub Private Sub Workbook_Open() Application.ScreenUpdating = False Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)" Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False Application.DisplayScrollBars = False Application.DisplayStatusBar = False Application.ScreenUpdating = True End Sub

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