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

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

الشكر لله اولا ثم للاساتذة الذى تعلمنا منهم كثيرا و مازلنا

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

بعد اذن ا / سليم طبعا teachers.rar

تغير الفلدر الافتراضي ل GetOpenFilename المعروف عند استخدام GetOpenFilename فأن الديالوج بوكس يفتح على الفلدر الافتراضي وهو My Documents ولا يمكن تغيره ولكن يمكن اجبار GetOpenFilename علي تغير الفلدر الافتراضي لها الي أي فلدر نريد بإستخدام دوال API Functions كما في هذا المثال سوف تفتح علي الفلدر الحالي لهذا الملف GetOpenFilename.rar

الاخ صلاح الصغير نسخة اسرع بأستخدام المصفوفة شاهد المرفق Master_3.rar

جرب هذا الملف القائمة المنسدلة مطاطة (تستجيب لاي تغيير في البيانات ولا تذطر المطرر الا مرة واحدة) احصاء زبائن الفروع salim.rar

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

فكرتي إليكم هي عمل كاشير للمبيعات بأزرار معرفة بصور الأصناف .. الفكرة طبعا غير مكتملة لكثرة تطرق كثير من الأعضاء بفورم الترحيل.. ولكن الهدف هي تغيير نمط التفكير والانطلاق بطريقة مميزة ومألوفة للمبيعات.. أترككم مع الملف. ملاحظة: لتعديل الكميات والحذف دبل كليك على الصنف. بانتظار آراءكم وتقبلوا تحياتي القلبية testcasheir.rar

لغير متابعي موضوع ( VLOOKUP ) من البداية حتى الاحتراف حيث تعرضنا فية للدالة INDIRECT شرح الدالة INDIRECT INDIRECT.rar ........................................................... اتمنى ان يمثل الملف إضافة بسيطة

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

ربما يكون الحل teachers.rar

كلمة Delete تقوم بالحذف وليس مسح المحتويات ، أما ClearContents هي التي تقوم بمسح المحتويات وليس الحذف

بارك الله فيك أستاذنا الكبير أبوتامر يوجد كود لا يستلزم استدعاء API .. Sub Test_GetOpenFilename() ' ChDir ThisWorkbook.Path PicList = Application.GetOpenFilename(FileFilter:="Picture Files (*.jpg;*.gif;*.png;*.bmp;*.tif;*.Emf;*.jpeg;*.GIF),*.jpg;*.gif;*.png;*.bmp;*.tif;*.Emf;*.jpeg;*.GIF", Title:="Please Choose An Image", MultiSelect:=True) ' End Sub

جرب الكود التالي في حدث المصنف Private Sub Workbook_Open() Dim Answer As Integer Answer = MsgBox("Do You Want To Continue", vbYesNo + vbQuestion, "YasserKhalil") If Answer = vbYes Then MsgBox "Welcome To Officena", 64 ElseIf Answer = vbNo Then MsgBox "You Cancelled Opening Workbook. Goodbye", vbExclamation ThisWorkbook.Close False End If End Sub

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

لا تبحث عن المعادلات بالطربقة التقليدية (~+Ctrl+Shift) بعد الان اكسل يلوّن لك الخلية التي تحتوي على معادلة بمجرد كتابتها والضغط على Enter تلوين المعادلات.rar

تحديث للمرفق: تم إضافة إمكانية التعديل على الأكواد Items Coding System V2.rar

حللت أهلا ونزلت سهلا مرحبا بك مرة أخرى أخي العزيز الخطأ يكمن في كود الترحيل كما يأتي : أولا : If Cells(R, 64) = "ناجحة" Then هذا السطر يخبر الكود بأنه إذا كان مكتوب في العمود رقم 64 كلمة ناجحة فقم بترحيلها والخطأ هو أن كلمة ناجحة أو دور ثان موجودة في السطر 62 وليس 64 ثانيا : ElseIf Cells(R, 64) = "دور ثاني" Then في هذا السطر اثنين من الأخطأء 1) الرقم 64 يحول إلى 62 كما تم الشرح أعلاه 2) لا يوجد في برنامجك عبارة "دور ثاني" وإنما يوجد عبارة "دور ثان" لاحظ حرف الياء في آخر العبارة الموجودة في الكود الأكسل حساس جدا تقبل تحياتي

اخى العزيز جلال محمد المشكلة كلها تكمن فى الجزء الذى ذكرتة فى المشاركة السابقة وبالتحديد فى هذة الجزئية (Total!N13:BX146=""غ"") النطاق الذى يبحث فية عن الغياب ليس خاص بكل مادة ولكن خاص بالمواد كلها وهذا خطأ من الممكن تعديلة ليكون بالنسبة مثلا للغة العربية (Total!p13:p146=""غ"") ويتم تغيير اسم العمود مع كل مادة المشكلة ان اسماء الأعمدة غير منتظمة ( هيا بنا الى الصيد بعد ان توافرت ادواته )

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

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

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

السلام عليكم ورحمة الله وبركاته أخي وأستاذي الكريم خالد الرشيدي المحترم بما أنك أهديته لوالدتك الكريمة فإنني أدعو الله تعالى أن يتغمدها برحمته وأن يجعلها ووالديّ وأموات المسلمين أن يجعل كتابهم في عليين وأن يجعلهم من أهل جنات النعيم ..آمين. أما أنت - فإنني أقول كلمة الشكر لا تفيك حقك وجزاء تعبك ...فإنني أقول - جزاكم الله خيراً وأثابكم على هذه الأعمال البديعة - والتي أرجو أن تكون أثراً صالحاً تتداوله الأجيال القادمة بشغف والسلام عليكم.

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

شكرا جزيلا جزاك الله خيرا

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

بسم الله ما شاء الله الله جزاك خيرا ممتاز

شكراً لحضرتك على هذا الكتاب الرائع . وربنا ينفعنا به لان محتاج اعرف vba لانى لسه مبتدئ وربنا يبارك فى حضرتك وفى المنتدى الرائع

جزاك الله خير

بارك الله فيكم

اخى وحبيبى الجموعى صاحب الروائع والنوادر كل يوم تصر انك تبهرنى بشئ جديد احلى من اللى قبله زادك الله علما اخى الحبيب بس ملحوظه صغيره لو انا نسيت كلمة مرور الورقه فمن الطبيعى انى مش هقدر اعمل زر داخل الورقة واعيين علية الماكرو لفك الباسورد لذالك سوف نقوم بتعيين زر بورقة اخرى وتعيين عليها الماكرو فبعد اذنك عملت تعديل طفيف على الكود حتى يتم فك الورقة من زر اخر بورقة اخرى الكود هو Sub enleve_protection() Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer On Error Resume Next For a = 65 To 66 For b = 65 To 66 For c = 65 To 66 For d = 65 To 66 For e = 65 To 66 For f = 65 To 66 For g = 65 To 66 For h = 65 To 66 For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 32 To 126 Sheets("الجموعى").Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) If Sheets("الجموعى").ProtectContents = False Then MsgBox " تم إلغاء حماية ورقة " Chr (c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub فقط يتم عمل زر فى صفحه اخرى غير الورقة المراد فك الباسورد لها وتعديل بدلا من الجموعى اسم الورقة المطلوب فك الباسورد لها تقبل تحياتى كود إلغاء حماية ورقة ملف إكسل.zip

بارك الله فيك وزادك من علمه

تم تحميل الكتاب تحياتي لكم فعلا اكثر من رائع نتمنى مكتبة اكثر بخصوص هذا الموضوع

تم تحميل الكتاب تحياتي لكم فعلا اكثر من رائع

بارك الله فيك اخي العزيز

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

الاخ ا لرشيدي جزاكم الله خير الجزاء، داعياً القدير أن يوفقكم ويحفظكم من كل شر، إنه سميع مجيب.

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

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

https://www.facebook.com/learn.excel07/posts/731329126891228?ref=notif&notif_t=notify_me

أخي / خالد الرشيدي جزاك الله خير

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

بارك الله فيك ...

بارك الله فيك أخي العزيز وجزاك خيراً على هذا العمل الرائع والمفيد . تقبل تحياتي

يسلموا ايديك وبارك الله فيك وزادك من المعرفة

شكرا لك تم التحميل

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

حاول تصفح هنا