كود تقليل حجم ملف excel

لتقليل حجم ملف Excel، يمكنك استخدام بعض الإجراءات التالية:

1. حذف البيانات غير الضرورية: قم بمراجعة ملف Excel واحذف أي بيانات غير ضرورية أو غير مستخدمة. قد تكون هذه البيانات صفوف فارغة أو أعمدة غير مستخدمة أو ورقات عمل غير مهمة. يمكنك أيضًا حذف الأشكال والرسومات غير الضرورية.

2. تقليل حجم الصور: إذا كان لديك صور مدرجة في ملف Excel، يمكنك تقليل حجمها لتوفير مساحة. يمكنك استخدام أدوات تحرير الصور لتغيير حجم الصور وضغطها قبل إدراجها في الملف.

3. التحويل إلى تنسيق ملف أقل حجمًا: يمكنك تحويل ملف Excel إلى تنسيق ملف آخر يكون أصغر حجمًا. على سبيل المثال، يمكنك تحويل الملف إلى تنسيق CSV (قيم مفصولة بفواصل) أو تنسيق XLSB (ملف Excel ثنائي)، والذي يكون أصغر حجمًا من تنسيق XLSX القياسي.

4. ضغط الملف: يمكنك استخدام برامج ضغط الملفات لضغط ملف Excel وتقليل حجمه. يمكنك اختيار أحد برامج الضغط المعروفة مثل WinRAR أو 7-Zip واستخدامها لضغط الملف.

5. حذف التنسيقات الزائدة: قد تحتوي خلايا الملف على تنسيقات زائدة مثل تنسيق النص الغير مرئي أو التنسيقات المعقدة التي لا تحتاج إلى وجودها. يمكنك تحديد المجموعة المعنية من الخلايا وتحديد تنسيقات بسيطة لتقليل حجم الملف.

6. حذف الأوجه المتعددة: قد يحتوي ملف Excel على ورقات عمل متعددة، وقد تكون بعض هذه الأوراق مكررة. قم بحذف الأوراق المكررة واحتفظ بالأوراق التي تحتاجها فقط، وذلك لتقليل حجم الملف.

يجب ملاحظة أن تطبيق هذه الإجراءات قد يؤثر على بعض الخصائص والتنسيقات في الملف Excel الأصلي. لذا، يُنصح بإجراء نسخة احتياطية من الملف قبل تطبيق أي تغييرات للحفاظ على البيانات الأصلية والتنسيقات إذا لزم الأمر.

بالنسبة لتقليل حجم ملف Excel باستخدام VBA (Visual Basic for Applications)، يمكنك استخدام الكود التالي:

Sub ReduceExcelFileSize()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim wb As Workbook

Dim newWb As Workbook

Dim ws As Worksheet

Dim newWs As Worksheet

Dim sheetName As String

Dim sheetNames As Variant

Dim i As Long

' تحديد الملف المفتوح

Set wb = ThisWorkbook

' إنشاء ملف جديد للحفظ

Set newWb = Workbooks.Add

' حذف الأوراق المكررة

sheetNames = wb.Sheets(Array(wb.Sheets(1).Name, wb.Sheets(2).Name, wb.Sheets(3).Name)) ' قم بتعيين أسماء الأوراق التي ترغب في الاحتفاظ بها

For Each sheetName In sheetNames

wb.Sheets(sheetName).Copy After:=newWb.Sheets(newWb.Sheets.Count)

Next sheetName

' حفظ الملف المعدل

newWb.SaveAs "path/to/your/new/file.xlsx" ' قم بتعيين المسار الذي ترغب في حفظ الملف المعدل فيه

newWb.Close SaveChanges:=False

' إعادة تفعيل تحديث الشاشة وعرض التنبيهات

Application.ScreenUpdating = True

Application.DisplayAlerts = True

MsgBox "تم تقليل حجم الملف بنجاح!", vbInformation

End Sub

يجب استبدال "path/to/your/new/file.xlsx" بالمسار الذي ترغب في حفظ الملف المعدل به.

في الكود أعلاه، يتم استخدام `ThisWorkbook` للإشارة إلى الملف الحالي الذي يحتوي على الكود VBA. يتم إنشاء ملف جديد بواسطة `Workbooks.Add`، ويتم حذف الأوراق المكررة من الملف الأصلي ونسخها إلى الملف الجديد باستخدام حلقة `For Each`.

بعد ذلك، يتم حفظ الملف المعدل في المسار المحدد باستخدام `newWb.SaveAs`، ويتم إغلاق الملف الجديد.

عند تشغيل الكود، ستتم عملية تقليل حجم الملف وحفظه في المسار المحدد. ستظهر رسالة تأكيد عند اكتمال العملية.

يرجى ملاحظة أنه يمكنك تعديل الكود حسب احتياجاتك الخاصة، مثل تحديد أوراق محددة للحفظ أو إضافة مزيد من الإجراءات لتقليل حجم الملف.

يمكنك استخدام تقنية Python فى الاكسل لعمل هذا الكود

إذا كنت تبحث عن كود برمجي لتقليل حجم ملف Excel، يمكنك استخدام مكتبة معالجة ملفات Excel مثل openpyxl في Python. اليك مثال بسيط يستخدم هذه المكتبة لحذف الأوراق المكررة في ملف Excel:

from openpyxl import load_workbook

def reduce_excel_file_size(file_path):

# تحميل ملف Excel

workbook = load_workbook(filename=file_path)

# حذف الأوراق المكررة

sheet_names = workbook.sheetnames

existing_sheets = set()

for sheet_name in sheet_names:

if sheet_name in existing_sheets:

workbook.remove(workbook[sheet_name])

else:

existing_sheets.add(sheet_name)

# حفظ الملف المعدل

reduced_file_path = file_path.replace(".xlsx", "_reduced.xlsx")

workbook.save(reduced_file_path)

workbook.close()

# استخدام الدالة لتقليل حجم الملف

reduce_excel_file_size("path/to/your/file.xlsx")

استخدام الدالة لتقليل حجم الملف

reduce_excel_file_size("path/to/your/file.xlsx")

```

هذا المثال يستخدم مكتبة openpyxl لتحميل ملف Excel ويحذف الأوراق المكررة في الملف. يتم حفظ الملف المعدل في مسار جديد مع اسم ملف مختلف ينتهي بـ "_reduced.xlsx".

يجب أن يتم تثبيت مكتبة openpyxl عن طريق الأمر التالي في Python قبل تنفيذ الكود:

pip install openpyxl

تأكد من تعديل المسار "path/to/your/file.xlsx" في الكود ليشير إلى المسار الصحيح لملف Excel الذي ترغب في تقليل حجمه.

إضافة إلى ذلك، يمكنك استكشاف مكتبات أخرى مثل pandas و xlrd لمعالجة وتحليل وتقليل حجم ملفات Excel بأساليب مختلفة.

عالم الاوفيس

كود تقليل حجم ملف excel

كود تقليل حجم ملف excel

بالنسبة لتقليل حجم ملف Excel باستخدام VBA (Visual Basic for Applications)، يمكنك استخدام الكود التالي:

يمكنك استخدام تقنية Python فى الاكسل لعمل هذا الكود

قد يعجبك ايضا