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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله يوجد موضوع مثبت في الموضوعات في صدر المنتدى يخص التوجيهات لكيفية التعامل مع المنتدى بشكل أفضل الموضوع لن يستغرق منك سوى 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

هواحنا مضفناش Last /first فى الاستعلامات هههههه تصدق سلخت قبل ما ادبح عموما افتح الجهاز ان شاء الله واظبطهوملمك

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

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

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

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

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

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

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

السّلام عليكم و رحمة الله و بركاته أحبّتي الأكارم .. هذه إحدى الطّرق لاستعراض البيانات القاعديّة على اليوزرفورم .. العملية ليست جديدة و إنّما أردت فقط أنْ يكون تفكيري على منتديات " أوفيسنا " .. ونتقاسم الأفكار مع الأحبّة الكيفية مشروحة بالكود داخل الملف أدناه .. فائق إحتراماتي استعراض البيانات.rar

تفضل اخى الكريم واسال براحتك اسال الله ان يقضى لك ولنا حوائجنا تجاهل الهمزات.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

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

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

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

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

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

بسم الله الرحمن الرحيم رد على المشاركه مرفق ملف برنامج تكاليف سريع السلام عليكم 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 =

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

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

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

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

الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم مؤثر حركى جديد لفتح الفورم على طريقة أفتح الباب يا سمسم بس ياريت ياأبوالبراء لو فتحت الباب وكان فى حد بالحمام تقفل الباب تانى تستنا لحد ما يرجع طنطا أرجو ان ينال أعجابكم تقبلوا جميعا تحياتى مؤثرات فتح الفورم على طريقة فتح الباب.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 للتحميل اضغط هنا تقبلو تحياتي

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

اخينا عبدالعزيز اولا اعذرا على الفترة السابقة يمكن انشغلت او نسيت الموضوع وكما ذكر لك ابو خليل انت بحاجة اعادة للتصميم ولكن هذا حل كما وعدتك وب dsum تم اضافة عمود الاجمالي في جملة الاستعلام لمصدر النموذج الفرعي وباسم expr1 ثم اضافته للنموذج الفرعي ولم يعد هناك حاجة لوجود عمود الاجمالي في الجدول بالتوفيق Aziz (2).rar

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

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

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