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

أخي الكريم عاشق الإكسيل يبدو أن أخونا الحبيب أبو عيد منشغل عنا .. فإليك التعديل في الكود مع شرح لأسطر الكود ليمكنك التعديل عليه بما يناسب ملفك الأصلي Sub RecallDataEid() 'يقوم الكود باستدعاء بيانات الأذون من ورقة الأرشيف بناءً على رقم الإذن '------------------------------------------------------------------ 'تعريف المتغيرات المستخدمة في الكود Dim A As Integer, LR As Long, LR1 As Long, R As Integer, T As Integer 'شرط لاختبار وجود خطأ في حالة عدم وجود رقم الإذن 'وتتم عملية البحث في ورقة الأرشيف في النطاق المحدد [M5] يتم البحث عن رقم الإذن الموجود في الخلية If IsError(Application.Match([M5].Value, Sheets(3).[A1:A2000], 0)) Then 'إظهار رسالة للمستخدم في حالة عدم وجود رقم الإذن والخروج من الإجراء الفرعي If MsgBox("رقم الإذن غير موجود" & vbCrLf & "هل تريد مسح بيانات الإذن الموجودة؟", vbYesNo + vbExclamation) = vbYes Then Range("B20:K33") = "": Range("C10,C12,C16") = "" End If Exit Sub Else 'إلغاء تحديث الشاشة أثناء عمل الكود لتسريع الكود Application.ScreenUpdating = False 'تعيين قيمة للمتغير ليساوي رقم الصف الموجود فيه رقم الإذن في ورقة الأرشيف A = Application.Match([M5].Value, Sheets(3).[A1:A2000], 0) 'الحصول على رقم آخر صف في ورقة الأرشيف في عمود التوجيه المحاسبي LR = Sheets(3).Range("I" & Rows.Count).End(xlUp).Row + 1 'تعيين قيمة المتغير ليساوي 20 وهو يمثل رقم أول صف سيتم وضع بيانات الإذن فيه R = 20 'مسح النطاق الذي ستوضع فيه بيانات الإذن [B20:K33] = "" 'الحصول على رقم آخر صف يلي الصف الذي يطابق رقم الإذن 'أي آخر صف لنفس الإذن المطابق لرقم الإذن بحيث يتم جلب جميع بيانات الإذن LR1 = Sheets(3).Range("A" & A).End(xlDown).Row 'في حالة أن المتغير أكبر من أو يساوي آخر صف في ورقة العمل 'يتم تعيين قيمة المتغير ليساوي رقم آخر صف بناءً على عمود التوجيه المحاسبي If LR1 >= Rows.Count Then LR1 = LR 'حلقة تكرارية بدايةً من الصف الذي يقع فيه رقم الإذن في ورقة الأرشيف 'إلى آخر صف في العمود الأول بعد الصف المطابق لرقم الإذن في ورقة الأرشيف For T = A To LR1 - 1 'كبداية الحلقة تساوي الخلية في العمود الثامن في ورقة الأرشيف [B20] الخلية 'في نفس الصف الذي يطابق رقم الإذن ، فلو كان رقم الإذن = 2 فالصف سيكون 5 Range("B" & R) = Sheets(3).Range("G" & T).Value 'نفس السطر السابق وينطبق على عمود الدائن Range("D" & R) = Sheets(3).Range("H" & T).Value 'نفس السطر السابق وينطبق على عمود التوجيه المحاسبي Range("F" & R) = Sheets(3).Range("I" & T).Value 'زيادة رقم صف البداية والذي كان يساوي 20 بمقدار 1 استعداداً للحلقة التالية R = R + 1 'الانتقال للحلقة التالية Next T 'الخلية تساوي الاسم الموجود في عمود المستفيد في نفس صف رقم الإذن [C10] = Sheets(3).Range("D" & A).Value 'الخلية تساوي الاسم الموجود في عمود المناولة في نفس صف رقم الإذن [C12] = Sheets(3).Range("E" & A).Value 'الخلية تساوي الاسم الموجود في عمود البيان في نفس صف رقم الإذن [C16] = Sheets(3).Range("F" & A).Value 'إعادة تفعيل تحديث الشاشة Application.ScreenUpdating = True End If End Sub أرجو أن يفي بالغرض .. تقبل تحياتي

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

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

أخي الكريم أبو حماده جرب الكود التالي (رغم أن نقطة الخروج من الكود غير واضحة ..) يوضع الكود في حدث إغلاق المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("B1").Value = Range("B2").Value Then MsgBox "الخليتان متشابهتان", 64: Exit Sub Else Range("D1").Value = Range("D5").Value End If End Sub

بارك الله فيك أخي الحبيب بن عليه وجزيت خير الجزاء ولكن لي رأي عند التعامل مع الأكواد أفضل عدم الاعتماد على ورقة العمل .. فيمكن الاستغناء عن العمود المساعد كما يمكن الاستغناء عن النطاقات المسماة والتي أرى أنها من الأسباب التي تثقل من عمل الملف عند الإكثار منها .. فإليك الكود التالي عله يفي بالغرض Sub Insert_HBreaks() Dim I As Integer, Str1 As String, Str2 As String With ThisWorkbook.Worksheets("Sheet1") .ResetAllPageBreaks Str1 = .Range("B2") For I = 2 To .Range("A" & .Rows.Count).End(xlUp).Row Str2 = .Range("B" & I) If Str2 <> Str1 Then .HPageBreaks.Add Before:=.Range("A" & I) Str1 = Str2 End If Next I End With End Sub تقبل وافر تقديري واحترامي

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

ذهبت مقولة ما حدا يموت من الجوع أمام هذه المشاهد المريعة ...أهو جوع أم تجويع ...((ويطعمون الطعام على حبه مسكيناً ويتيماً وأسيراً)).. إنه العالم الذي ملئ نفاقاً...أين حق الحياة التي حرصت عليها الدساتير والقوانين الوضعية ؟؟!!..مضايا كانت موئلاً للجمال والنقاء ...لم أزرها ولكن حزني زارها ...طأطئي رأسك أيتها الإنسانية ...لأنك تخليتِ عن الإنسانية. لا تتوقع أن هذا المشهد من بورما ..واحزناه ....وا أسفاه ...لا حول ولا قوة إلا بالله....هذه المرة سلاح الجوووووووووووع قتلهم.

أخي الكريم أو حماده أرى أن ترفق إذاً ملف معبر عن الطلب وعن الحالة التي فيها الملف لمعاينة الملف ورؤية ما يمكننا فعله .. وإذا كانت القوائم تختفي وكل أزرار الإكسيل .. فكيف تظهر المعاينة ؟؟؟؟!!!! لابد وأن تظهر المعاينة وبها زر لإغلاق المعاينة بالفعل لذا أنا متشوق لرؤية ملفك المرفق لأرى هذا العجب العجاب !! واللي يعيش ياما يشوف واللي يدخل منتدى أوفيسنا يشوف أكتر تقبل تحياتي

بسم الله الرحمن الرحيم السلام عليكم وجدنا حاجه لعدد من الاخوه الاعضاء في هذا المنتدى الرائع الى هذا الموضوع المهم قرننا ان نخوض فيه والابواب مشرعه للاساتذه الكرام للاستئناس بارائهم القيمه وبنيه خالصه لوجه الله تعالى فهو حسبنا وثواب هذا العمل مهدي روح معلمنا الاول والدنا رحمه الله -ونسال الله ان يغفر لنا ولوالدينا وللمؤمنين جمعا وبعد تاخرنا في طرح الموضوع بسب كبر حجم الفديوات مما اضطرنا الى رفعها على اليوتيوب لتعم الفائدة بمرور الزمن ازدادت الحاجه الى قواعد بيانات قويه وكفوءه وذات امان عالي ومساحات خزنيه كبيره نظام الاكسس نظام قواعد بيانات ممتاز وذو كفائه عاليه للاستخدامات الصغير والمتوسط ويمتاز الاكسس برخص الثمن وسهولة الاستخدام وذلك بسبب كثرة الكتب التي تختص فيه وكثرة المواقع والمنتديات التي تقدم الحلول والمشوره اهم مشاكل الاكسس 1- قاعدة بيانات الاكسس مبنية على ملف اي تحفظ جميع بيانات القاعدة في ملفات مستقلة لها.عند حذف هذا الملفات تحذف قاعدة البيانات مع جميع البيانات 2- عدم توفر الامان العالي اذا ما قورن ببقيه نظم قواعد البيانات 3- ان استخدام قاعدة البيانات من قبل اكثر من مستخدم يؤدي الى ضغط كبير على محركات النظام عند استخذامه على الشبكه 4- احد اهم المشاكل في استخدام الاكسس على الشبكه عدم تمكين اكثر من مستخدم من فتح نموذج ادخال واحد في نفس الوقت 5- محدودية عدد المستخدمين فهي لا تتجاوز ال10 مستخدمين على الشكبة اذا كان الاكسس مرفوع على شبكة 6- محدودية المساحه الخزنيه للبيانات في الاكسس فهي لا تصل الى 2 كيكا بت بضمنها مكونات قاعدة البيانات بعد ان برزت الحاجه الى مساحات خزنيه اكبر خصوصا مع تقادم المشروع وتوسعه اما SQL Server فقد غطى على هذه العيوب، بل اضاف مميزات اخرى نظام متكامل لادارة قواعد البيانات يعمل في الخلفية ويعتمد على خادم وعميل فجميع البيانات تخزن في الخادم وهذا يعطي امان عالي للبيانات من الضياع ونظام الامان العالي جدا والمساحه الخزنيه العاليه وعدم محدودية المستخدمين وكذلك باستطاعته احتواء اكثر من قاعدة بيانات واحدة. وكل قاعدة بيانات تحتوي على جداول مختلفه وعمل مختلف والعمل بكفائه عاليه مع الشبكات سواء الداخليه او عبر الانترنيت وهناك مميزات اخرى ومن عيوبه بعض الصعوبات في استخدامه لا يمكن بناء قاعدة بيانات متكاملة لا بمساعدة بعض البرامج ومنها الاكسس والكرستال وغيرها وللحصول على مميزات الاكسس والتتخلص من عيوبه توجد ثلاث طرق لعمل ذلك 1- تحويل الاكسس الى مشروع Access ويتم بتكبيرحجم جميع مفردات قاعدة البيانات وهذه العمليه معقده وتحتاج الى تغيرات جوهريه في قاعدة البيانات 2. تكبير حجم البيانات من قاعدة بيانات Access إلى قاعدة بيانات SQL 3 – العمل بالنهاية الاماميه والنهاية الخلفيه النوع الثالث سوف نتطرق اليه بشيء من التفصيل ونعمل على شرحه للسهوله التي يتمتع بها والذي لا يجعلنا نتخلى عن ال Access حيث ستكون فقط الجداول في SQL Server وبقية مفردات قاعدة البيانات من نماذج واستعلامات وتقارير ومايكروات ووحدات نمطية في Access متطلبات العمل 1- نحتاج الى مساحه مناسبه من القرص الصلب الذي سوف نركب SQL Server عليها 2- عمل حسابات للمستخدمين للوندوز وبرقم سري 3- نسخة من SQL Server المجانية SQL server Expres لعمل سيرفر http://www.microsoft...s.aspx?id=29062 4- نسخة من SQL server Management studio للتحكم بالسيرفر 5- عمل اتصال odbc 6- قاعدة بيانات Access فارغة ا- تركيب ال SQL server Express الفديو يوضح ذلك https://www.youtube.com/watch?v=03AYKVSsjII ب- تركيب ال SQL server Management studio https://www.youtube.com/watch?v=STSADB1BAXo ج- عمل قاعدة بيانات على SQL server فارغه وبنفس اسم قاعدة Access والاسم ليس ضروري ان يكون نفسه ولكن للاستدلال على القاعدة لان SQL server ممكن ان يحتوي على اكثر من قاعدة بيانات https://www.youtube.com/watch?v=89p9M9ZE6nw

برنامج تدرج المرتبات هذا البرنامج هدية للعاملين فى مجال الأجور والمرتبات أسأل الله أن يكون به الإفادة والنفع لكل المسخدمين برنامج تدرج المرتبات.rar برنامج تدرج المرتبات.rar

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم أحدث تعديل فى كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2016 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى شيت كنترول الإعدادى رجب جاويش الإصدار 15.rar

اعرض الملف الدليل الشامل في حساب مدد خدمة الموظفين وإجمالي هذه المدد بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ================ كثرت الأسئلة في الفترة الأخيرة حول حساب الفرق بن تاريخين ويستخدم هذا في حساب مدة خدمة الموظفين من تاريخ التعيين إلى الآن وكذلك مدد الخدمة الإضافية وكذلك مدد الانقطاع عن العمل -------------------------------------- ولذلك توكلت على الله وقمت بتصميم هذا الملف لعله يفيد كل من يبحث في هذا الموضوع والله من وراء القصد ولا ينقصني سوى دعاؤكم ............ تم تحديث البرنامج وإجراء بعض التعديلات صاحب الملف أ / محمد صالح تمت الاضافه 13 نوف, 2011 الاقسام قسم الأكسيس

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

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

ولما لا تكون البداية الآن قبل بعد قليل؟ توكل على الله وابدأ في التفكير ..ضع أولى خطواتك نحو الهدف

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

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

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

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

شكرا لكل من الاستاذ ابوعبيد ، والاستاذ ياسر خليل على الكود الرائع والسرعة فى مساعدة الجميع

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

دائما ما تبدع اخي ياسر ...وفقك الله لكل خير

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

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

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

شكراً ياأخ ياسر بارك الله فيك البرنامج تم تحميله وانتهت المشكلة ربنا يبارك فيك أنا بجد سعيد أسعد الله أيامكم وبارك فى أوقاتكم

أخي الفاضل التعديل تم على تقرير الإجمالي في النموذج serITEM الذي أشرت إليه في ردك.. استخدم search total بعد إدراج التاريخ وانظر نهاية التقرير

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

وجزيت خيراً بمثل ما دعوت أخي الفاضل محمود محمد عبد الستار والحمد لله أولاً وأخيراً ..الحمد لله ملء السماوات وملء الأرض وملء ما بينهما وملء ما شئت من شيءِ بعد تقبل تحياتي

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

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

هناك سبب بالفعل لعمل الكود من خلال الفورم وليس من نافزة المعاينه الملف عندي يخفي كل القوائم وكل ازرار الاكسل ولذلك عند عمل معاينة لا يظهر زر امر اغلاق المعاينه ولذلك اريد تفعيل الكود من خلال الفورم لاتمكن من عمل معاينه او اغلاقها من خلال الفورم

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

تمام كدا وضحت الفكرة ..إذاً ضع هذا السطر في الكود ليختفي التطبيق ثم تظهر الرسالة في حالة عدم التطابق لمسار الملف مع مسار الملف الموجود في الكود Private Sub Workbook_Open() Dim KHM As String Application.Visible = False KHM = Trim(Sheets("Sheet1").Range("A1")) Dim MyPath As String '************************************************************************************* '''''''' KHMB.xls ويوضع داخله ملف الإكسل KHMB وإسم المجلد D:\ هنا إسم المسار في الدرايف MyPath = "D:\KHMB" '************************************************************************************* If ThisWorkbook.Path <> MyPath Then MsgBox "مسار الملف" & vbNewLine & "تم تغيير مسار الملف ولن يعمل معك إلاً من مسارة الصحيح" 'Application.DisplayAlerts = False Application.Quit Else MsgBox MyPath End If Dim MyFlName As String '************************************************************************************* ''''''' D:\ في الدرايف KHMB وهنا إسم ملف الإكسل يتم وضعة داخل المجلد MyFlName = KHM '************************************************************************************* If ThisWorkbook.Name <> MyFlName Then MsgBox "إسم الملف" & vbNewLine & "لقد تم تغيير إسم الملف ولن يفتح معاك إلاً بإسمة" 'Application.DisplayAlerts = False 'ThisWorkbook.Close Else MsgBox KHM End If End Sub أضفت السطر الذي ذكرته في بداية الكود ..وأضفت سطر لإغلاق التطبيق ككل وليس المصنف فقط بعد الرسالة في حالة عدم التطابق تقبل تحياتي

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

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

تم التعديل تفضل Project3.rar

جرب التعديل التالي فواتيرالمبيعات.rar

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

هناك خطأ عند محاولة تحميل الملف المرفق... رجاء أعد رفع الملف على المنتدى... بن علية

اخي الكريم هل قمت بتحميل المرفق في مشاركتي الأخيرة ؟؟؟ لأني قمت بإزلة الكود الذي يخفي شريط الأدوات كما اشرت لك في المشاركة الأخيرة .. بالتوفيق

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

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

بارك الله فيك جاري التحميل

الأخ الكريم محمود كويك إنت حددت أي مشاركة كأفضل إجابة (مشاركتك ..مقبولة منك ..عشان لسه جديد بس) لو حد تاني عملها كنت قطعته بسناني المهم : افتح أي ملف إكسيل ، أكيد طبعاً عارف الطريقة ، من قايمة Start وبعدين Programs وافتح البرامج هتلاقي Microsoft Offce وجنبه رقم الإصدار اللي إنت شغال عليه فتحنا الملف ..قول الحمد لله . من لوحة المفاتيح اضغط Alt + F11 ( كدا غلط .. مش كدا أنا مقلتش Alt وبعدين تسيب ايدك من على اللوحة .. خلي صبعك رااااااشق على مفتاح Alt وفي نفس الوقت اضغط F11 هيفتح معاك صفحة غريبة اسمها (محرر الأكواد) .. في الجنب الشمال هتلاقي نافذة اسمها نافذة المشروع Project Window وهتلاقي كلمة ThisWorkbook .. تعال على الكلمة دي واضغط دبل كليك (لو مفتحتش معاك صفحة بيضا .. اعمل دبل كليك تاني هتلاقي الماوس بتاعك بااااااايظ) لما تعمل دبل كليك هيظهر لك قايمتين منسدلتين اللي ع الشمال هتلاقي فيها كلمة Workbook كدا تعرف إنك واقف في المكان المظبوط خد الكود نسخ والصقه هناك في الحتة البيضا Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim X As Long X = Range("A1").Value Range("A1").Value = X + 1 End Sub وبكدا يكون الملف جاهز ..اعمل حفظ من علامة الحفظ أكيد عارفها ... ولاحظ الخلية A1 في كل مرة بتحفظ فيها الملف .. بس بالمناسبة في الاول هيطلعلك رسالة فيها Yes و No و Cancel اختار No أيوا اختار لا (اعترض) ولما يتفتح معاك نافذة الحفظ اختار من Save as type اختار Excel Macro enabled وفي الحقل المسمى File name اكتب اسمي (شايفك بتكتب اسمك انت .. مش مهم هعديها دي) كدا الملف جاهز بعد الحفظ امسح محتويات الخلية A1 وجرب تحفظ الملف واحفظ تاني وكمان مرة احفظ وشوف النطاق A1 أرجو ان أكون قد أفدتك

أستاذي الغالي ياسر .. بارك الله فيك و جزاك الله خيرًا على المساعدة .. قمت بوضع الكود في الملف و النتيجة أن الدوائر الحمراء وجدتها تظهر في غير مكانها ..أنا أريد الدوائر الحمراء تظهر في النطاق المحدد باللون الأخضر فقط .. طبعا في الخلايا التي بها معدلات فقط في هذا النطاق http://up.top4top.net/downloadf-top4top_694466090a1-rar.html

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