Saleh Ahmed Rabie

يمكنك إضافة دوال مخصصة باستخدام VBA في Excel 2021. فيما يلي مثال بسيط لكيفية إنشاء دالة مخصصة تحاكي وظيفة vstack (دمج البيانات عموديا): 1. قم بفتح Excel وانقر على Alt + F11 لفتح محرر VBA. 2. انقر بزر الماوس الأيمن على اسم المشروع على اليسار واختر "Insert" ثم "Module" لإنشاء وحدة جديدة. 3. اكتب الكود التالي في وحدة VBA الجديدة: Function vstack(range1 As Range, range2 As Range) As Variant Dim destRange As Range Set destRange = range1.Offset(0, range1.Columns.Count) range2.Copy destRange Set vstack = destRange.Resize(range2.Rows.Count, range2.Columns.Count) End Function 4. احفظ الكود وأغلق محرر VBA. 5. الآن يمكنك استخدام الدالة المخصصة "vstack" في ورقة Excel الخاصة بك. على سبيل المثال، يمكنك كتابة الصيغة التالية في الخلية حيث ترغب في استخدام الدالة: =vstack(A1:B3, C1:D3) هذا سيقوم بدمج محتويات نطاقي A1:B3 و C1:D3 عموديا. تذكر أنه يمكنك تعديل هذا الكود وإضافة وظائف أخرى حسب احتياجاتك. بمجرد القيام بهذه الخطوات، ستكون قادرًا على إضافة دوال مخصصة وتخصيص Excel 2021 بشكل متقدم.

وعليكم السلام ورحمة الله وبركاته. إذا كنت ترغب في إضافة وظائف جديدة إلى برنامج اكسل، يمكنك استخدام ميزة VBA (Visual Basic for Applications) التي تتيح لك كتابة وتنفيذ البرمجيات في اكسل. يمكنك برمجة الدوال الجديدة التي تحتاجها وتضيفها إلى برنامج اكسل باستخدام VBA. وإذا كنت غير ملم بلغة VBA، يمكنك تحديث الاكسل إلى أحدث إصدار.

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

السلام عليكم الاخوة الافاضل كل عام و حضراتكم بالف خير و صحة و سعادة ماهي الدالة التي يمكن وضعها في L4 (باللون الاصفر) بحيث تقوم بسحب الأسماء من الجدول1 بناء على المطلوب من جدول التصنيف حيث يلاحظ ان المجموعة الأولى بها 1 مهندس و5 سكرتارية أي انه سيسحب أول اسم في فئة المهندسين ثم اول خمس أسماء من فئة السكرتارية ولكن بشرط ان لاتتكرر الأسماء في المجموعات الأخرى عند سحبها وتكون النتيجة كما في الجدول الأخير تسكين الاسماء في أماكنها.xlsx

.

**بالتأكيد، يمكن تعديل الكود بحيث يرحل البيانات إلى آخر صف فارغ في نطاق النتيجة دون مسح البيانات المرحّلة مسبقًا.** **إليك الكود المعدّل:** ` Sub Macro1() ' ماكرو Macro1 Dim LastRow As Long ' تحديد آخر صف في نطاق النتيجة LastRow = Sheets("data").Range("A:A").Find("*", , xlFormulas, , xlPrevious).Row ' إضافة 1 إلى آخر صف لتحديد الصف التالي الفارغ LastRow = LastRow + 1 ' تطبيق فلتر متقدم ونسخ النتائج إلى الصف التالي الفارغ Sheets("data").Range("A3:DM150").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("P3:P4"), CopyToRange:=Sheets("data").Range("A" & LastRow & ":DM" & LastRow), Unique:= _ False End Sub ``` **ملاحظات:** * تم تعريف متغير `LastRow` لتخزين رقم الصف الأخير في نطاق النتيجة. * تتم إضافة 1 إلى `LastRow` لتحديد الصف التالي الفارغ. * تم تعديل نطاق `CopyToRange` في دالة `AdvancedFilter` لنسخ النتائج إلى الصف التالي الفارغ. **باستخدام هذا الكود المعدّل، سيتم ترحيل البيانات المفلترة إلى آخر صف فارغ في نطاق النتيجة دون مسح البيانات المرحّلة مسبقًا.**

يسعدني مساعدتك في إعداد معادلة لحساب الدرجة المعيارية بناءً على الدرجة الخام. **إليك خطوات إنشاء المعادلة:** 1. **حدد نطاق الدرجات الخام:** حدد الخلايا التي تحتوي على الدرجات الخام في الجدول الثاني. 2. **حدد نطاق الدرجات المعيارية:** حدد الخلايا التي تريد أن تظهر فيها الدرجات المعيارية في الجدول الأول. 3. **استخدم الدالة VLOOKUP:** استخدم الدالة VLOOKUP للبحث عن الدرجة المعيارية المقابلة للدرجة الخام. **إليك معادلة إكسل:** ``` =VLOOKUP(A2, $B$2:$C$10, 2, FALSE) ``` حيث: * **A2:** هي الخلية التي تحتوي على الدرجة الخام. * **$B$2:$C$10:** هو نطاق الجدول الذي يحتوي على الدرجات الخام والدرجات المعيارية. * **2:** هو رقم العمود الذي يحتوي على الدرجات المعيارية. * **FALSE:** يشير إلى أننا نريد مطابقة دقيقة. **مثال:** إذا كانت الدرجة الخام في الخلية A2 هي 14، فإن المعادلة ستبحث عن الدرجة المعيارية المقابلة في الجدول الثاني (الذي يفترض أن يكون نطاقه $B$2:$C$10). ستجد المعادلة أن الدرجة المعيارية المقابلة لـ 14 هي 86، وستضع هذه القيمة في الخلية المحددة في نطاق الدرجات المعيارية. **ملاحظات:** * إذا كانت الدرجة الخام أكبر من 16، ستعيد المعادلة أعلى درجة معيارية (90). * إذا كانت الدرجة الخام أقل من 0، ستعيد المعادلة أقل درجة معيارية (40). *

وعليكم السلام ورحمة الله وبركاته نعم، يوجد عدد من البرامج التي توفر حماية مماثلة لبرنامج Unviewable+ لمحرر أكواد VBA، ومنها: * **VBA Protector**: أداة لحماية أكواد VBA، وتتميز بواجهة مستخدم سهلة الاستخدام وخيارات تخصيص واسعة. * **VBA Code Protector**: برنامج يركز بشكل خاص على حماية أكواد VBA من التعديل أو العرض غير المصرح به. * **VBA Encrypter**: أداة لتشفير أكواد VBA باستخدام خوارزميات تشفير قوية. * **VBA Obfuscator**: أداة لتعويق أكواد VBA من خلال إعادة تسمية المتغيرات والوظائف. * **VBA Protector Plus**: برنامج يوفر مجموعة شاملة من ميزات الحماية لأكواد VBA، بما في ذلك التشفير وإخفاء التعليمات البرمجية.

**دالة الاستخراج في إكسل لاستخراج الأسماء المتكررة** لاستخراج الأسماء المتكررة من سلسلة نصية، يمكنك استخدام دالة الاستخراج مع دالة البحث. **الصيغة:** ``` =EXTRACT(SEARCH(اسم_البحث, سلسلة_النص), سلسلة_النص, طول_اسم_البحث) ``` **حيث:** * **اسم_البحث:** الجزء من السلسلة النصية الذي تريد البحث عنه. * **سلسلة_النص:** السلسلة النصية التي تريد البحث فيها. * **طول_اسم_البحث:** طول الجزء الذي تريد استخراجه. **مثال:** لاستخراج أول ثلاثة أسماء من السلسلة النصية "ليث محمد علي مصطفى العنزي"، استخدم الصيغة التالية: ``` =EXTRACT(SEARCH("ليث محمد علي", A1), A1, 15) ``` حيث: * A1 هي الخلية التي تحتوي على السلسلة النصية. * "ليث محمد علي" هو الجزء الذي نريد البحث عنه. * 15 هو طول الجزء الذي نريد استخراجه (أول ثلاثة أسماء). **النتيجة:** ``` ليث محمد علي ``` **ملاحظة:** * إذا لم يتم العثور على الجزء المحدد، فستعيد الدالة خطأ #VALUE!. * يمكنك تعديل الصيغة لتناسب احتياجاتك، مثل استخراج عدد مختلف من الأسماء أو البحث عن جزء مختلف من السلسلة النصية.

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

**حل لمشكلة تجميع الخلايا غير المحددة مع الخلايا المحددة في دالة المجموع في إكسيل:** * **استخدام دالة AGGREGATE:** تُعد دالة AGGREGATE أكثر مرونة من دالة SUMIF ويمكن استخدامها لحساب المجموع مع تجاهل الخلايا الفارغة أو الخلايا التي تحتوي على أخطاء. **التركيب:** ``` =AGGREGATE(function, options, range) ``` حيث: * **function:** نوع الحساب الذي تريد إجراؤه (مثل SUM، AVERAGE، COUNT) * **options:** خيارات لتحديد كيفية التعامل مع الخلايا الفارغة أو الخلايا التي تحتوي على أخطاء (مثل IGNORE، COUNT) * **range:** نطاق الخلايا الذي تريد إجراء الحساب عليه **مثال:** لاستبعاد الخلايا الفارغة من حساب المجموع، يمكنك استخدام دالة AGGREGATE على النحو التالي: ``` =AGGREGATE(SUM, 6, A1:A10) ``` حيث: * SUM: نوع الحساب (المجموع) * 6: الخيار لتجاهل الخلايا الفارغة (IGNORE) * A1:A10: نطاق الخلايا سيؤدي هذا إلى إرجاع النتيجة 35، والتي تتضمن فقط الخلايا غير الفارغة.

**إصلاح رسالة "All of your fonts are hidden" في Excel** عند محاولة تغيير حجم الخط أو نوعه في Excel، قد تظهر لك رسالة الخطأ "All of your fonts are hidden". يشير هذا الخطأ إلى أن جميع الخطوط لديك مخفية في نظام التشغيل الخاص بك. لحل هذه المشكلة، اتبع الخطوات التالية: **1. فتح إعدادات الخطوط:** * انتقل إلى لوحة التحكم في نظام التشغيل الخاص بك. * انقر فوق "الخطوط". **2. إظهار جميع الخطوط:** * في نافذة "الخطوط"، انقر فوق علامة التبويب "إعدادات الخط". * حدد خانة الاختيار "إظهار الخطوط المخفية". * انقر فوق "موافق". **3. إعادة تشغيل Excel:** * أغلق Excel وأعد تشغيله. **4. تغيير حجم الخط ونوعه:** * بعد إعادة تشغيل Excel، يجب أن تكون قادرًا الآن على تغيير حجم الخط ونوعه دون أي مشاكل. **نصائح إضافية:** * تأكد من أن لديك أذونات إدارية على الكمبيوتر الذي تستخدمه. * إذا كنت لا تزال تواجه مشاكل، فحاول إعادة تثبيت Excel.

**تصحيح الكود:** Private Sub Workbook_Open() Dim a As Date Dim b As Date Sheet4.Range("z1").Value = Date a = Sheet4.Range("z1").Value b = "01-10-2024" Dim myvalue As String myvalue = InputBox("enterpassword") If myvalue = "123" Or a >= b Then ActiveSheet2.Unprotect Password:="55" ActiveSheet3.Unprotect Password:="55" Application.ScreenUpdating = False Application.EnableEvents = False Sheet2.Range("a1:z700").Clear Sheet2.Range("a1:z700").Interior.Color = vbBlack Sheet13.Range("a1:z700").Clear Sheet13.Range("a1:z700").Interior.Color = vbBlack Application.ScreenUpdating = True Application.EnableEvents = True ActiveSheet2.Protect Password:="55", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet3.Protect Password:="55", DrawingObjects:=True, Contents:=True, Scenarios:=True MsgBox "expire" ThisWorkbook.Save Application.Quit End If End Sub ``` **التغييرات التي تم إجراؤها:** * تم وضع كلمة المرور بين علامتي اقتباس مزدوجتين في جملة `If`. * تمت إضافة نقطة فاصلة بعد `a` في جملة `If` لفصلها عن `b`. **ملاحظات:** * تأكد من إدخال كلمة المرور الصحيحة في مربع الإدخال. * تأكد من أن تاريخ انتهاء الصلاحية المحدد في `b` صحيح.

**وعليكم السلام ورحمة الله وبركاته** **أخي الكريم،** **يسعدني مساعدتك في حل مشكلتك.** **إليك الخطوات اللازمة لإنشاء ملف مطابقة لمقارنة كميات المنتجات المباعة بين ملفات العملاء ورصيد العملاء باستخدام دالة VLOOKUP:** **1. إنشاء ملف مطابقة:** * افتح ملف Excel جديدًا وأطلق عليه اسم "مطابقة". * في الخلية A1، قم بإنشاء قائمة منسدلة تحتوي على أسماء الشركات الموجودة في ملفات العملاء ورصيد العملاء. **2. استرداد بيانات العملاء:** * في الخلية B1، استخدم دالة VLOOKUP لاسترداد بيانات العملاء من ملف "عملاء" بناءً على اسم الشركة المحدد في الخلية A1. * استخدم الصيغة التالية: ``` =VLOOKUP(A1,'عملاء'!$A$1:$M$100,2,FALSE) ``` * حيث: * A1: الخلية التي تحتوي على اسم الشركة المحدد. * 'عملاء'!$A$1:$M$100: نطاق البيانات في ملف "عملاء" الذي يحتوي على أسماء الشركات وكميات المنتجات المباعة. * 2: رقم العمود الذي يحتوي على كميات المنتجات المباعة. * FALSE: قيمة منطقية تشير إلى مطابقة دقيقة. **3. استرداد بيانات رصيد العملاء:** * في الخلية R1، استخدم دالة VLOOKUP لاسترداد بيانات رصيد العملاء من ملف "رصيد عملاء" بناءً على اسم الشركة المحدد في الخلية A1. * استخدم الصيغة التالية: ``` =VLOOKUP(A1,'رصيد عملاء'!$A$1:$M$100,2,FALSE) ``` * حيث: * A1: الخلية التي تحتوي على اسم الشركة المحدد. * 'رصيد عملاء'!$A$1:$M$100: نطاق البيانات في ملف "رصيد عملاء" الذي يحتوي على أسماء الشركات وكميات المنتجات المباعة. * 2: رقم العمود الذي يحتوي على كميات المنتجات المباعة. * FALSE: قيمة منطقية تشير إلى مطابقة دقيقة. **4. التحديث التلقائي للبيانات:** * لضمان تحديث البيانات تلقائيًا عند تحديث ملفات العملاء ورصيد العملاء، استخدم صيغ VLOOKUP مع روابط الملفات المطلقة. * على سبيل المثال، لتحديث بيانات العملاء، استخدم الصيغة التالية: ``` =VLOOKUP(A1,'[مسار ملف العملاء]'!$A$1:$M$100,2,FALSE) ``` * حيث: * '[مسار ملف العملاء]': المسار الكامل لملف "عملاء". * قم بتكرار الخطوة نفسها لبيانات رصيد العملاء. **بمجرد إعداد ملف المطابقة، يمكنك استخدامه لمقارنة كميات المنتجات المباعة بين ملفات العملاء ورصيد العملاء بسهولة.**

**حل مشكلة ظهور خلفية زرقاء في خلايا إكسل في C178** تظهر الخلفية الزرقاء في خلايا إكسل عندما يتم تحديدها. إذا كانت الخلفية الزرقاء تظهر في الخلية C178 باستمرار، فقد يكون السبب أحد الأمور التالية: **1. التحديد:** * تأكد من عدم تحديد الخلية C178. انقر فوق خلية أخرى لإلغاء تحديدها. **2. تنسيق الخلية:** * قد يكون تنسيق الخلية C178 مختلفًا عن الخلايا الأخرى. انقر بزر الماوس الأيمن فوق الخلية C178 وحدد "تنسيق الخلايا". * في علامة التبويب "ملء"، تأكد من أن الخلفية غير مضبوطة على اللون الأزرق. **3. قواعد التنسيق الشرطي:** * قد تكون هناك قاعدة تنسيق شرطي تنطبق على الخلية C178 وتؤدي إلى ظهور خلفية زرقاء. * انتقل إلى علامة التبويب "الصفحة الرئيسية" وحدد "تنسيق شرطي" > "إدارة القواعد". * تحقق من وجود أي قواعد تنطبق على الخلية C178 وتؤدي إلى ظهور خلفية زرقاء. **4. وظائف الإرجاع:** * قد تحتوي الخلية C178 على وظيفة إرجاع إلى خلية أخرى تحتوي على خلفية زرقاء. * تحقق من الصيغة في الخلية C178 وتأكد من عدم وجود مراجع إلى خلايا تحتوي على خلفية زرقاء. **5. ملحقات إكسل:** * قد تتسبب بعض ملحقات إكسل في ظهور خلفية زرقاء في الخلايا. * حاول تعطيل جميع الملحقات ومعرفة ما إذا كانت المشكلة لا تزال قائمة. **6. إصلاح إكسل:** * في بعض الحالات، قد تكون المشكلة ناتجة عن تلف ملف إكسل. * افتح إكسل وانتقل إلى "ملف" > "معلومات" > "فحص المشكلات" > "إصلاح". **7. إعادة تثبيت إكسل:** * إذا فشلت جميع الطرق الأخرى، فقد تحتاج إلى إعادة تثبيت إكسل. **كود VBA لإزالة الخلفية الزرقاء من الخلية C178:** Sub RemoveBlueBackground() ' تحديد الخلية C178 Range("C178").Select ' إزالة تنسيق الخلفية With Selection.Interior .Color = xlNone .Pattern = xlNone End With End Sub **كيفية استخدام الكود:** 1. افتح محرر Visual Basic (VBE) بالضغط على Alt + F11. 2. انقر بزر الماوس الأيمن على اسم المصنف في نافذة المشروع وحدد "إدراج" > "وحدة نمطية". 3. الصق الكود في وحدة النمط. 4. أغلق محرر VBE. 5. في ورقة العمل، انقر فوق علامة التبويب "المطور" (إذا لم تكن مرئية، فانتقل إلى "ملف" > "خيارات" > "تخصيص شريط الأدوات" > "علامات تبويب الأوامر الرئيسية" وحدد "المطور"). 6. انقر فوق الزر "ماكرو" في مجموعة "الرمز". 7. حدد الماكرو "RemoveBlueBackground" وانقر فوق "تشغيل". سيؤدي هذا الكود إلى إزالة الخلفية الزرقاء من الخلية C178.

المشكلة أن الازرار غير مرتبطة بالاكواد

**أسباب عدم عمل وظائف الماكرو في ملف Excel** عندما لا تعمل وظائف الماكرو في ملف Excel، فقد يكون السبب أحد العوامل التالية: **1. تعطيل الماكرو:** * تأكد من تمكين الماكرو في إعدادات Excel. انتقل إلى "ملف" > "خيارات" > "مركز الثقة" > "إعدادات مركز الثقة" > "إعدادات الماكرو". * اختر مستوى أمان يسمح بتشغيل الماكرو. **2. إعدادات الأمان:** * قد تمنع إعدادات الأمان في نظام التشغيل الخاص بك تشغيل الماكرو. * تحقق من إعدادات جدار الحماية ومكافحة الفيروسات للسماح بتشغيل الماكرو من مصادر موثوقة. **3. أخطاء الكود:** * تحقق من وجود أخطاء في كود الماكرو. قد تؤدي الأخطاء النحوية أو المنطقية إلى فشل الماكرو في العمل. * استخدم أدوات تصحيح الأخطاء في Excel لتحديد أي أخطاء في الكود. **4. تضارب الوظائف الإضافية:** * يمكن أن تتداخل بعض الوظائف الإضافية مع وظائف الماكرو. * قم بتعطيل الوظائف الإضافية غير الضرورية ومعرفة ما إذا كان ذلك يحل المشكلة. **5. ملف تالف:** * في حالات نادرة، يمكن أن يتسبب ملف Excel التالف في فشل وظائف الماكرو. * حاول إنشاء ملف Excel جديد وإعادة إنشاء الماكرو. **6. إصدار Excel غير متوافق:** * تأكد من أن إصدار Excel الذي تستخدمه متوافق مع كود الماكرو. * إذا كتبت الماكرو في إصدار أحدث من Excel، فقد لا تعمل في الإصدارات الأقدم. **7. مشاكل التوافق:** * إذا تم إنشاء الماكرو في نظام تشغيل مختلف أو إصدار مختلف من Excel، فقد لا يعمل بشكل صحيح في نظامك الحالي. * حاول إعادة كتابة الماكرو أو البحث عن إصدار متوافق.

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

**وعليكم السلام ورحمة الله وبركاته** 🌷 **إضافة رمز الاستجابة السريعة (QR) إلى مستند Word** **الخطوات:** 1️⃣ **إنشاء رمز الاستجابة السريعة:** - انتقل إلى موقع ويب لإنشاء رمز الاستجابة السريعة، مثل QR Code Generator. - أدخل نص المستند الذي تريد تضمينه في رمز الاستجابة السريعة. - حدد حجم وشكل رمز الاستجابة السريعة. - انقر فوق "إنشاء" لإنشاء رمز الاستجابة السريعة. 2️⃣ **حفظ رمز الاستجابة السريعة:** - انقر بزر الماوس الأيمن فوق رمز الاستجابة السريعة وحدد "حفظ الصورة باسم". - احفظ الصورة بتنسيق PNG أو JPG. 3️⃣ **إدراج رمز الاستجابة السريعة في مستند Word:** - افتح مستند Word. - انقر فوق علامة التبويب "إدراج". - انقر فوق "صور" وحدد الصورة التي تحتوي على رمز الاستجابة السريعة. - انقر فوق "إدراج". - اضبط حجم وموضع رمز الاستجابة السريعة حسب الحاجة. **مسح رمز الاستجابة السريعة لعرض النص:** 1️⃣ **استخدم تطبيق قارئ رمز الاستجابة السريعة:** - قم بتثبيت تطبيق قارئ رمز الاستجابة السريعة على هاتفك الذكي أو جهازك اللوحي. - افتح التطبيق وقم بمسح رمز الاستجابة السريعة الموجود في مستند Word. 2️⃣ **سيتم فتح النص:** - سيفتح تطبيق قارئ رمز الاستجابة السريعة النص الذي تم تضمينه في رمز الاستجابة السريعة. - يمكنك الآن تعديل النص أو نسخه أو حفظه. **ملاحظة:** - تأكد من أن رمز الاستجابة السريعة كبير بدرجة كافية بحيث يمكن مسحه بسهولة. - اختبر رمز الاستجابة السريعة للتأكد من أنه يعمل بشكل صحيح.

**السلام عليكم ورحمة الله وبركاته** **حل مشكلة ظهور مربعات بدلًا من النصوص في مستند Word:** **1. تعطيل خيار "إظهار إطارات النص":** * انتقل إلى علامة التبويب "ملف". * انقر على "خيارات". * في مربع الحوار "خيارات Word"، انقر على "عرض". * قم بإلغاء تحديد خانة الاختيار "إظهار إطارات النص". **2. تحديث برنامج Word:** * افتح Word. * انتقل إلى علامة التبويب "ملف". * انقر على "حساب". * انقر على "خيارات التحديث". * حدد "تحديث الآن". **3. إصلاح Word:** * أغلق Word. * انتقل إلى لوحة التحكم. * انقر على "البرامج والميزات". * حدد Microsoft Office. * انقر على "تغيير". * حدد "إصلاح". **4. إعادة تعيين خيارات Word:** * أغلق Word. * اضغط على مفتاح Windows + R. * اكتب "winword /safe" في مربع الحوار "تشغيل". * انقر على "موافق". * في Word، انتقل إلى علامة التبويب "ملف". * انقر على "خيارات". * في مربع الحوار "خيارات Word"، انقر على "متقدم". * في قسم "خيارات العرض"، انقر على "إعادة تعيين". * حدد "إعادة تعيين جميع الخيارات إلى الوضع الافتراضي". **5. تعطيل وضع التوافق:** * انقر بزر الماوس الأيمن على ملف Word. * حدد "خصائص". * في علامة التبويب "توافق"، قم بإلغاء تحديد خانة الاختيار "تشغيل هذا البرنامج في وضع التوافق لـ". **6. إزالة إضافات Word:** * افتح Word. * انتقل إلى علامة التبويب "ملف". * انقر على "خيارات". * في مربع الحوار "خيارات Word"، انقر على "إضافات". * في قسم "إدارة"، حدد "إضافات COM". * انقر على "انتقال". * قم بإلغاء تحديد أي إضافات غير ضرورية. **7. إعادة تثبيت Word:** * قم بإلغاء تثبيت Word من لوحة التحكم. * أعد تثبيت Word من موقع Microsoft الرسمي.

**وعليكم السلام ورحمة الله وبركاته** **إليك كود VBA يضبط الصفحة تلقائيًا في منتصف الشاشة:** ```vba Sub CenterPage() ' احصل على نطاق الصفحة النشطة Dim oPage As Page Set oPage = ActiveDocument.ActiveWindow.View.Page ' احسب موضع الصفحة في منتصف الشاشة Dim lLeft As Long Dim lTop As Long lLeft = Application.Left + (Application.Width - oPage.Width) / 2 lTop = Application.Top + (Application.Height - oPage.Height) / 2 ' اضبط موضع الصفحة oPage.Left = lLeft oPage.Top = lTop End Sub ``` **إليك كود VBA يثبت شريط التمرير الأفقي في المنتصف دائمًا:** ```vba Private Sub Document_WindowActivate() ' احصل على شريط التمرير الأفقي Dim oHScrollBar As HScrollBar Set oHScrollBar = ActiveWindow.HScrollBar ' اضبط موضع شريط التمرير في المنتصف oHScrollBar.Value = oHScrollBar.Max / 2 End Sub ``` **لاستخدام هذه الأكواد:** 1. افتح محرر Visual Basic (Alt + F11). 2. انقر بزر الماوس الأيمن على مشروع VBA الخاص بالوثيقة النشطة. 3. حدد "إدراج" > "وحدة نمطية". 4. الصق الكود في وحدة النمطية. 5. أغلق محرر Visual Basic. **ملاحظة:** * الكود الأول يضبط موضع الصفحة فقط عند تنفيذه. * الكود الثاني يثبت شريط التمرير الأفقي في المنتصف دائمًا، حتى عند التكبير أو التصغير.

**نعم، توجد طريقة في برنامج Microsoft Word للبحث والاستبدال من شأنها استبدال مجموعة كلمات بمجموعة حواشي سفلية.** **إليك الخطوات:** 1. **افتح مستند Word** الذي تريد إجراء البحث والاستبدال فيه. 2. انقر فوق علامة التبويب **"الصفحة الرئيسية"**. 3. انقر فوق الزر **"بحث واستبدال"** في مجموعة **"تحرير"**. 4. في مربع الحوار **"بحث واستبدال"**، انقر فوق علامة التبويب **"استبدال"**. 5. في مربع **"إيجاد"**، اكتب مجموعة الكلمات التي تريد استبدالها. 6. في مربع **"استبدال ب"**، اكتب علامة الحاشية السفلية التي تريد إضافتها. 7. انقر فوق الزر **"استبدال الكل"**. **ملاحظة:** * إذا كنت تريد استبدال مجموعة كلمات بحاشية سفلية تحتوي على نص، فستحتاج إلى تضمين النص بين علامتي قوسين معقوفتين في مربع **"استبدال ب"**. على سبيل المثال، لاستبدال "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص"، ستكتب: ``` [هذا هو النص] ``` **مثال:** إذا كنت تريد استبدال جميع مثيلات "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص"، فستقوم بما يلي: * في مربع **"إيجاد"**، اكتب **مجموعة الكلمات**. * في مربع **"استبدال ب"**, اكتب **[هذا هو النص]** * انقر فوق الزر **"استبدال الكل"**. بعد ذلك، سيتم استبدال جميع مثيلات "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص". إليك كود VBA الذي يمكنك استخدامه للبحث والاستبدال من شأنه استبدال مجموعة كلمات بمجموعة حواشي سفلية:** ```vba Sub ReplaceWordsWithFootnotes() Dim rng As Range Dim strFind As String Dim strReplace As String Dim intFootnoteNumber As Integer ' Get the range of the document Set rng = ActiveDocument.Range ' Get the string to find strFind = InputBox("Enter the string to find:") ' Get the string to replace with strReplace = InputBox("Enter the string to replace with:") ' Get the footnote number intFootnoteNumber = InputBox("Enter the footnote number:") ' Loop through the range and replace the string For Each rng In rng.Find.Execute(FindText:=strFind, ReplaceWith:=strReplace, _ Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue) rng.InsertFootnote Reference:=intFootnoteNumber Next rng End Sub ``` **كيفية استخدام الكود:** 1. افتح مستند Word الذي تريد إجراء البحث والاستبدال فيه. 2. اضغط على **Alt + F11** لفتح محرر Visual Basic. 3. انقر فوق **إدراج** > **وحدة نمطية**. 4. الصق الكود في وحدة النمط. 5. اضغط على **F5** لتشغيل الكود. 6. سيتم مطالبتك بإدخال السلسلة التي تريد البحث عنها، والسلسلة التي تريد استبدالها بها، ورقم الحاشية السفلية. 7. انقر فوق **موافق** لاستبدال جميع مثيلات السلسلة التي تريد البحث عنها بالحاشية السفلية المحددة. **ملاحظة:** * إذا كنت تريد استبدال السلسلة بحاشية سفلية تحتوي على نص، فستحتاج إلى تضمين النص بين علامتي قوسين معقوفتين في متغير **strReplace**. على سبيل المثال، لاستبدال "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص"، ستكتب: ```vba strReplace = "[هذا هو النص]" ```

**وعليكم السلام ورحمة الله وبركاته** **سبب المشكلة:** تحدث هذه المشكلة عادةً بسبب اختلاف الخط المستخدم في الكتابة والطباعة. الخطوط العربية تحتوي على أشكال مختلفة للحروف حسب موضعها في الكلمة (بداية، وسط، نهاية). عند الكتابة، قد تستخدم خطًا يدعم هذه الأشكال، ولكن عند الطباعة، قد يتم استخدام خط مختلف لا يدعمها. **الحل:** لتصحيح هذه المشكلة، اتبع الخطوات التالية: 1. حدد النص الذي يحتوي على اسم الجلالة. 2. انقر بزر الماوس الأيمن واختر "خط". 3. في مربع الحوار "خط"، انتقل إلى علامة التبويب "متقدم". 4. في قسم "ميزات الخطوط المفتوحة"، تأكد من تحديد خيار "أشكال بديلة لوضع الحروف". 5. انقر فوق "موافق". سيؤدي هذا إلى التأكد من استخدام خط يدعم أشكال الحروف العربية المختلفة، بما في ذلك الشدة. **ملاحظة:** * إذا استمرت المشكلة، فقد تحتاج إلى تثبيت خطوط عربية إضافية تدعم أشكال الحروف المفتوحة. * يمكنك أيضًا محاولة تغيير الخط المستخدم في الطباعة إلى خط يدعم أشكال الحروف العربية.

**كود حذف الأصفار من شمال الأرقام في ملفات Word:** ``` Sub RemoveLeadingZeros() Dim rng As Range Dim findWhat As String findWhat = "<0" Set rng = ActiveDocument.Range With rng.Find .ClearFormatting .Text = findWhat .Replacement.ClearFormatting .Replacement.Text = "" .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .Execute Replace:=wdReplaceAll End With End Sub ``` **كيفية استخدام الكود:** 1. افتح ملف Word الذي يحتوي على الأرقام التي تريد تعديلها. 2. اضغط على "Alt + F11" لفتح محرر Visual Basic. 3. انقر فوق "إدراج" > "وحدة نمطية". 4. الصق الكود في وحدة النمط. 5. اضغط على "F5" لتشغيل الكود. سيقوم هذا الكود بحذف جميع الأصفار الموجودة على يسار الأرقام في الملف. **ملاحظة:** * هذا الكود يحذف فقط الأصفار الموجودة على يسار الأرقام. * إذا كنت تريد حذف أصفار إضافية من داخل الأرقام، يمكنك تعديل الكود وفقًا لذلك.

**كود آخر لنسخ تلقائي بيانات المجموع وتقدير الألوان لكل مادة من ورقة شيت إلى ورقة نتيجة:**` function copyDataAndGrade() { var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('ورقة شيت'); var data = sheet.getDataRange().getValues(); var resultSheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('ورقة نتيجة'); for (var i = 1; i < data.length; i++) { var grade = data[1]; resultSheet.getRange(i + 1, 2).setValue(grade); if (grade >= 90) { resultSheet.getRange(i + 1, 2).setBackgroundColor('#00FF00'); } else if (grade >= 80) { resultSheet.getRange(i + 1, 2).setBackgroundColor('#FFFF00'); } else if (grade >= 70) { resultSheet.getRange(i + 1, 2).setBackgroundColor('#FF8000'); } else if (grade >= 60) { resultSheet.getRange(i + 1, 2).setBackgroundColor('#FFA500'); } else { resultSheet.getRange(i + 1, 2).setBackgroundColor('#FF0000'); } } } **الاختلافات الرئيسية بين الكودين:** * يقوم هذا الكود أيضًا بنسخ بيانات المجموع من ورقة الشيت إلى ورقة النتيجة. * بالإضافة إلى ذلك، يقوم بتقدير الألوان لكل مادة بناءً على المجموع، باستخدام ألوان مختلفة لتمثيل نطاقات الدرجات المختلفة.