Solve the Excel file size problem Solving the problem of hanging| Reduce the size of the excel sheet
ฝัง
- เผยแพร่เมื่อ 23 ส.ค. 2024
- Solve the problem of Excel file size and hanging , by reducing the file size to prevent hanging and the like problems.
There are two ways to do this
The first method is to save the file in a specific format to reduce the file size
The second method is by placing special code to reduce the file size
Link to download the code file to reduce the sheet size
bit.ly/LESSSIZE
#excel
#reduce_sheet_size
hanging
www.zokatec.info/
To support the channel financially so that science continues and benefits everyone
www.paypal.me/...
/ mahmoud.abozaid.egy
/ zokatec
#zoka_tec
جزاك الله خيرا . ثم الصلاة والسلام على سيدنا النبي واله وصحبه اجمعين
بارك الله فيك عشره على عشره
جزاك الله كل خير كان الشيت تقيل معايا جدا دلوقتى احسن .. شكرا جدا لحضرتك بالتوفيق
شو عملتي عملت الطريقه الاولى والملف كبر حجمه اكثر ما قل
الله يجازيك خير
كود تقليل حجم الملف به مشكلة فى التحميل لو ممكن رفعه فى المرفقات وشكرا
شكرا
الله ينور عليك
الف شكر
🎉🎉🎉🎉🎉 شكرا
انا عملت بالطريقه الاولى و بردو الملف تقيل جدا جدا فى اى حاجه بعملها حتى لو بمسح خانات
تواصل معي علشان اعرف مشكلتك
اذا سمحت كيف ممكن نتواصل معاك يا دكتور
السلام عليكم با اخي اريد ان اطرح عليك سؤال فيما يخص فتح ملف ذات الحجم الكبير لم استطع فتحه قمت بتحويل من ملف ويندف الى اكسل ولكن لم استطع
ارسل الملف
نفس المشكله برضه
السلام عليكم شكرا جزيلا فين الكود
ممكن ملف الكود
بارك الله فيك أخي
ولكن أين برنامج لكي أنسخه لم أجده?
www.upload-4ever.com/h9ui82927x65
فى رساله بتيجى بتقول (استكمال هذه المهمة بالموارد المتاحه،اختر بيانات أقل Excel تعذر على ،او اغلق تطبيقات اخرى) ومش بيسجل
شغال بالكود و لا بالصيغة
الأستاذ الكريم
لدي سؤال عن ملف إكسل حجمه 12 ميغا
عمل الملف بطيء رغم أنني قمت بنقله إلى أكثر من لابتوب وشغلت الأكواد و لكنه يعاني من نفس البطء
حتى يكون الأمر واضحاً أكثر.. هناك كود من عدة كلمات نستطيع من خلالها عند فتح الملف في كل مرة يقوم بالانتقال تلقائياً إلى الصفحة التي قمنا بتحديدها في الكود عن طريق الأمر Select
ومنذ ذلك الحين والبرنامج عندي يعاني من الثقل رغم أنني قمت بحذف الكود عندما لاحظت ثقله ولكن رغم ذلك بقي البطء موجوداُ فيه
ولم أجد حلاً لذلك إلى الآن.. وعند القيام بأي ترحيل أو أي تغيير أو حتى الانتقال بين الخلايا يعطي رسالة أسفل الشريط إلى اليسار مضمونها:
يتم الآن الحساب: (4 معالج (معالجات))
ما الحل هنا ؟
تواصل مع علي الواتس اب اللي علي القناة
@@ZOKATEC
لم أجد الرقم.. لو أرسلته هنا أستاذي الكريم
01229295347
@@ZOKATEC
قمت بحفظ الرقم ولكن لم يظهر لدي الواتس اب
نفس المشكله عندي
مش عاوز ينزل كود تقليل ااحجم
يا عم Alet+ F11 اختصار مبيشتغلش في جميع الأجهزة اعمل ايه علشان ادخل الكود
ممكن حضرتك توصله من التاب "developer "
كود تحميل الملف مش بيحمل
حجم الملف كبر معايا .. مقلش 😀
وانا كمان 😅شو السببب؟؟؟
معلش حضرتك فين الكود؟
الرابط تحت الفيديو bit.ly/LESSSIZE
@@ZOKATEC مش شغال
اذا مابترد عل تعليقات ليه بتنزل وتتفلسف عل ناس وتستهبل كل. بتعملو عمل وهمي هاد لافي كود ولا في شي لحد يسدقو بلحه
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
On Error Resume Next
Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
On Error GoTo 0
'Determine the last column
If ColFormula Is Nothing Then
LastCol = 0
Else
LastCol = ColFormula.Column
End If
If Not ColValue Is Nothing Then
LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column)
End If
'Determine the last row
If RowFormula Is Nothing Then
LastRow = 0
Else
LastRow = RowFormula.Row
End If
If Not RowValue Is Nothing Then
LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row)
End If
'Determine if any shapes are beyond the last row and last column
For Each Shp In .Shapes
j = 0
k = 0
On Error Resume Next
j = Shp.TopLeftCell.Row
k = Shp.TopLeftCell.Column
On Error GoTo 0
If j > 0 And k > 0 Then
Do Until .Cells(j, k).Top > Shp.Top + Shp.Height
j = j + 1
Loop
If j > LastRow Then
LastRow = j
End If
Do Until .Cells(j, k).Left > Shp.Left + Shp.Width
k = k + 1
Loop
If k > LastCol Then
LastCol = k
End If
End If
Next
.Range(.Cells(1, LastCol + 1), .Cells(.Rows.Count, .Columns.Count)).EntireColumn.Delete
.Range("A" & LastRow + 1 & ":A" & .Rows.Count).EntireRow.Delete
End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
msgbox " ?? ???????? ?? ????? "
End Sub
الكود به خطا
تأكد من اللغة
الطريقه جربتها ومش صح
تواصل معي علشان اعرف مشكلتك
ملف الكود فيه فيروس
ملف الكود مجرد note مكتوب في أكواد excel vba
@@ZOKATEC عند تتبع خطوات التحميل دخلنى احمل ملف لما بحملة برنامج الحماية قال ان الملف خطر ويحتوى على فيروس trojan
@@ashrafemam1937 هات ايميلك أرسلم الملف
عندي نفس مشكلتك . لوسمحة كيف يمكننى الحصول على الكود