عبدالله بشير عبدالله

السلام عليكم اليك المعادلة التي تطبق على M2 عدد التكرار .xlsx

السلام عليكم حسب ما فهمته من طلبك المعادلة التالية تلبى المطلوب ضع المعادلة في l2 ثم اسحبها الى اسفل =IFERROR(VLOOKUP(K2; $O:$P; 2; FALSE); "")

وعليكم السلام ورحمة الله وبركاته غن طريق كود صغييييير Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim ws As Worksheet Set ws = Me ws.Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.Color = RGB(220, 230, 241) Target.Interior.Color = RGB(255, 255, 150) End Sub ملف كمثال تلوين صف وحلية.xlsb اذا اردت تغيير اللون اليك قائمة بالالوان أحمر فاتح: RGB(255, 200, 200) أخضر فاتح: RGB(200, 255, 200) أزرق فاتح: RGB(200, 220, 255) أصفر فاتح: RGB(255, 255, 150) برتقالي فاتح: RGB(255, 220, 180) رمادي فاتح: RGB(220, 220, 220) بنفسجي فاتح: RGB(230, 200, 255) سماوي: RGB(180, 240, 255) تحياتي

وعليكم السلام ورحمة الله وبركاته طلبك حسب العنوان اضافة قائمة المسندلة اشرح لي حتى افهم طلبك اذا اخترت من خلية الفترة الصباحية ما الذي يجب ان يظهر في خلية التوقيت من هل الساعة 8:00 ام ماذا؟ اذا اخترت من خلية الفترة المسائية ما الذي يجب ان يظهر في خلية التوقيت الى هل الساعة 13:00 ام ماذا؟ اشرح لي بالتفصيل

في ملفك قم بالاتي:- اضغط بيمين الفأرة على ملف الإكسيل (وهو مغلق) واختر Properties. (حصائص) في الأسفل، إذا وجدت كلمة Unblock (إلغاء الحظر) بجانب رسالة تحذير أمني، ضع عليها علامة صح واضغط OK اليك الملف مرة احرى ملف الحجز (1).xlsb

السلام عليكم تم انشاء القائمة للخليتين Horaire202.xlsx

وعليكم السلام ورحمة الله وبركاته جرب الملف واعلمنى بالنتيجة ملف الحجز.xlsb

الأخ العزيز في ردي السابق طلبت منك وبما انك احترت تمت الاجابة فيعتبر هذا الطلب تمت الاجابة عليه وانتهى طلبت منك فتح موضوع جديد ليس هنا في نفس الصفحة بل انشاء موضوع جديد احر من الصفحة الرئيسية لمنتدى الاكسل ويمكنك وضع رابط لموضوعك السابق يجب عليك قراءة قواعد المشاركة بمنتدي أوفيسنا والتي من ضمنها 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص للاطلاع على قواعد المشاركة https://www.officena.net/Tips/Questions.htm انقل طلبك الاخير في مشاركة جديدة وابشر خيرا ان شاء الله

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

وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك انك تقصد بالعمود الثالت العمود A يناء عليه اليك معادلة صعها بداية من D2 ثم اسحبها لاسفل او ضغها في عمود بداية من الصف2 =INDEX($B$2:$B$500;MATCH(A2; $C$2:$C$500; 0)) ارجو ان يكون في ردي ما يفيد تحياتي

وعليكم السلام ورحمة الله وبركاته تم التجربة على اوفيس 2016 وتم تحديد حلايا والانتقال بين الصفحات لا يوجد تجمد والملف يعمل بسرعة ننتظر تجارب الزملاء

احسنت جزاك الله كل خير تمت التجربة ينجاح

الأخ العزيز، تحية طيبة وبعد، أدخل دوماً إلى موضوعك وكلي أمل أن أقدم لك ما يفيد، ولكنني أجد نفسي عاجزاً عن فهم المطلوب بسبب غياب الشرح الوافي. واليوم، أرفقتَ ملفاً جديداً لعلّ فيه التوضيح، فإذا به محمياً بكلمة مرور! لذا، ومن باب المحبة والإخاء، أود توجيه هذه الرسالة لك ولجميع أحبابنا في المنتدى؛ لنتفهم أن عدم التجاوب مع بعض الطلبات ليس تكبراً و عدم اهتمام ، بل يعود للأسباب التالية: عدم وضوح الطلب: في طلبك الأول ذكرت استيراد بيانات من ملف "الحجز" إلى ملف "Horaire202"، لكنك لم ترفق سوى الملف الأخير. أين الملف الآخر؟ وكيف يمكننا العمل دون شرح كافٍ؟ تعدد الطلبات في موضوع واحد: لقد تضمن موضوعك طلبات كثيرة ومتشعبة (تعديل أيقونة الاستيراد، منع مسح البيانات، معاينة ورقة الطباعة، التحويل إلى PDF، حماية الورقة مع استثناء حقول معينة). هذا التشتت يجعل تقديم مساعدة دقيقة أمراً صعباً. نصيحة أخوية: اجعل لكل طلب موضوعاً مستقلاً، مدعوماً بالشرح والتوضيح الكافي. وبمجرد حصولك على الإجابة، يمكنك فتح موضوع جديد لطلب آخر. هكذا ستجد اهتماماً أكبر وتجاوباً أسرع من جميع الأعضاء. وفقنا الله وإياكم لكل خير.

وعليكم السلام ورحمة الله وبركاته الطريقة الاولى حسب علمى ليس هناك حل الا بعمل كلمة مرور لملف العمل والطريقة الثانية يتم فتح ملف احر بدون فتح ملف العمل فاعتقد الثانية تناسبك اكثر من الحل الاول ربما الافاضل يالمنتدى لديهم ما بفيد تحياتي

السلام عليكم ورحمة الله وبركاته حل بالكود وان اضفت مواد احرى عدل النطاق في الكود Sub ProcessAndSumData() Dim wsB As Worksheet Set wsB = ThisWorkbook.Sheets("B") Application.ScreenUpdating = False With wsB .Range("B10:I12").ClearContents With .Range("B10:I10") .FormulaR1C1 = "=IFERROR(SUMPRODUCT((A!R3C1:R1828C1=R6C3) * (ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0)))) * (INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))>=60)),""/"")" .Value = .Value End With With .Range("B11:I11") .FormulaR1C1 = "=IFNA(SUMPRODUCT((INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))<60) * ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))) * (A!R3C1:R1828C1=R6C3)),""/"")" .Value = .Value End With With .Range("B12:I12") .FormulaR1C1 = "=SUM(N(R[-2]C), N(R[-1]C))" .Value = .Value End With End With Application.ScreenUpdating = True End Sub لا تنس تفعيل الماكرو aa2.xlsb