Saleh Ahmed Rabie

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

تم تعديل الكود
2.xls 1.xlsb 3.xlsm

وعليكم السلام ورحمة الله وبركاته
يمكنك استخدام الدالة التالية في خلية E2:
=DATEDIF(TODAY(),DATE(سنة المعينة, شهر المعين, يوم المعين),"d") حيث تقوم هذه الدالة بحساب عدد الأيام بين تاريخ اليوم وتاريخ المعين الذي تحدده في الصيغة. يمكنك استبدال "سنة المعينة" و"شهر المعين" و"يوم المعين" بالقيم المعينة التي تريدها.

إليك كود VBA بسيط يمكنك استخدامه لحفظ الصفحة الحالية كملف PDF في Excel 2007:
Sub SaveAsPDF()     Dim savePath As String          ' اطلب من المستخدم تحديد مكان الحفظ     savePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")          ' حفظ الصفحة كملف PDF     If savePath <> "False" Then         ActiveSheet.ExportAsFixedFormat Type:=0, Filename:=savePath, Quality:=1, IncludeDocProperties:=True, IgnorePrintAreas:=False     End If End Sub
 
يمكنك نسخ الكود أعلاه ولصقه في وحدة VBA في Excel 2007، ثم تشغيله لحفظ الصفحة الحالية كملف PDF. يرجى ملاحظة أن جودة الصورة المصدرة قد تكون أقل من ExportAsFixedFormat المتاحة في إصدارات أحدث من Excel.

**معادلة Excel لحساب النسبة المئوية للراتب بناءً على الوظيفة والاسم:**
=IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,0))))  
**حيث:**
* **وظيفة: هو اسم الوظيفة التي تريد حساب النسبة المئوية للراتب لها.
* **اسم_الوظيفة:** هو اسم الوظيفة المحددة في خلية أخرى.
* **نسبة_الوظيفة:** هي النسبة المئوية للراتب للوظيفة المحددة.
**مثال:**
إذا كان اسم المهندس في الخلية A1 واسم التصميم في الخلية B1، فيمكنك استخدام المعادلة التالية لحساب النسبة المئوية للراتب للمهندس:
=IF(وظيفة=A1,0.8,IF(وظيفة=A1,0.5,IF(وظيفة=A1,0.45,IF(وظيفة=A1,0.3,0))))  
باستبدال "وظيفة" بـ "A1" (اسم المهندس)، ستحصل على النتيجة التالية:
 
=IF(A1="مهندس تصميم",0.8,IF(A1="مهندس أخصائي",0.5,IF(A1="أخصائي مشرف",0.45,IF(A1="أخصائي محاسب",0.3,0))))  
**ملاحظة:**
* يمكنك تعديل النسب المئوية في المعادلة لتتناسب مع هيكل الرواتب في مؤسستك.
* يمكنك أيضًا إضافة وظائف أخرى إلى المعادلة حسب الحاجة.
 

**خطوات استخراج بيانات الشيكات من شيتات منفصلة إلى شيت مجمع:**
**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 لاستبدال الأكواد بالمعدلات في الشيت المجمع.
 

**وعليكم السلام ورحمة الله وبركاته**
**إليك كيفية طباعة الصفحات التي تحتوي على بيانات فقط في Excel:**
**الخطوات:**
1. **حدد نطاق البيانات:** حدد جميع الخلايا التي تحتوي على البيانات التي تريد طباعتها.
2. **انتقل إلى "ملف":** انقر فوق علامة التبويب "ملف" في الزاوية العلوية اليسرى.
3. **اختر "طباعة":** انقر فوق خيار "طباعة" في القائمة الموجودة على الجانب الأيسر.
4. **حدد "إعدادات":** انقر فوق الزر "إعدادات" الموجود في الجزء العلوي الأيمن من نافذة الطباعة.
5. **تبويب "الصفحة":** انقر فوق علامة التبويب "الصفحة" في نافذة "إعدادات الطباعة".
6. **إلغاء تحديد "طباعة الصفحات الفارغة":** قم بإلغاء تحديد مربع الاختيار "طباعة الصفحات الفارغة".
7. **انقر فوق "موافق":** انقر فوق الزر "موافق" لحفظ الإعدادات.
8. **طباعة:** انقر فوق الزر "طباعة" لطباعة النطاق المحدد من البيانات فقط.
**الكود:**
يمكنك أيضًا استخدام الكود التالي لطباعة الصفحات التي تحتوي على بيانات فقط:
 
Sub PrintDataOnly() 'حدد نطاق البيانات Range("A1:D10").Select 'إعدادات الطباعة With ActiveSheet.PageSetup .PrintArea = Range("A1:D10").Address .PrintComments = False .PrintEmptyRows = False .PrintEmptyColumns = False End With 'طباعة النطاق المحدد ActiveSheet.PrintOut End Sub  
**ملاحظة:**
* سيؤدي هذا الكود إلى طباعة نطاق البيانات المحدد "A1:D10" فقط.
* يمكنك تعديل نطاق البيانات في الكود وفقًا لاحتياجاتك.