تحميل مجانى للكود السحري لتقليل وتصغير حجم ملفات الإكسيل Excel

فى احيان كثيرة جدا تميل احجام ملفات اكسل الى الزيادة فى الحجم بشكل مبالغ فية دون معرفة سبب هذة الزيادة فى الحجم فقد يكون حجمه يتعدى ال10 ميجا ولا يحتوى بدخله على صورة واحدة , مما يؤدى الى بطئ شديد فى فتح ملفات اكسل والعمل عليها .

وعادة ما تحتوى ملفات اكسل على نصوص فقط وايضا يكون حجم الملف كبير جدا بالمقارنة بالبيانات الموجودة فية
لذلك بعد البحث عن كود اكسل vba لتقليل حجم الملف اكسل , وجدنا الطريقة السحرية والكود السحرى للمبدع والرائع استاذ / ياسر خليل , كما نذكر حضرراتكم بموضوع سابق بعنوان شرح كامل فى الإكسيل Excel فى عشرة ورقات باللغتين العربى والإنجليزى

اليكم الكود

Option Explicit

Sub ExcelDiet()

Dim j As Long

Dim k As Long

Dim LastRow As Long

Dim LastCol As Long

Dim ColFormula As Range

Dim RowFormula As Range

Dim ColValue As Range

Dim RowValue As Range

Dim Shp As Shape

Dim ws As Worksheet

Application.ScreenUpdating = False

Application.DisplayAlerts = False

On Error Resume Next

For Each ws In Worksheets

With ws

'Find the last used cell with a formula and value

'Search by Columns and Rows

<<<<<<<<<

صور من الكود بعد تحميله وفك الضغط

باقى الكود يرجى تحميله من احدى المواقع التالية

الكود ياخذ فى حدود من دقيقة الى دقيقة ونصف عمل وبعد ذلك ستجد ان ملفك اصبح حجمة بدلا 25 ميجا بيت اصبح 50 كيلو بايت
يتحول الملف الى حجم لايذكر وهذة هى الطريقة السحرية المجربة فعليا