الفدائي

الاخ خالد تقصد مثلا تعطيل عملية القص او النسخ مثل الاتي : Application.CutCopyMode = False لكن مع ايقونات الريبون الكثيرة هذه نحتاج لاكواد كثيرة وبحث هنا وهناك لتعطيل ما نريد انظر الملفات المرفقة التي كنت قد حصلت عليها من احدى المنتديات الاجنبية احدهم به اوامر لتعطيل بعض المجموعات المخصصة من الريبون ( انظر المجموعات الجديدة اقصى يمين الريبون عند الضغط على الازرار ) - والاخر للاخفاء Enable-Disable custom Ribbon buttons in Excel .zip Hide-Display-Built-in Tab-Group.zip

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

الإخوة الأعزاء , لقد استفدت ايما فائدة من هذا المنتدى , جزى الله عنا اخواننا خير الجزاء الفكرة : جمع الاكواد التي غالبا ما اتعامل بها في برامجي ووضعها في ملف وربطها بصورة ظريفة وجذابة بحيث يمكن الرجوع لهذه الاكواد في اي وقت المشروع مفتوح ويمكن لاي شخص ان يضيف له ما شاء من الافكار والاكواد المفيدة وكتابة وصفها في مشاركته لتسهيل عملية البحث ويظل مثل حقيبة المجوهرات . فعندما يبحث احدنا عن الاتي : - كود لإخفاء الريبون Ribbon أو إخفاء شريط الحالة Statusbar والشيت Sheet tabs - كود لإغلاق الخلايا Lock area ( وليس حمايتها ) من التعديل ما عدا التي تحددها انت . - كود لإخفاء اشرطة التمرير Scroll bars وتعطيل عجلة الماوس Mouse wheel - كود لمربع النص بان لا يقبل اي حرف او رمز الا الأرقام فقط Numeric - كود بان لا يغلق الاكسل الا بعد التحقق من شيء معين - اكواد مقارنة القيم واظهار الرسائل المختلفة . ...... الخ كلها سيجدها هنا مفصلة اتمنى ان تنال الفكرة اعجابكم خاصة المبتدئين امثالي اسألكم الدعاء وشكرا , أخوكم : الفدائي __________________________________________ Electronic-Beggar.zip

أخي اطلع على المواضيع التي طرحها لك الأخ Bluemind وتفحص المرفقات عسي لعلك تجد الحل أو مفتاح الحل فيها

أخي العربي انا لم أفهم الفرز الذي قمت انت به - هل الهدف منه فقط الترتيب الأبجدي ؟ اذا كان الجواب نعم فالامر سهل فقط اعمل استعلام واجعله A to Z ثم اعمل تقرير لهذا الاستعلام - أما لو الفرز ليس للترتيب الابجدي فالامر يحتاج لخبير وانا لست من الخبراء المهم هذي محاولة مني للترتيب حتي لو لم تفي بالغرض يمكنك الاستفادة من الفكرة ستجد زر معاينة التقرير الجديد لم اتمكن من الارفاق كل مرة يعطيني فشل لذا رفعته علي ميديا فير http://www.mediafire...bc4qyvrem1yasbm _____________ أخوك الفــــدائي SearchFor Fixing_2.zip

بارك الله فيك أخي العزيز نسال الله ان يكون هذا العمل خالصا لوجهه الكريم كما ندعوه سبحانه وتعالى أن يوفقك لما فيه الخير ويدخلك الجنة ويغفر لك ولوالديك ....... اللهم آميـــــــــــــن

الاخوة الأعزاء كدت انتهي من برنامجي الذي كنت أعمل عليه بمساعدة مجموعة من الاخوة وعلى رأسهم ALIDROOS ( أبو نصار ) والأخ عبد الله المجرب وطارق جزاهم الله الف خير - في المواضيع التالية : http://www.officena....03 http://www.officena....58 http://www.officena....38 http://www.officena....05 http://www.officena....20 ________________________________________ وأنا على مشارف انهاء البرنامج واجهتني مشكلة وهى أنه في حالة حدوث أي اغلاق مفاجئ أو غير طبعي للبرنامج يظل Excel.exe يعمل في الخلفية وعند فتح البرنامج مرة أخري يواجه مشكلة بسبب البروسيس المفتوحة - أريد أن اضع كود يعمل فحص اذا كانت هناك أي بروسيس مفتوحة يقوم باظهار رسالة ثم يقتلها Kill Process أو يفتح طبيعيا ان لم يوجد شئ - واظنه يكون في حدث التحميل Load للفورم الرئيسي بحثت ووجدت مثل هذا الكود لكنه لا يعطي رسالة واحيانا يعطي خطأ : Sub Close_Excel() Dim strClsExl As String strClsExl = "TASKKILL /F /IM Excel.exe" Shell strClsExl, vbHide End Sub فهل من اقتراح للتعديل على الكود أو اضافة اي جديد ؟ بارك الله فيكم __________ أخوكم الفدائي

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

بارك الله فيكم اخواني : فبعد اذنكم طبعا الحل عند يحياوي جزاه الله الف خير لكني فقط اريد ان اضيف توضيحا للمسألة : قبل كل ذلك لابد ان تظهر الملفات المخفية 1 - اذا كنت تستخدم ويندوز Xp فعليك الذهاب الي : C:\Documents and Settings\MyUserName\Local Settings\Application Data\temp طبعا MyUserName هي حسب اسم المستخدم عندك 2 - اذا كنت تستخدم ويندوز 7 فعليك الذهاب الي المسار الذي ذكره الاخ يحياوي الطريقة الثانية وهي التي أفضلها لانها سريعة ولا تعتمد علي الملفات المخفية : * المسارات التي سبق ذكرها يمكن اختيارها في أمر واحد في كل من اكس بي وسفن : افتح الرن Run واكتب الامر التالي ثم انتر ستجد المسار فتح تلقائيا : %temp% %temp% تعني الملفات المؤقتة الخاصة بالمستخدم الحالي هذه الطريقة ايضا يستخدمها برنامج الاوتوبلاي ( الخاص بالاسطوانات التجميعية All In One =AIO ) والوينرار عند فتحهما معومة زيادة : الكود السابق خاص طبعا بالمستخدم أما الملفات المؤقتة الخاصة بالويندوز والتي توجد في مجلد الويندوز فلا تضع فيها علامات النسبة المئوية بل اكتبها مجردة هكذا : temp ___________________________ أخوكم الفدائي

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

هذه المشاركة هي لتعطيل خيار الكليك رايت لحماية الفورم ووضع فورم معين يفتح مع الاكسس أهم شيء من خصائص الفورم الرئيسي لازم يتم تمكين زر الاغلاق وضبط خصائص الفورم (انظر خصائص الفورم المرفق ) لانه لو لم يتم تمكين زر الاغلاق فلن تتمكن من الدخول للقاعدة وذلك بالضغط على مفتاحي Alt+F4 مباشرة بعد فتح القاعدة ايضا وضعت زر اغلاق في الفورم الرئيسي سيقوم باغلاق برنامج أكسس نهائيا ومنه وضعت روابط للاشياء الاخرى أخفيت الجداول والاستعلامات وتغيير الايقونة الى mde ....المهم بعد تنزيل المرفق سترى التعديلات التي قمت بها. طبعا اصبح شكل البرنامج بالنسبة للمسخدم العادي كأنه برنامج exe وليس ملف أكسس لوضع فورم معين يفتح مع الاكسس ايضا اذهب لخيارات Current Database ثم اختار من Display Form ستجد قائمة بالفورمات المتوفرة لفك تعطيل الزر الايمن يتم من خيارات الاكسس ثم تختار --> Current Database --> تم تقوم بازالة التحديد من الخيارين Allow full Menus و Allow default Shortcut Menus ملاحظة مهمة : بعد تنزيل المرفق وضغط Alt+F4 لن تجد قائمة خيارات الأكسس ولن تتمكن بالضغط الايمن للماوس من فعل اي شيء في القاعدة ولكن بالظغط يمين علي قائمة الاكسس أعلى واختيار Customize Quick Access Toolbar ستتمكن من الوصول لخيار Current Database ----> هذا لاصحاب أكسس 2007 لكن اصحاب اكسس 2010 عندما يضغطون علي القائمة سيظهر لهم خيار Privacy Contents ومنه سيصلوا لـ Current Database DataBase with disabed right click.rar

الحمد لله توصلت للإجابة ونضعها للأخوة لتعميم الفائدة ( التطبيق على اكسس 2007 ) للاخوة المبتدئين مثلي : 1- لجعل حقل معين يتلون الي اللون الاحمر عندما يتبقى 7 ايام لانتهاء التاريخ : يجب اختيار الريبورت في وضع التصميم واختيار جميع الحقول ( طبعا في هذا الوضع تكون اسماء حقول وليت الحقول نفسها) الذهاب لقائمة Design تحت Report Design tool واختيار Expression ثم غير المربع الاول الى Expression is وضع الكود حسب المدة الزمنية المحددة اعتمادا على حقل تاريخي سابق ( عندي هنا InsuaranceEnd ) وهذا هو الكود : [InsuranceEnd]<=Date()+7 ويمكن تغيير الرقم .أما اذا تركته خالي من أي رقم فهذا يعني تاريخ اليوم Date() واترككم مع الصور : 1- الصورة الأولى : 2- الصورة الثانية ملاحظة : امتداد الملف هو نفس امتداد اكسس 2007 و 2010 لكني غيرته الى Mde لتغيير شكل ايقونة الاكسس ( المشاركة التالية ستكون لتعطيل Click right من اجل حماية الفورم من التعديل والسيطرة على واجهة الاكسل ) ____________________________ صور الشرح مرفقة وكذلك مرفق قاعدة بيانات تم فيها تمكين زر الماوس الايمن لتطلعوا على تأثير التنسيق المشروط هذا بتاريخ 29/12/2011 طبعا بعد هذا التاريخ لفترة يجب على كل من ينزل المرفق ان يغير تاريخ الحقل ( InsuaranceEnd ) DataBase with format condition.rar

الأخوة الأعزاء لدي قاعدة بيانات لتأمين سيارات مختلفة (مرفقة) سؤالي هو : كيف أقوم بجعل سجل معين يتلون في الريبورت (وليس قاعدة البيانات) عندما يتبقي شهر يتلون لأصفر وعندما يتبقى 7 أيام يتلون لأحمر - طبعا وجدت موضوع يتحدث عن تغيير الالوان اعتمادا على التاريخ لكنه يظهر في قاعدة البيانات وليس الربيورت . ________________________________________________ ثانيا : أريد أن أخفي واجهة الأكسل والجداول والابقاء فقط على الفورمات(Forms) والريبورتات(Reports) عندي( 2 فورم و 2 ريبورت ) ولا اريد أي زر فقط زر الحفظ في الفورمات وزر Refresh في الريبورتات من لديه الوقت فليتفضل مشكورا بتقديم المساعدة وأجره على الله NeedHelpInDB.zip

اتعبتك معي أخي طارق ..... العفو اذن ما علمته ان N هي المتغير الذي يحمل رقم صف آخر خلية ولكتابة متغير داخل صيغ المعادلة لابد من وضعه داخل علامتي تنصيص و آند هكذا "&&" لكن لا توجد علامة فاصلة بنهم (,) بل القيمة مضروبة في المتغير مشكووووور كتير ..... نسال الله ان يعلمنا علما نافعا ____________________________ هل يوجد موضوع يشرح أكواد كهذه مثلا بالترتيب ؟ اقترح ان نجمع جميع شروحات الاكواد وتنقيتها من المشاركات لتكون مرجعا لمن أراد الرجوع اليها أو وضعها في كتاب واحد PDF

سؤال في نقطة معينة من شرح الكود للاخ طارق - جزاه الله الف خير في السطر الاخير للكود : SUM(H1:H" & N & ") H1:H --> الايعني اختيار مجموع العمود H من أوله الى آخره ؟ ثم ما ذا تعني : " & N & " ولماذا علامتي التنصيص " " و & ؟ ( من الشرح معلوم انها رقم صف للخلية الاخيرة لكن ما وظيفتها ؟)

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

أولا الشكر كل الشكر للاخوان العيدروس والأخ عبد الله لمساهمتهم في الموضوع الاتي : http://www.officena....showtopic=39886 جعل الله ذلك في ميزان حسناتهم ووفقهم لما يحب ويرضى اريد معرفة عمل هذا الكود بالتفصيل وهل يمكن تعميمه لأي عمود نختاره Sub dural() Dim N As Long N = Cells(Rows.Count, "H").End(xlUp).Row Cells(N + 1, "H").Formula = "=SUM(H1:H" & N & ")" End Sub __________________________________ سؤال آخر بسيط : الكود الاتي يقوم بادراج المعادلة الي نهاية ورقة الاكسل يعني حوالي 65 الف صف هل يمكن التعديل عليه بحيث يدرج المعادلة حتى نهاية الجدول فقط ؟ Worksheets(CurrentSheetName).Range("I12", Range("I12").End(xlDown)).FormulaR1C1 = "=rc[-1]*rc[-2]" وجزاكم الله الف خير أخوكم : الفدائي

بارك الله فيك اخي عبد الله .... فعلا هذا الموضوع يكون مضمنا في مواضيع اخرى لذا لا يوجد عنوان مستقل عنه عندما بحثت في المنتدى طبعا انا لا اعمل على اكسل مباشرة من VBA بل اعمل على تصميم برنامج باستخدام VB6 ومن ضمن وظائفه العمل على ورقة اكسل طبعا استفدت من كود الاخ العيدروس (السطر الاخير فقط -جمع النطاق) لاني مسبقا تمكنت من عمل كود يقوم باختيار اخر خلية من العمود باستخدام Offset وهذا هو : With Worksheets(CurrentSheetName).Range("H" & Rows.Count).End(xlUp).Offset(1, 0) .Formula = "=sum (؟؟؟؟؟؟)" End With فاصبحت المشكلة عندي ما هي صيغة المعادلة التي يجب كتابتها بدل ؟؟؟؟؟؟ فجزاكم الله الف خير والمرفق الذي تقدمت به حقا ممتاز نتمنى ان نرى مشاركات تخص فيجوال بيزك والتعامل مع اكسل بصورة غير مباشرة طبعا انا اعمل واجمع واستخلص النتائج ولا ارى ورقة اكسل بعيني بل من واجهة البرنامج فقط ان شاء الله بعد الانتهاء من البرنامج سارفق السورس كود ونناقش جميع الأكواد المستخدمة فيه بارك الله فيكم والسلام عليكم ورحمة الله

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

مثلا اريد جمع محتويات العمود A ويكون الناتج في اخر خلية فارغة مع العلم ان طول العمود متغير احيانا يحتوي على بندين فقط واحيانا 15 بند وشكرا ,,,

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

أخواني الأكارم تحية لكم وخاصة الأخ العيدروس جزاه الله الف خير لتفاعله مع موضوعي الاتي : http://www.officena....showtopic=39788 حتي توصلنا لحل المشكلة . اليوم السؤال هو كيف يتم نسخ صف بكامل خصائصه للذي يليه ؟ وكيف يتم جعل الخلية الأخيرة ديناميكية وبها دالة؟ طبعا اكيد تمت مناقشة مثل هذه الاشياء في اطار VBA ولكني اقصد VB6 والتعامل مع الاكسل فيها ليس مباشر فمن كان لديه الوقت والمعلومة فليتكرم بمدنا بالحلول المناسبة وله مني دعوة خاصة واجره على الله . بارك الله فيكم ............... أخوكم الفدائي الطلب مرفق ايضا: NeedHelpInVb6.rar

الحمد لله تم التوصل للحل بهذا الكود Public Exl As Excel.Application Public MyDB As Excel.Workbook Public xlSheet As Excel.Worksheet Private Sub Command1_Click() Set MyDB = Excel.Workbooks.Open(App.Path & "\MyDB.xls") Set xlSheet = MyDB.Worksheets.Add xlSheet.Name = "sheet_name" " عندي اسم الشيت متغير في تكس بوكس لذا السطر الاخير عندي هو : xlSheet.Name = text1.text مع ملاحظة ان الكود السابق المتغير فيه هو اسم الشيت وفي هذا الكود المتغير هو الشيت نفسه في الكود الاول لم يتم استدعاء وفتح ملف الاكسل اما هنا فتم ذلك كذلك ما دام ياخذ الاسم من تكست بوكس تم تجاهل شروط طول الاسم ووضع رسالة التحذير للتكست بوكس وليس لزر الاضافة وان شاء الله اسعى لاكمال البرنامج ووضع اي كود اراه مهم للاخوة هنا لتعم الفائدة ملحوظة مهمة : هذه الأكواد للتعامل مع Vb 6 لعمل برنامج مستقل وليس VBA الشائعة في المنتدى هنا لذا الأخوة الذين يطلعون عليه أخذ الحذر في التعامل معه لان في هذه الفكرة انت لا ترى اي ملف اكسل ولا ورقة الا اذا قمت بادراج امر : xlApp.Visible = True __________________________ كود لانشاء ملف اكسل غير موجود اصلا والتعامل معه اولاً يجب إضافة مكتبة اكسل من قائمة Project > References Microsoft Excel 11.0 Object Library ( الرقم 11 تعني اوفيس اكس بي 2003) كود إنشاء ملف اكسل وتسمية ورقة العمل الاولى بــ Sheet وحفظ الملف على C Public xlApp As Excel.Application Public xlBook As Excel.Workbook Sub CreateNewWorkBooks() Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Windows(1).ActiveSheet.Name = "sheet" xlBook.SaveAs FileName:="C:\file_name.xls" xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub : اما اذا اردت حفظه في دليل البرنامج دون التقيد باي درايف استخدم هذا الكود ("App.Path & \MyDB.xls") ______________________

شرح ممتاز بارك الله فيكم