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

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

لا ضرورة للحلقات التكرارية يكفي هذا Sub del_rg() Sheets("123").Range("a1:a500")="" End Sub

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

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

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

السّلام عليكم و رحمة الله و بركاته عمل أكثر من الرّائع أخي و حبيبي " حسام " .. أوّل مرّة أرى مثل هذا العمل المميّز زادك الله من علمه و فضله و نفع بك الاسلام و المسلمين خالص محبّتي

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

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء هنا ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته وتم استخدام الصور والامثلة العملية في الشرح وبصورة ميسرة وبسيطة حتى يتم استيعابها بالصورة المطلوبة وتم تقسيم العمل الى ستة ملفات وبصورة تسلسلية اخوكم عماد الحسامي الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar الدروس السته مجمعه.zip

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

كود اسرع Sub AAA() Dim i As Integer With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With For i = 1 To 5000 Cells(i, 1) = Null Next With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub

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

و عليكم السلام و رحمة الله و بركاته ... طريقة طرحك للمواضيع جميلة جدا , ربي يبارك بك ... او حدث " بعد التحديث " للحقل P و حقل Q او نضع المعادلة =P*Q كـ"القيمة الافتراضية " للحقل T

حلو ... دائما توجد اكثر من طريقة للحل ... لكن عندما يكون لديك الاف السجلات للتعامل معها , سيكون فرق في وقت معالجة البيانات بين طريقة و اخرى ... و اظن ان تكون البيانات جاهزة في ( الجدول أو الاستعلام ) ,,, اسرع في فتح ( النموذج او التقرير ) اي اسرع في معالجة البيانات ...

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

جزاك الله كل خير إن شاء الله سأفعل وطبعاً نسخة 2013 ، 2016 ليست بحاجة لهذه الأداة ، لأن تنسيق pdf يكون اساسياً .

و عليكم السلام و رحمة الله و بركاته مرحبا بك اخي

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

السلام عليكم أخي الكريم بحار الأكسس .. جزاكم الله خيراً على الكلمة الطيبة ...بارك الله بكم..

كلك زوق استاذ محمد انا شخصيا استفت من حضرتك

السلام عليكم بعد إذن إخوتي الكرام أخي الكريم أرجو أن يكون به جواباً لسؤالك. 2016.rar

شكرا لتعاون سيادتكم أ/ عبدالسلام ابوالعوافي أ/ محمد حسن المحمد

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

ما شاء الله رائع الكود ينفع للباب الجرار و شيش الحصيره تحياتى لمشاركاتك الرائعه

هذا الكود لمنع النسخ ارجو ان يفيدك ضعه فى الشاشة الافتتاحية فى خاصية عن الفتح Option Compare Database Private Sub Form_Open(Cancel As Integer) If CurrentProject.Path = "D:" Then If CurrentProject.Name = "اسم البرنامج.mdb" Then Else MsgBox "تم تغير اسم البرنامج يجب ان يكون بالاسم الاصلى " & vbCrLf _ & "لذا سيتم اغلاق البرنامج حتى يتم تصحيح البرنامج" DoCmd.Quit End If Else MsgBox "تم تغيير مسار البرنامج " & vbCrLf _ & "لذا سيتم اغلاق البرنامج حتى يتم تصحيح البرنامج" DoCmd.Quit End If End Sub

السلام عليكم استاذ ياسر بصراحة لو في MEGA LIKE فأنت تستحقها بارك الله فيك وجزاك الله كل خير

استاذ سليم .. يمكنك ان تطبق الكودين علي الخلايا المفلترة وتجد الفرق .. كودك صحيح في حالة الخلايا المخفية وليست المفلترة

الحمد لله يا أبو صلاح أن تم المطلوب على خير ومشكور على دعائك الطيب ، ولك بمثل إن شاء الله تقبل تحياتي

هل الموضوع تم طرحه من قبل؟ أعتقد أنني رأيت الطلب من قبل في أحد الموضوعات .. يرجى التركيز في موضوع واحد وعدم تكرار الموضوعات بدون داعي ..يكفي أن تكتب كلمة "للرفع" .. ليشاهده معظم الأعضاء تقبل تحياتي

عمل رائع ممتاز ومحترف بارك الله فيك

بسم الله الرحمن الرحيم رد على المشاركه مرفق ملف برنامج تكاليف سريع السلام عليكم Cost_01.rar

غير تنسيق الخلايا الي عام او رقم

هذا الكود يسمح الخلايا المخفية Sub AAA() Dim rng As Range For Each rng In Sheets("123").Range("A1:A500") rng = "" Next End Sub

ماشاء الله عليك أخي كرار الله يباركلك في علمك إن شاء الله. بعد إذنك حبيبي أنا حليت المشكل بنفس الكود لكن بطريقة أخرى و هي: إدراج هذا الحقل في التقرير و تسميه مثلا "نص7" و نجعله مخفي. ثم تضيف مربع نص غير منظم و تكتب فيه الكود التالي: ([نص7];"لا يوجد";is null[نص7])IIf =

تسلملي ياريس حبيبي ابو البراء واضح ان مفيش متغيرات مش متعرفه اخي الكريم ابو عبد الباري ولا اجمل ولا اروع من ردك تقبلوا فائق احترامي

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

يا سلام استاذ ياسر دائما حاضر بالرد تسلم تسلم بارك الله فيك وجعله الله في ميزان حسناتك

السلام عليكم تم انشاء قاعدة بيانات 2003 نسأل الله العون و القبول VBALIBRARY2003.rar

هبعتلك نجار يزيته تسلم يا غالى ربنا ما يحرمنا منك تقبل تحياتى

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

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

السلام عليكم ورحمة الله نضع لكم اليوم طريقة تحويل الدالة Vlookup الى كود مثالين احدهم عند الضغط على زر يتم جلب البيانات والاخر عند كتابة الكود يأتي بالنتيجة مباشرة المثال الاول الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim myrg1 As Range If Target.Column = 10 Then Set myrg1 = Sheet2.Range("b5:e30") On Error Resume Next Application.ScreenUpdating = False sheet1.Range("k" & Target.Row & ":" & "m" & Target.Row).ClearContents sheet1.Cells(Target.Row, "k") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 2, 0) sheet1.Cells(Target.Row, "l") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 3, 0) sheet1.Cells(Target.Row, "m") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 4, 0) Application.ScreenUpdating = True End If End Sub للتحميل اضغط هنا المثال الثاني الكود Sub Yasser() Dim myrg1 As Range Dim i As Long Set myrg1 = sheet1.Range("b5:e30") For i = 6 To 30 Application.ScreenUpdating = False On Error Resume Next sheet1.Cells(i, "k") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 2, 0) sheet1.Cells(i, "l") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 3, 0) sheet1.Cells(i, "m") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 4, 0) Next i Application.ScreenUpdating = True End Sub للتحميل اضغط هنا تقبلو تحياتي

السلام عليكم سلمت يداك و بارك الله فيك

اسم المستخدم امامك مكتوب (وليد) كلمة المرور كذلك مكتوب (1) الاخ / MENA2008 التاريخ حسب تسجيلك انت تسجل ميلادي او هجري يقبل كليهما اما العملة فيمكنك الدخول الي البرنامج بالضغظ على شفت وانتر والتعديل من الخصائص العملة المرادة بدلا عن $

السلام عليكم ورحمة الله أستاذنا الغالى طريقة الموضوع تعجبنى فهى تجعل الطالب يبحث عن المعلومة والاستاذ يقيم و اسمح لى أستاذى بأن أشارك بهذه الطريقة : ضع الكود الكود التالى فى ملف الأستاذ سليم اللى هو 5 ميجا Option Explicit Sub ExcelDiet() Dim j As Long Dim k As Long Dim LastRow As Long Dim LastCol As Long Dim ColFormula As Range Dim RowFormula As Range Dim ColValue As Range Dim RowValue As Range Dim Shp As Shape Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each ws In Worksheets With ws 'Find the last used cell with a formula and value 'Search by Columns and Rows On Error Resume Next Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) On Error GoTo 0 'Determine the last column If ColFormula Is Nothing Then LastCol = 0 Else LastCol = ColFormula.Column End If If Not ColValue Is Nothing Then LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column) End If 'Determine the last row If RowFormula Is Nothing Then LastRow = 0 Else LastRow = RowFormula.Row End If If Not RowValue Is Nothing Then LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row) End If 'Determine if any shapes are beyond the last row and last column For Each Shp In .Shapes j = 0 k = 0 On Error Resume Next j = Shp.TopLeftCell.Row k = Shp.TopLeftCell.Column On Error GoTo 0 If j > 0 And k > 0 Then Do Until .Cells(j, k).Top > Shp.Top + Shp.Height j = j + 1 Loop If j > LastRow Then LastRow = j End If Do Until .Cells(j, k).Left > Shp.Left + Shp.Width k = k + 1 Loop If k > LastCol Then LastCol = k End If End If Next .Range(.Cells(1, LastCol + 1), .Cells(.Rows.Count, .Columns.Count)).EntireColumn.Delete .Range("A" & LastRow + 1 & ":A" & .Rows.Count).EntireRow.Delete End With Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub احفظ الملف بصيغة xlsb شوف حجمه ستجد أنه نزل للنصف تقريبا ثم افتح الملف وشغل الكود السابق ثم احفظ الملف واقفله شوف حجم الملف ستجد أنه 32 كيلو بايت اللى حصل هنا أن اكسل أعاد حساب النطاقات الغير مستخدمه فى الملف وحذفها تحياتى

السلام عليكم ورحمة الله وبركاته الدرس السادس 7-Conditions الشروط وسوف نتناول فى هذه الدرس الاتى انشاء الشرط بواسطة if استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if استخدام Select Case بعض الشروط التى شائعة الاستخدام ........................................... انشاء الشرط بواسطة if يتم انشاء الشرط بواسطة if وطالما كان هناك شرط اذا لابد ان تكون هناك نتيجه تتحقق بتوافر الشرط ام بعدم توافره ففى حاله توافر الشرط نستخدم كلمة then وفى حالة عدم توافر الشرط نستخدم كلمة else ثم فى النهاية لابد ان يتم اقفال الشرط if ب end if If الشرط Then ماذا سيحدث فى حالة تحقق الشرط Else فى حالة عدم تحقق الشرط ماذا سيحدث فى حالة عدم تحقق الشرط End If نهاية قاعدة الشرط مــثــــــــــــــال نريد فى حالة وجود الرقم 10 فى الخليه a17 يتم كتابة الرقم صحيح فى الخليه b17 واذا كان الرقم لايساوى الرقم 10 يتم كتابةالرقم خطأ فى الخليه b17 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions() If [a17] = 10 Then ' A17 هنا نقول انه فى حالة وجود الرقم 10 فى الخليه 'Then يتم ' الرقم صحيح B17 اعطاء الخليه [B17] = "الرقم صحيح" Else 'Else فى حالة عدم وجود ارقام غير الرقم10 ' الرقم خطأ A17 اعطاء الخليه [B22] = "الرقم خطأ" End If 'End If..... IFنهاية الشطر End Sub استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if مـثـــــــــــــــــــال نريد اذا كانت الخليه a23 بها الرقم 10 يتم كتابة a10 فى الخليه a24 واذا كانت a23 بها الرقم 20 يتم كتابة a20 فى الخليه A24 واذا كانت a23 بها الرقم 30 يتم كتابة a30 فى الخليه A24 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions1() If Range("A23") = 10 Then Range("A24") = "a10" ElseIf Range("A23") = 20 Then Range("A24") = "a20" ElseIf Range("A23") = 30 Then Range("A24") = "a30" Else Range("A24") = "خطأ" End If End Sub استخدام Select Case يمكننا استخدا مها فى حالة توافر اكثر من شرط Select Case كتابة معطيات التى يبنى عليها الشرط Case Is الشرط الاول النتيجه Case Is الشرط الثانى النتيجه Case Is الشرط الثالث النتيجه Case Else ' فى حالة عدم تحقق اى من الشروط النتيجه End Select ' Select Case نهاية مـثـــــــــــــــــــال نريد اذا كانت الخليه a45 بها الرقم 10 يتم كتابة a10 فى الخليه a46 واذا كانت a45 بها الرقم 20 يتم كتابة a20 فى الخليه A46 يتم كتابة a30 فى الخليه A46 شاهد الصوره قوم بانشاء قاعده بيانات مكون من عمود واحد به اسماء معينه من A الى D ونريد عند كتابة اسم معين فى الخليه A22 واذا كان هذا الاسم موجود ضمن الاسماء يتم كتابة الاسم صحيح فى الخليه B22 واذا كان غير موجود ينم كتابة الاسم خطأ

بعد اذن السادة الاعضاء طريقة وضع الكود ومكانة 1/ اضغط كليك يمين علي اي ورقة من اوراق الملف واختار عرض التعليمات البرمجية 2/ اضغط علي thisworkbook 3/ افتح الصندوق علي اليسار واختار workbook 4/ في الحدث open اكتب الكود Private Sub Workbook_Open() Sheets(3).Select End Sub

هذه قاعدة البيانات بها تصدير للاكسيل 2010 ، 2003 افتح القاعدة قم بتمكين الماكرو اختر اسم مستخد ستكون له كلمة السر نفس اسم المستخدم الذي اخترته المستخدم باسم ali له كل الصلاحيات اما Ahmed له بعض الصلاحيات قاعدة البيانات هذه تمت بمساعدة الاخواة الافاضل في المنتدى الكريم TheFinal.rar

السلام عليكم مرحبا بك أخي الكريم بين إخوانك أولا لتجعل الاكسل يفتح على شيت معين عند بدأ التشغيل ، مثلا الشيت الثالث 3 ضع الكود التالي في حدث الملف Workbook Private Sub Workbook_Open() Sheets(3).Select End Sub ثانيا لتجعل خلية معينة= اسم الشيت أكتب بها هذه المعادلة =RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))