تخفيف حجم الملف

[ياسر خليل أبو البراء]

أخي الكريم أبو احمد

بداية يرجى تغيير اللقب 172426 إلى لقبك لنتعارف عليك

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

يراعى مستقبلاً أن يكون الملف المرفق معبر عن الملف الأصلي تماماً حتى تتضح الصورة للجميع وحتى يكون العمل أسرع وأدق

لا تنزعج من نصحي ..فما أردت لك ولغيرك إلا المصلحة

الآن يعتبر الموضوع مختلف لأن المرفق سيكون مختلف عن سابقه ..

لذا (وإن كنت أفضل طرح موضوع جديد) لذا ارفق ملفك الجديد المعبر عن الملف الأصلي ..

وأكرر لا تنزعج من نصحي فوالله لا أريد إلا المصلحة والمنفعة للجميع

ويرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في صدر المنتدى

تقبل تحياتي

[ابو حمادة]

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

[ياسر خليل أبو البراء]

أخي الكريم أبو احمد

إن شاء الله كل شيء بالصبر بيتم بعون الله

فقط لو الموضوع شايف إنه هيكون مختلف اطرح موضوع جديد واشرح فيه بالتفصيل المطلوب وإخوانك لن يقصروا معك

[ابو حمادة]

هو نفس الموضوع اخي الفاضل ياسر نفس الكود ال حضرتك ساهمت انت والاخ ابو عيد في حله صدقتني مشكله وهي

عندي الشيت به اكثر من صفحه يعني كل 29 صف يوجد بعده 3 صفوف لتوقيع المختصين بهم اسماء المختصين ومكان للتوقيع علي المستند

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

المطلوب تعديل الكود بحيث يتم نسخ الدوال كلها لعدد صفوف ثم ترك 3 صفوف للتوقيع ثم تكملة النسخ في 29 صف ثم ترك 3 صفوف للتوقيع وهكذا

ولكم مني تحياتي

 

[ياسر خليل أبو البراء]

إذاً ارفق ملف معبر عن الملف الأصلي للإطلاع عليه ومحاولة التعديل

وإن كنت أرى أن هذا سيعقد الأمور ..بعض الشيء

ولكن دع إخوانك يحاولوا على ملف مرفق لكي تصل إلى حل دقيق وسريع

[ابو حمادة]

هذا ملف يوضح المطلوب مع الكود

تخفيف حجم الملف4.rar

[أبوعيد]

السلام عليكم

هنا الكود يعطيك 3أسطر فارغة بين البيانات فإذا حبيت أن يكون الأسطر الفارغة هي 4بدلا من 3

فاذهب إلى السطر

Range("A32:G34").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

وغير الرقم 34 إلى 35

تفضل المرفق

تخفيف حجم الملف5.rar

[ابو حمادة]

بجد انا عاجز عن الشكر استاذ ابو عيد

وليا رجاء محتاج شرح للكود من البداية للنهاية لو تكرمت عايز اطبقه علي الشيت الرئيسية واجربه اتمني شرح الكود من البداية ابلي النهايه بحيث افهم واعدل الكود ليناسب الشيت الاساسي

ولك مني الف تحيه

 

[ابو حمادة]

مثال انا عندي شيت اول سطر يوجد به الدوال صف رقم 16

اول عمود العمود  a   الي  BY      

الخليه الموجود بها عدد الاسماء هي       CD5

    عند وضع الكود ظهر اخطاء بالكود

اتمني شرحه الكود بالتفصيل لكي اتمكن من استخدام الكود علي الشيت الرئيسية

ولك مني الف تحيه

[أبوعيد]

التعديلات كما يأتي

Private Sub Worksheet_Activate()
Dim x As Long, t As Integer

Application.ScreenUpdating = False
x = [CD5].Value
If x = 0 Or x = 1 Then GoTo 1
    Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault
    Range("A17:BY" & x + 15) = Range("A17:BY" & x + 15).Value
    Range("A" & x + 16).Resize(70000, 77) = ""
    GoTo 2
1: Range("A" & 17).Resize(70000, 77) = ""
2: For t = 0 To 10
Range("A45:BY47").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
 Application.ScreenUpdating = True

End Sub

انسخ الكود كما هو وجرب النتيجة

تحياتي

تم تعديل ديسمبر 1, 2015 بواسطه أبوعيد

[ابو حمادة]

شكرا ليك استاذ ابو عيد
 لاهتمامك

ولكن اريد شرح للكود لكي اتعلم  من اساتذتي

لانه يوجد صفحات مختلفه عن الاخري من حيث عدد الصفوف وعدد الاعمده وعدد خانات التوقيع وخلافه اتمني الشرح لكي اقدر اطبقه علي جميع الشيتات عندي ولك جزيل الشكر والاحترام

ملحوظة عند نسخ الكود ظهر مشكله في هذا الامر بأن هناك خطأ

Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault

تم تعديل ديسمبر 1, 2015 بواسطه ابو احمد 17475

[ابو حمادة]

استاذ ياسر والاستاذ ابو عيد سبتونى ليه مش عارف احل المشكله في الملف ارجو الاهتمام من فضلكم لو تكرمتم

عند تعديل الكود علي الشيت يظهر خطأ في هذا السطر

 

Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault

[ياسر خليل أبو البراء]

هل ورقة العمل محمية ؟؟؟ وما هو إصدار الأوفيس الذي تعمل عليه؟

يرجى رفع النسخة من الملف التي بها المشكلة

[ابو حمادة]

شكرا اخي الكريم استاذ ياسر

الورقه غير محميه والاوفيس 2007

الملف للاسف حجمه كبير جدا وصعب ارفعه لاني حاولت رفعه لم اتمكن  من رفعه

حيث انه يوجد به بيانات كثيره جدا

والصفحة كالتالي من الصف A1 الي الصف a14 يوجد به عناوين الصفحه وخلافه اما

بداية الصف الموجود به الدوال هو    A15 الي  BY15 والخليه الموجود بها عدد الاسماء هى CD5

والصفحه بها 29 اسم  ثم عدد 2 صف للتوقيع ثم يليها باقي الاسماء وكل 29 اسم يتم ترك عدد 2 صف للتوقيع وهكذا

Private Sub Worksheet_Activate()
Dim x As Long, t As Integer

Application.ScreenUpdating = False
x = [CD5].Value
If x = 0 Or x = 1 Then GoTo 1
    Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault
    Range("A17:BY" & x + 15) = Range("A17:BY" & x + 15).Value
    Range("A" & x + 16).Resize(70000, 77) = ""
    GoTo 2
1: Range("A" & 17).Resize(70000, 77) = ""
2: For t = 0 To 10
Range("A45:BY47").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
 Application.ScreenUpdating = True

End Sub

 

هذا الكود يعمل جيدا ولكنى لا اعلم لماذا عند طبيقه علي الملف يظهر خطأ في هذا السطر

Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault

عند تطبيق الكود هذا السطر يظهر مظلل باللون الاصفر

ارجو شرح الكود بالتفصيل ان امكن من حضرتك  وايضا ما هي التوقعات التي تسبب هذا الخطأ

ملحوظه عند تطبيق هذا الكود علي صفحه فارغه لم يظهر اي خطأ

ولك جزيل الشكر والاحترام

 

 

 

 

 

[ياسر خليل أبو البراء]

يمكنك تخفيف حجم الملف الأصلي من البيانات والاكتفاء بجزء من البيانات لتتضح الصورة إذ أن العمل بهذا الشكل سيكون مضني والاحتمالات لن تتوقف عند حد معين

من المحتمل أن يكون هناك خلايا مدمجة تسبب لك المشاكل مجرد تخمين

[ابو حمادة]

عموما انا احاول بكرا احزف بعض الصفحات من الملف الاصلي لكي اخفف الحجم لكي اتمكن من ارساله ولكن لو ممكن شرح الكود بالتفصيل ربما اقدر اتخطي هذه المشكله اذا فاهمت عمل الكود

ولك مني الف تحيه

[ياسر خليل أبو البراء]

أخي الكريم أبو أحمد

لم تجب على سؤالي ..هل الملف الأصلي ..الورقة التي بها الكود فيها خلايا مدمجة أم لا ..لأن غالباً المشاكل ما تحدث في وجود الخلايا المدمجة

بالنسبة للكود طالما أنه يعمل على ملف إن شاء الله يعمل على ملف آخر إذا كان له نفس المواصفات من حيث ترتيب الصفوف والأعمدة والبيانات

[ابو حمادة]

السلام عليكم استاذ ياسر اسف لعدم الرد امبارح بسبب انقطاع الكهرباء

بالنسبة لسؤال حضرتك عن وجود خلايا مدمجه

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

[ابو حمادة]

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

تحية ليكم جميعا ولاعضاء المنتدي الكرام

انا توصلت لسبب المشكله وهي ان الصفوف التي يوجد بها توقيعات يوجد بها بعض الخلايه المدمجه ولذلك يتم اظهار خطأ عند تطبيق الكود

فهل من الممكن تعديل الكود بحيث يعمل علي ترك الخلايه المدمجة كما هي في الصفوف الموجود بها توقيعات المختصين وايضا نسخ الدوال بدون نسخ التنسيقات  حيث انني عامل تنسيقات لكل صف له لون مختلف

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

 

تم تعديل ديسمبر 3, 2015 بواسطه ابو احمد 17475

[ياسر خليل أبو البراء]

أخي الكريم أبو أحمد

الحمد لله أنك توصلت لسبب المشكلة (بس متنساش إني توقعت وجود خلايا مدمجة من غير ما أشوف الملف )

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

يبقا أول شيء بييجي في دماغك الدمج إنك تدمج الخلايا A1 و B1 و C1 و D1 عشان النص يظهر في الأربعة خلايا من A1:D1

أقولك اوعى تدمج .. وخليك مركز معايا ممكن تعمل ايه

حدد الأربعة خلايا ... كليك يمين على الخلايا المحددة واختر الأمر تنسيق خلايا Format Cells >> ادخل على التبويب المسمى ALignment حلو الكلام ؟؟ قول حلو

في أول قايمة منسدلة في النافذة اختر الأمر Center Across Selection واضغط أوك وبس خلاص ..سيتم المطلوب بدون دمج

 

بالمناسبة يا ريت تغير اللقب اللي كله أرقام للقب الخاص بك بلاش 1427452 بتضايقني شوية

تقبل تحياتي

[ابو حمادة]

شكرا ليك استاذي الفاضل وانا غيرت الاسم كما طلبت مني

وبالفعل كانت المشكله في دمج الخلايا كما قلت انت سابقا ماشاء الله عليك ربنا يزيدك علم

ولكن لي رجاء

بخصوص الكود الذي نتحدث عنه

اريد امران الاول ان يكون نسخ الدوال بدون اي تنسيقات بمعني انا عندي الشيت عامل به تنسيقات مثالث صف رقم 14 مظلل باللون البنفسج

والصف الذي يليه باللون الابيض وهكذا صف مظلل بلون بنفسج والصف التالي بلون ابيض عند استخدام الكود تم تظليل كل الصفوف بنفس لون الصف الاول الذي به الدوال

الامر الثاني لو امكن هل من الممكن جعل التنسيقات بداخل الكود بمعني ان يتم تنسيق الصفوف بنفس الطريقه التي ذكرتها وعند اخر اسم يتم الغاء جميع التنسيقات من باقي الورقه

انا بحاول ابعت ملف بنفس تنسيقات الملف عندي وارفقه باذن الله واتمني لو عندك ما هو افضل من هذا تتفضل بتعديل الملف كما تراه مناسب

 

[ياسر خليل أبو البراء]

أخي الكريم أبو حمادة

بالنسبة لنسخ المعادلة دون التنسيقات استبدال السطر التالي

Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault

بهذا السطر

Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillValues

 

[ابو حمادة]

تسلم استاذ ياسر انا استبدلت الكود بالفعل ونفذ المطلوب ولكن ظهر مشكله اخرى وهي

يوجد دوال لاستدعاء التوقيعات في السطرين المخصصين للتوقيع عند استخدام الكود يتم مسح التوقيعات وترك الصفوف فارغه

انا ارفقت ملف اتمني اكون موضح فيه للتجربه كما موجود في الشيت الاصلي عندي

ولك مني تحياتي انت والاستاذ ابو عيد وكل اعضاء المنتدي

جعله الله في ميزان حسناتكم جميعا

تخفيف حجم الملف4.rar

[ابو حمادة]

مافيش حد رد عليا خالص ليه كدا ياتري مافيش حد قرا كلامي ولا اتخنقتو مني ههههههههههه

[ابو حمادة]

السلام عليكم

هو مافيش حد بيرد عليا ليه ياتري

؟؟؟؟؟؟؟؟؟؟؟