محمود أبوالدهب

؟

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

مساعدة اخرى من اهل الخبره طلب كود لعدم الحفظ على المستند اثناء العمل او عند الاغلاق (بمعنى يتفع البرنامج ينهى عملة وبمجرد الغلق يعود البرنامج كما كان عند الفتح وتعود كل التعديلات التى تمت الى وضعها او الخلايا التى كتب تعود فارغه ولو حاول احد الحفظ تخرج له رسالة بعدم جواز التعديل على ورقة العمل او البرنامج وايضا كيفية حماية ال vba بباص ورد وايضا كيفية تحويل الاكسيل الى exe شكرا لكم هو تلت طلبات في لب واحد معلش فانتم خير عونن لكل محتاج والعلم والمعرفة دائما نكون فيها الى احتياج وشكرا مرة اخرى

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

؟

؟

مشكلة اخرى قابلتنى عند القيام بطباعة اكثر من مكان بشيت (مجموعة خلايا بجدول) واريد ان يقوم بطباعة كل واحده منها بورقة منفصلة قمت بتعديل الكود السابق اعطائه لي لاظهار الاجزاء ولكن بعد هذا التعديل على قدر معرفتى يقوم بعرض الجز الاول واطبع ثم الثانى ثم الثالث ولا يخرج لى الثلاث ورقات مرة واحده لانظر لهم ثم اقوم بطباتهم (بمعنى باليدوى بدون كود اقوم بتحديد الجزء الاول واضعة في PrintArea ثم الثانى واضعة في add to PrintArea ثم الثالث في add to PrintArea وعند الضغط على PrintPreview يخرج لي الثلاث اجزاء مرة واحده بثلاث صفحات واعدل اعدادات الطباعة كما اريد وبعدها اطبعهم فهل من كود يختصر كل هذا ) ومرفق الكود الذى وضعته وادى الغرض ولكن يطبع ورقه ورقة ويعرض لى ورقة ورق Sub print_somwafaa() On Error Resume Next 'Application.ScreenUpdating = False mahmoud_hide3 Sheets("som wafaa").PageSetup.PrintArea = "b3:h24" Sheets("som wafaa").PrintPreview Sheets("som wafaa").PageSetup.PrintArea = "b26:h84" Sheets("som wafaa").PrintPreview Sheets("som wafaa").PageSetup.PrintArea = "b86:g110" Sheets("som wafaa").PrintPreview ' Out copies:=1 'Application.ScreenUpdating = True mahmoud_Unhide3 Sheets("som wafaa").Select End Sub وشكرا على سعت الصدر وقد قمت ببعض التعديلات الاخرى ولكن لا نتيجه هذا ما فلح معي ولكن لم يختصر الوقت كما اريد او يريد المستخدم كمان سؤال عند فتح البرنامج تظهر لى رسالة ان هناك ارتباط خارجى بالملف وهل تريد حديث البيانات من عدمه وعند البحث بالشيت ورقة ورقة لم اجد انهى خليه مرتبطه بمصدر خارجي فكيف اعرف هذا الامر وشكرا كمان سؤال عند فتح البرنامج تظهر لى رسالة ان هناك ارتباط خارجى بالملف وهل تريد حديث البيانات من عدمه وعند البحث بالشيت ورقة ورقة لم اجد انهى خليه مرتبطه بمصدر خارجي فكيف اعرف هذا الامر وشكرا كمان سؤال مهم عند فتح البرنامج تظهر لى رسالة ان هناك ارتباط خارجى بالملف وهل تريد حديث البيانات من عدمه وعند البحث بالشيت ورقة ورقة لم اجد انهى خليه مرتبطه بمصدر خارجي فكيف اعرف هذا الامر وشكرا

شكرا لك اخ حمادة وبجد استفد منك وتلك طريقة احببتها عما كنت اقوم به سابا وهو كالتالى Sub mahmoud_hide2() Sheets("5").Select Dim LR As Long LR = Range("c" & Rows.Count).End(xlUp).Row For i = 40 To 50 With Range("c" & i) If .Value = 0 Then .EntireRow.Hidden = True End If End With Next i Set rng = Range("r18:y18") For Each cl In rng If cl.Value = 0 Then cl.EntireColumn.Hidden = True End If Next End Sub Sub mahmoud_Unhide2() Dim c As Range LR = Range("c" & Rows.Count).End(xlUp).Row Range("a40:a" & LR).EntireRow.Hidden = False Dim z As Range LR = Range("c" & Rows.Count).End(xlUp).Row Range("r18:z18" & LR).EntireColumn.Hidden = False End Sub وطبعا على ما قمت بالرد عليا اخ حماده كنت احاول الوصول لحل ومنت قد قمت بادماج الكود السابق مع هذا الكود ولكن بالنهاية احببت الكود الخاص بك ولك جزيل الشكر :)

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

جزاك الله عنى وعنا كل خير وشكرا جزيلا للافادة والرد

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

المطلوب عند الضغط على زر طباعه منحة واحد ان يقوم بطباعة النموذج بورقة 6 عن طرريق اضافة رقم 1 بخليه q1 ثم يقوم بتحديد الجزء المراد طباعتة من b1:o89 ثم يقوم باخفاء الاجزاء الفارغه من d17:d29 _______________________ونفس الامر مع الضغط على طباعة منحة يضع بخلية q1 من ورقة 6 رقم 2 ثم يقوم بتحديد الجزء المراد طباعتة من b1:o89 ثم يقوم باخفاء الاجزاء الفارغه من d17:d29 _______________________ونفس الامر مع طباعة مديونية وطباعة -------------------وارجوا في النهاية ان يتم شرح كيفية فعل ذالك وما هذا الا نموذج للتعلم ارجوا منكم مساعدتى بالامر وشكرا لكم جميعا ملحوظه عند الضغط على طباعة تخرج الطباعة بصفحة واحده ويكون نموذج عرض قبل الطباعة وليس الطباعة مباشرتا كما ارجوا منكم طريقة نقل المعادلات بجدول بالصفوف الى جدول اعمدة مع العلم ان ما بالجدول الذى بالصفوف هو جدول به نتائج معادلات وليسة ارقام ثابته نموذج للشرح.rar