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

وعليكم السلام ورحمة الله وبركاته نستخدم دالة Abs في VBA. هذه الدالة تقوم بتحويل أي رقم سالب إلى موجب مع تغيير اسماء التكست لديك TextBox3.Value = Abs(Val(TextBox1.Value) - Val(TextBox2.Value))

السلام عليكم اليك المعادلة التي تطبق على 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

السلام عليكم جميع المعادلات بملفك تتعامل مع عمود التقييم وليس الفصل والسبب اسماء المواد في حلايا مدمجة والمعادلة المرفقة سابقاتعمل جيدا اليك الملف وبه معادلتان اختر اخدهما او كلاهما لهما نفس النتيجة وهما ليست صفيف لا تحتاجانCtrl+Shift+Enter. مع الانتباه لا تكرر اسم المادة في شيت A ولا تستحدم الدمج و يمكنك تمييز الاسماء مثلا الرياضيات تفييم - الرياصيات امتحان - الرياضيات فصل وفي ورقة الاخصائيات اذا اردت الرياضيات تقييم اكتبها تفسها aa1.xlsx

ان شاء الله ساحاول ايجاد حل يطبق على الفصل والتقييم والامتحان

السلام عليكم عذرا لم انتبه الى ردك الا الان لاحظت كل مادة لها 3 اعمدة اي عمود يتم تطبيق المعادله علية التقويم ام الامتحان ام الفصل

وعليكم السلام ورحمة الله وبركاته الطريقة الاولى اجعل الفورم في وضع التصميم من نافذة الخصائص (Properties) على اليسار، ابحث عن خاصية ShowModal. قم بتغيير قيمتها من True إلى False الطريقة الثانية بالكود كما بالمرفق حل المشكلة1.xlsm

ربما يكون احد الاسباب وكما احبرتك في ردي الاحير باننى لست جازما وحصوصا ان الملف في مشاركتك الاولى يعمل لدي وكذلك حسب استاذتا Foksh ان الملف يعمل لديه وربما يكون مسار سطح المكتب هو السبب تم تعديل الكود وسيطلب منك مكان حفظ الملف احتر اي مكان جرب واعلمنى بالنتائج مرتب +عمولة السائقين (2).xlsm

نعم الامر هكذا واضح وقمت بحذف التعليق السابق لعدم اهميته بعد ارفاق ملفك الاخير وبه التوضيح جرب الكود Sub تجميع() Dim ws As Worksheet Dim آخرصف As Long Dim c As Long, r As Long Dim صف_الاخراج As Long Set ws = ActiveSheet صف_الاخراج = 1 ws.Columns(16).ClearContents For c = 1 To 13 آخرصف = ws.Cells(ws.Rows.Count, c).End(xlUp).Row For r = 1 To آخرصف If ws.Cells(r, c).Value <> "" Then ws.Cells(صف_الاخراج, 16).Value = ws.Cells(r, c).Value صف_الاخراج = صف_الاخراج + 1 End If Next r Next c End Sub

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

وعليكم السلام ورحمة الله وبركاته كنت اتمنى دعم سؤالك بملف جرب التعديل التالي وان لم تعمل ارفق ملفا والمعادلة تعمل على اصدارات اكسل من 2013 وما فوق =IFNA(SUMPRODUCT((INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0))<60)*ISNUMBER(INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0)))*(A!$A$3:$A$1828=$C$6));"/")

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