Saleh Ahmed Rabie

مايو 29

وعليكم السلام ورحمة الله وبركاته

يمكنك الاستفادة من هذا البرنامج

مايو 29

السلام عليكم الاخوة الافاضل

كل عام و حضراتكم بالف خير و صحة و سعادة

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

تسكين الاسماء في أماكنها.xlsx

مايو 27

.

مايو 27

**بالتأكيد، يمكن تعديل الكود بحيث يرحل البيانات إلى آخر صف فارغ في نطاق النتيجة دون مسح البيانات المرحّلة مسبقًا.**

**إليك الكود المعدّل:**

`
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` لنسخ النتائج إلى الصف التالي الفارغ.

**باستخدام هذا الكود المعدّل، سيتم ترحيل البيانات المفلترة إلى آخر صف فارغ في نطاق النتيجة دون مسح البيانات المرحّلة مسبقًا.**

مايو 26

يسعدني مساعدتك في إعداد معادلة لحساب الدرجة المعيارية بناءً على الدرجة الخام.

**إليك خطوات إنشاء المعادلة:**

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).

*

مايو 26

وعليكم السلام ورحمة الله وبركاته

نعم، يوجد عدد من البرامج التي توفر حماية مماثلة لبرنامج Unviewable+ لمحرر أكواد VBA، ومنها:

* **VBA Protector**: أداة لحماية أكواد VBA، وتتميز بواجهة مستخدم سهلة الاستخدام وخيارات تخصيص واسعة.

* **VBA Code Protector**: برنامج يركز بشكل خاص على حماية أكواد VBA من التعديل أو العرض غير المصرح به.

* **VBA Encrypter**: أداة لتشفير أكواد VBA باستخدام خوارزميات تشفير قوية.
* **VBA Obfuscator**: أداة لتعويق أكواد VBA من خلال إعادة تسمية المتغيرات والوظائف.

* **VBA Protector Plus**: برنامج يوفر مجموعة شاملة من ميزات الحماية لأكواد VBA، بما في ذلك التشفير وإخفاء التعليمات البرمجية.

مايو 25

**دالة الاستخراج في إكسل لاستخراج الأسماء المتكررة**

لاستخراج الأسماء المتكررة من سلسلة نصية، يمكنك استخدام دالة الاستخراج مع دالة البحث.

**الصيغة:**

```
=EXTRACT(SEARCH(اسم_البحث, سلسلة_النص), سلسلة_النص, طول_اسم_البحث)
```

**حيث:**

* **اسم_البحث:** الجزء من السلسلة النصية الذي تريد البحث عنه.
* **سلسلة_النص:** السلسلة النصية التي تريد البحث فيها.
* **طول_اسم_البحث:** طول الجزء الذي تريد استخراجه.

**مثال:**

لاستخراج أول ثلاثة أسماء من السلسلة النصية "ليث محمد علي مصطفى العنزي"، استخدم الصيغة التالية:

```
=EXTRACT(SEARCH("ليث محمد علي", A1), A1, 15)
```

حيث:

* A1 هي الخلية التي تحتوي على السلسلة النصية.
* "ليث محمد علي" هو الجزء الذي نريد البحث عنه.
* 15 هو طول الجزء الذي نريد استخراجه (أول ثلاثة أسماء).

**النتيجة:**

```
ليث محمد علي
```

**ملاحظة:**

* إذا لم يتم العثور على الجزء المحدد، فستعيد الدالة خطأ #VALUE!.
* يمكنك تعديل الصيغة لتناسب احتياجاتك، مثل استخراج عدد مختلف من الأسماء أو البحث عن جزء مختلف من السلسلة النصية.

مايو 25

إذا أجريت المسح ولم يتم حل المشكلة، فقد يكون السبب أحد الأمور التالية:

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

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

مايو 25

**حل لمشكلة تجميع الخلايا غير المحددة مع الخلايا المحددة في دالة المجموع في إكسيل:**

* **استخدام دالة 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، والتي تتضمن فقط الخلايا غير الفارغة.

مايو 24

**إصلاح رسالة "All of your fonts are hidden" في Excel**

عند محاولة تغيير حجم الخط أو نوعه في Excel، قد تظهر لك رسالة الخطأ "All of your fonts are hidden". يشير هذا الخطأ إلى أن جميع الخطوط لديك مخفية في نظام التشغيل الخاص بك. لحل هذه المشكلة، اتبع الخطوات التالية:

**1. فتح إعدادات الخطوط:**

* انتقل إلى لوحة التحكم في نظام التشغيل الخاص بك.
* انقر فوق "الخطوط".

**2. إظهار جميع الخطوط:**

* في نافذة "الخطوط"، انقر فوق علامة التبويب "إعدادات الخط".
* حدد خانة الاختيار "إظهار الخطوط المخفية".
* انقر فوق "موافق".

**3. إعادة تشغيل Excel:**

* أغلق Excel وأعد تشغيله.

**4. تغيير حجم الخط ونوعه:**

* بعد إعادة تشغيل Excel، يجب أن تكون قادرًا الآن على تغيير حجم الخط ونوعه دون أي مشاكل.

**نصائح إضافية:**

* تأكد من أن لديك أذونات إدارية على الكمبيوتر الذي تستخدمه.
* إذا كنت لا تزال تواجه مشاكل، فحاول إعادة تثبيت Excel.

مايو 24

**تصحيح الكود:**

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` صحيح.

مايو 24

**وعليكم السلام ورحمة الله وبركاته**

**أخي الكريم،**

**يسعدني مساعدتك في حل مشكلتك.**

**إليك الخطوات اللازمة لإنشاء ملف مطابقة لمقارنة كميات المنتجات المباعة بين ملفات العملاء ورصيد العملاء باستخدام دالة 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)
```
* حيث:
* '[مسار ملف العملاء]': المسار الكامل لملف "عملاء".
* قم بتكرار الخطوة نفسها لبيانات رصيد العملاء.

**بمجرد إعداد ملف المطابقة، يمكنك استخدامه لمقارنة كميات المنتجات المباعة بين ملفات العملاء ورصيد العملاء بسهولة.**

مايو 24

**حل مشكلة ظهور خلفية زرقاء في خلايا إكسل في 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.

مايو 23

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

مايو 23

**أسباب عدم عمل وظائف الماكرو في ملف Excel**

عندما لا تعمل وظائف الماكرو في ملف Excel، فقد يكون السبب أحد العوامل التالية:

**1. تعطيل الماكرو:**

* تأكد من تمكين الماكرو في إعدادات Excel. انتقل إلى "ملف" > "خيارات" > "مركز الثقة" > "إعدادات مركز الثقة" > "إعدادات الماكرو".
* اختر مستوى أمان يسمح بتشغيل الماكرو.

**2. إعدادات الأمان:**

* قد تمنع إعدادات الأمان في نظام التشغيل الخاص بك تشغيل الماكرو.
* تحقق من إعدادات جدار الحماية ومكافحة الفيروسات للسماح بتشغيل الماكرو من مصادر موثوقة.

**3. أخطاء الكود:**

* تحقق من وجود أخطاء في كود الماكرو. قد تؤدي الأخطاء النحوية أو المنطقية إلى فشل الماكرو في العمل.
* استخدم أدوات تصحيح الأخطاء في Excel لتحديد أي أخطاء في الكود.

**4. تضارب الوظائف الإضافية:**

* يمكن أن تتداخل بعض الوظائف الإضافية مع وظائف الماكرو.
* قم بتعطيل الوظائف الإضافية غير الضرورية ومعرفة ما إذا كان ذلك يحل المشكلة.

**5. ملف تالف:**

* في حالات نادرة، يمكن أن يتسبب ملف Excel التالف في فشل وظائف الماكرو.
* حاول إنشاء ملف Excel جديد وإعادة إنشاء الماكرو.

**6. إصدار Excel غير متوافق:**

* تأكد من أن إصدار Excel الذي تستخدمه متوافق مع كود الماكرو.
* إذا كتبت الماكرو في إصدار أحدث من Excel، فقد لا تعمل في الإصدارات الأقدم.

**7. مشاكل التوافق:**

* إذا تم إنشاء الماكرو في نظام تشغيل مختلف أو إصدار مختلف من Excel، فقد لا يعمل بشكل صحيح في نظامك الحالي.
* حاول إعادة كتابة الماكرو أو البحث عن إصدار متوافق.

مايو 23

**حل مشكلة تشابك والتصاق الحروف عند نقل ملف ورد من جهاز مثبت عليه أوفيس 2007 إلى جهاز مثبت عليه أوفيس 2016 برو بلس:**

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

**تغيير إعدادات أوفيس 2016 الافتراضية لطباعة الورقة الحالية بدلاً من كل الصفحات:**

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

من الآن فصاعدًا، سيطبع أوفيس 2016 برو بلس فقط الصفحة الحالية التي حددتها، بدلاً من طباعة جميع الصفحات في المستند.

مايو 23

**وعليكم السلام ورحمة الله وبركاته** 🌷

**إضافة رمز الاستجابة السريعة (QR) إلى مستند Word**

**الخطوات:**

1️⃣ **إنشاء رمز الاستجابة السريعة:**
- انتقل إلى موقع ويب لإنشاء رمز الاستجابة السريعة، مثل QR Code Generator.
- أدخل نص المستند الذي تريد تضمينه في رمز الاستجابة السريعة.
- حدد حجم وشكل رمز الاستجابة السريعة.
- انقر فوق "إنشاء" لإنشاء رمز الاستجابة السريعة.

2️⃣ **حفظ رمز الاستجابة السريعة:**
- انقر بزر الماوس الأيمن فوق رمز الاستجابة السريعة وحدد "حفظ الصورة باسم".
- احفظ الصورة بتنسيق PNG أو JPG.

3️⃣ **إدراج رمز الاستجابة السريعة في مستند Word:**
- افتح مستند Word.
- انقر فوق علامة التبويب "إدراج".
- انقر فوق "صور" وحدد الصورة التي تحتوي على رمز الاستجابة السريعة.
- انقر فوق "إدراج".
- اضبط حجم وموضع رمز الاستجابة السريعة حسب الحاجة.

**مسح رمز الاستجابة السريعة لعرض النص:**

1️⃣ **استخدم تطبيق قارئ رمز الاستجابة السريعة:**
- قم بتثبيت تطبيق قارئ رمز الاستجابة السريعة على هاتفك الذكي أو جهازك اللوحي.
- افتح التطبيق وقم بمسح رمز الاستجابة السريعة الموجود في مستند Word.

2️⃣ **سيتم فتح النص:**
- سيفتح تطبيق قارئ رمز الاستجابة السريعة النص الذي تم تضمينه في رمز الاستجابة السريعة.
- يمكنك الآن تعديل النص أو نسخه أو حفظه.

**ملاحظة:**

- تأكد من أن رمز الاستجابة السريعة كبير بدرجة كافية بحيث يمكن مسحه بسهولة.
- اختبر رمز الاستجابة السريعة للتأكد من أنه يعمل بشكل صحيح.

مايو 23

**السلام عليكم ورحمة الله وبركاته**

**حل مشكلة ظهور مربعات بدلًا من النصوص في مستند 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 الرسمي.

مايو 23

**وعليكم السلام ورحمة الله وبركاته**

**إليك كود 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.

**ملاحظة:**

* الكود الأول يضبط موضع الصفحة فقط عند تنفيذه.
* الكود الثاني يثبت شريط التمرير الأفقي في المنتصف دائمًا، حتى عند التكبير أو التصغير.

مايو 23

**نعم، توجد طريقة في برنامج 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 = "[هذا هو النص]"
```

مايو 23

**وعليكم السلام ورحمة الله وبركاته**

**سبب المشكلة:**

تحدث هذه المشكلة عادةً بسبب اختلاف الخط المستخدم في الكتابة والطباعة. الخطوط العربية تحتوي على أشكال مختلفة للحروف حسب موضعها في الكلمة (بداية، وسط، نهاية). عند الكتابة، قد تستخدم خطًا يدعم هذه الأشكال، ولكن عند الطباعة، قد يتم استخدام خط مختلف لا يدعمها.

**الحل:**

لتصحيح هذه المشكلة، اتبع الخطوات التالية:

1. حدد النص الذي يحتوي على اسم الجلالة.
2. انقر بزر الماوس الأيمن واختر "خط".
3. في مربع الحوار "خط"، انتقل إلى علامة التبويب "متقدم".
4. في قسم "ميزات الخطوط المفتوحة"، تأكد من تحديد خيار "أشكال بديلة لوضع الحروف".
5. انقر فوق "موافق".

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

**ملاحظة:**

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

مايو 23

**كود حذف الأصفار من شمال الأرقام في ملفات 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" لتشغيل الكود.

سيقوم هذا الكود بحذف جميع الأصفار الموجودة على يسار الأرقام في الملف.

**ملاحظة:**

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

مايو 22

**كود آخر لنسخ تلقائي بيانات المجموع وتقدير الألوان لكل مادة من ورقة شيت إلى ورقة نتيجة:**`

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');
    }
  }
}

**الاختلافات الرئيسية بين الكودين:**

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

مايو 22

**كود نسخ تلقائي بيانات المجموع وتقدير الالوان لكل مادة من ورقة شيت الى ورقة نتيجة**

**الخطوة 1: إنشاء ورقة شيت**

* قم بإنشاء ورقة شيت تحتوي على بيانات المجموع لكل مادة.
* تأكد من تضمين عمود "المادة" وعمود "المجموع".

**الخطوة 2: إنشاء ورقة نتيجة**

* قم بإنشاء ورقة نتيجة تحتوي على عمود "المادة" وعمود "التقدير".

**الخطوة 3: كتابة الكود**

* انتقل إلى ورقة الشيت.
* في شريط القوائم، انتقل إلى "إضافات" > "محررات نصية" > "إنشاء".

* الصق الكود التالي في محرر النصوص:


function copyData() {
  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];
    if (grade >= 90) {
      resultSheet.getRange(i + 1, 2).setValue('ممتاز');
    } else if (grade >= 80) {
      resultSheet.getRange(i + 1, 2).setValue('جيد جدا');
    } else if (grade >= 70) {
      resultSheet.getRange(i + 1, 2).setValue('جيد');
    } else if (grade >= 60) {
      resultSheet.getRange(i + 1, 2).setValue('مقبول');
    } else {
      resultSheet.getRange(i + 1, 2).setValue('راسب');
    }
  }
}

* احفظ محرر النصوص.

**الخطوة 4: تشغيل الكود**

* انتقل إلى "إضافات" > "محررات نصية" > "تشغيل" من شريط القوائم.

**النتيجة:**

* سيتم نسخ بيانات المجموع من ورقة الشيت إلى ورقة النتيجة.
* سيتم تقدير الألوان لكل مادة بناءً على المجموع.

**ملاحظة:**

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

مايو 22

**خطوات استخراج بيانات الشيكات من شيتات منفصلة إلى شيت مجمع:**

**1. إنشاء شيت مجمع:**
- افتح ملف Excel الخاص بك.
- أنشئ شيتًا جديدًا وأطلق عليه اسم "الشيكات المجمعة".

**2. استيراد البيانات من الشيتات المنفصلة:**
- انتقل إلى الشيت المجمع.
- في الخلية A1، أدخل الصيغة التالية:

=IMPORTRANGE("رابط الشيت المنفصل 1", "اسم الشيت المنفصل 1!A1:G1")

- حيث:
- رابط الشيت المنفصل 1: هو رابط الشيت المنفصل الذي يحتوي على بيانات الشيك الأول.
- اسم الشيت المنفصل 1: هو اسم الشيت المنفصل الذي يحتوي على بيانات الشيك الأول.
- A1:G1: هو نطاق البيانات الذي تريد استيراده من الشيت المنفصل.
- كرر هذه الخطوة لكل شيت منفصل يحتوي على بيانات الشيكات.

**3. تعديل الصيغ لاستخراج البيانات المطلوبة:**
- بعد استيراد البيانات، تحتاج إلى تعديل الصيغ لاستخراج البيانات المطلوبة من كل شيك.
- على سبيل المثال، لاستخراج رقم الشيك، استخدم الصيغة التالية في الخلية B1 من الشيت المجمع:

=MID(A1, FIND("رقم الشيك:", A1) + 10, 10)

- كرر هذه الخطوة لاستخراج البيانات الأخرى مثل تاريخ الشيك والمبلغ والاسم وما إلى ذلك.

**4. استخدام الدوال المساعدة (اختياري):**
- يمكنك استخدام الدوال المساعدة مثل TRIM و CLEAN لإزالة المسافات الزائدة والرموز غير المرغوب فيها من البيانات المستوردة.
- على سبيل المثال، لاستخراج تاريخ الشيك بدون مسافات زائدة، استخدم الصيغة التالية في الخلية C1 من الشيت المجمع:

=TRIM(MID(A1, FIND("تاريخ الشيك:", A1) + 13, 10))

**5. تنسيق البيانات (اختياري):**
- يمكنك تنسيق البيانات في الشيت المجمع لجعلها أكثر قابلية للقراءة.
- على سبيل المثال، يمكنك تنسيق تاريخ الشيك بتنسيق التاريخ المطلوب.

**ملاحظة:**
- إذا كنت ترغب في استخدام المعدلات بدلاً من الأكواد، فيمكنك إنشاء جدول بحث في شيت منفصل يربط الأكواد بالمعدلات. ثم يمكنك استخدام الدالة VLOOKUP لاستبدال الأكواد بالمعدلات في الشيت المجمع.

تسجيل الدخول

المنتدى

مكتبة الموقع

معرض الصور

المدونات

الوسائط المتعددة

مشاركات المكتوبه بواسطه Saleh Ahmed Rabie

Important Information