ياسر خليل أبو البراء

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

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

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

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

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

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

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

صراحة الملفات ليست واضحة بما يكفي هناخد مع بعض مثال عشان نفهم شكل النتائج المطلوبة .. في المصنف المسمى (مستخلصات العمالة) في ورقة العمل المسماة (عرفة) أنت تريد النتائج في العمود G تمام !! البند الأول : ------------- 1 بلوكات تبة الجولف عمالة حافز عام نروح للمصنف الثاني المسمى (المدة من ..) هذا مصنف وليس ورقة العمل ... خلي بالك من المسميات عشان بتفرق ! هنلاقي البند بلوكات تبة الجولف 1 الخاص بعرفه فيه يوميات وتكلفة (فيه أرقام تحت بند اليوميات وأخرى تحت التكلفة ) ما هو شكل النتائج المتوقعة؟؟ 1 بلوكات تبة الجولف ؟؟؟؟ عمالة ؟؟؟؟ حافز عام ؟؟؟؟ حاول توضح شكل المطلوب بالضبط حتى تجد المساعدة مني أو من غيري

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء إليكم طريقة سهلة وبسيطة جداً لكيفية إدراج رسم بياني داخل تعليق الشرح في الفيديو .. ويا ريت تقييم للفيديو : هل تم ضبط الصوت أم لا ؟ وإذا أعجبكم الفيديو فلا تنسونا من صالح دعائكم ، ولا تنسونا من لايكاتكم !! مرفق لكم ملف الشرح للتدريب عليه .. تقبلوا تحيات أخوكم أبو البراء Insert Chart In A Comment.rar

تعجزني كلماتك عن الرد أخي الحبيب عادل ..بارك الله فيك وجزاك الله خيراً نورت الموضوع بردك الجميل

المنتدى منور بتواجد أمثالك أخي الغالي خزاني ..أنت ثروة لم تكتشف بعد ..

السلام عليكم ورحمة الله وبركاته إخواني الأحباب أقدم لكم كود خفيف .. الكود يقوم بمنع المستخدم من طباعة أوراق محددة في المصنف .. في المرفق ثلاثة أوراق عمل Data1 - Data2 - Data3 الكود يوضع في حدث المصنف ThisWorkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) Select Case ActiveSheet.Name Case "Data1", "Data2" Cancel = True MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation End Select End Sub يعتمد الكود على جملة Select Case الشرطية .. والقيمة التي تعتمد عليها اسم ورقة العمل النشطة فإذا كانت ورقة العمل النشطة Data1 أو Data2 .. يتم إلغاء عملية الطباعة وظهور رسالة تفيد أن ورقة العمل لا يمكن طباعتها ... يمكنك زيادة أوراق العمل من خلال السطر الذي يبدأ بكلمة Case على أن تكون أسماء أوراق العمل بين أقواس تنصيص .. كما يمكن منع الطباعة بالمصنف بالكامل بحذف أول سطرين من الكود وآخر سطر ، ليصبح بهذا الشكل Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation End Sub بهذا يمكنك التحكم في طباعة أوراق العمل من عدم طباعتها أرجو أن يكون الموضوع مفيد ...رغم أنه ليس بجديد .. تقبلوا تحيات أخوكم أبو البراء Prevent Worksheets From Printing.rar

الأخ رؤوف يرجى تحديد مشاركة العلامة حماده عمر كأفضل إجابة حتى تظهر موضوعات المنتدى بشكل منظم ..

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

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

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

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

أخي الحبيب إبراهيم ذكرت أنه يتم تحويل الملف إلى الامتداد Xls وبعد ما يتم المطلوب ويتم كسر الحماية يمكنك تحويل الملف مرة أخرى إلى الامتداد السابق سواء Xlsm أو Xlsb .. ولكن انتبه أن يكون لديك نسخ احتياطي من الملف تحسباً لوقوع أي مشكلة .. أخي أبو سليمان محددتش نوع العسل (نحل ولا أسود !!) أكيد عسل إسود بس مش مهم أهو كله عسل أخيأبو حنين مشكور على مرورك الطيب العطر وجزيت خيرا بمثل ما دعوت

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

جرب الكود بهذا الشكل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set UnionRange1 = Union(Range("E5:U5,E8:U8,E11:U11,E14:U14,E17:U17,E20:U20,E23:U23,E26:U26,E29:U29"), _ Range("E32:U32,E35:U35,E38:U38,E41:U41,E44:U44,E47:U47,E50:U50"), _ Range("E53:U53,E56:U56,E59:U59,E62:U62,E65:U65,E68:U68,E71:U71"), _ Range("E74:U74,E77:U77,E80:U80,E83:U83,E86:U86,E89:U89,E92:U92"), _ Range("E95:U95,E98:U98,E101:U101,E104:U104,E107:U107,E110:U110,E113:U113"), _ Range("E116:U116,E119:U119,E122:U122,E125:U125,E128:U128,E131:U131,E134:U134"), _ Range("E137:U137,E140:U140,E143:U143,E146:U146,E149:U149,E152:U152")) If Not Intersect(Target, UnionRange1) Is Nothing Then If Target.Value >= "40" And Target.Value < "50" Then Cancel = True Target.Value = "50" Else Cancel = False End If End If Set UnionRange2 = Union(Range("J3:U3,J6:U6,J9:U9,J12:U12,J15:U15,J18:U18,J21:U21,J24:U24,J27:U27"), _ Range("J30:K30,J33:K33,J36:K36,J39:K39,J42:K42,J45:K45,J48:K48"), _ Range("J51:K51,J54:K54,J57:K57,J60:K60,J63:K63,J66:K66,J69:K69"), _ Range("J72:K72,J75:K75,J78:K78,J81:K81,J84:K84,J87:K87,J90:K90"), _ Range("J93:K93,J96:K96,J99:K99,J102:K102,J105:K105,J108:K108,J111:K111"), _ Range("J114:K114,J117:K117,J120:K120,J123:K123,J126:K126,J129:K129,J132:K132"), _ Range("J135:K135,J138:K138,J141:K141,J144:K144,J147:K147,J150:K150")) If Not Intersect(Target, UnionRange2) Is Nothing Then If Target.Value >= "20" And Target.Value < "25" Then Cancel = True Target.Value = "25" Else Cancel = False End If End If Set UnionRange3 = Union(Range("V5,V8,V11,V14,V17,V20,V23,V26,V29"), _ Range("V32,V35,V38,V41,V44,V47,V50"), _ Range("V53,V56,V59,V62,V65,V68,V71"), _ Range("V74,V77,V80,V83,V86,V89,V92")) If Not Intersect(Target, UnionRange3) Is Nothing Then If Target.Value >= "1095" And Target.Value < "1105" Then Cancel = True Target.Value = "1105" ElseIf Target.Value >= "1343" And Target.Value < "1360" Then Cancel = True Target.Value = "1360" ElseIf Target.Value >= "1513" And Target.Value < "1530" Then Cancel = True Target.Value = "1530" Else Cancel = False End If End If End Sub عدل مدى الأرقام كما تحب

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

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

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

الأخ الحبيب ناصر نصب البرنامج المرفق . اضغط الملف ببرنامج الضغط دبل كليك على الملف المضغوط في النافذة الخاصة ببرنامج الضغط اعمل كليك يمين ثم View File ادخل المجلد xl ثم المجلد Worksheets ثم دبل كليك على ورقة العمل التي عليها حماية بكلمة سر في النافذة في الناحية اليسار اضغط علامة الزائد وابحث عن Sheet Protection ثم اضغط علامة الزائد ..ستجد السطر Password كليك يمين عليه ثم Editor Select ثم من لوحة المفاتيح اضغط مفتاح Delete وأخيراً اضغط علامة الحفظ في البرنامج .. أغلق البرنامج وأغلق النوافذ واضغط على كلمة Yes عندما يطلب منك فك ضغط الملف في نفس االمكان ووافق على الاستبدال افتح ملفك وادخل على التبويب Review ثم Unprotect Sheet ...لن يطلب منك باسورد تم فك الحماية بحمد الله تقبل تحياتي

اللهم آمين تقبل الله منا ومنكم وجمعنا الله في الآخرة في مستقر رحمته