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

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

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

نموذج للشرح.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / elskary

بارك الله فيك

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

وان شاء الله ستسعد بالانضمام الي هذه الاسرة

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

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

 

تقبل خالص تحياتي

جزاك الله خيرا

 

طباعة.rar

 

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

في ٩‏/٤‏/٢٠١٧ at 10:22, حمادة عمر said:

السلام عليكم

الاخ الكريم / elskary

بارك الله فيك

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

وان شاء الله ستسعد بالانضمام الي هذه الاسرة

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

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

 

تقبل خالص تحياتي

جزاك الله خيرا

 

طباعة.rar

 

اولا شكرا جزيلا لك اخ حمادة عمر على الاهتام والرد

ثانيا حاضر ساقوم حاليا بتغير الاسم الخاص بي

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

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

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

وشكرا جزيلا جزيلا جزيلا على المساعدة

 

تم تعديل أبريل 9, 2017 بواسطه حمادة عمر
خطأ املائي

[حمادة عمر]

السلام عليكم

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

جزاك الله خيرا

اولا : شكرا لك انت علي الاستجابة للدعوة .. ايوه كده يا عم .. النبي عربي

ثانيا : جميعنا بدأ هنا في هذا المنتدي وان شاء الله تصبح احد خبراؤه .. والكل هنا اسرة واحدة متحابه في الله

ثالثا : اليك شرح الاكواد المرفقة لكفي الملف السابق سطر سطر بالصور وملف اكسيل مرفق في المرفقات

 

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

 

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

تقبل خالص تحياتي

 

شرح الكود سطر سطر .rar

 

 

 

تم تعديل أبريل 9, 2017 بواسطه حمادة عمر

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

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

[حمادة عمر]

جزاك الله خيرا اخي الكريم

 

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

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

اولا لا يوجد داعي لاي اسف فكلنا هنا اخوة الكل يشارك لافادة بعضنا البعض

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

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

Sub hide_Column()
'hide_Column طبعا السطر السابق كما اتفقنا هو بداية الكود ثم تسميته واسمه هنا 
Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True 
'Sheet1السطر السابق نحدد فيع اولا الشيت المراد تنفيذ امر الاخفاء عليه وهو هنا في الكود 
'F,I,K,Oثم نقوم بتحديد نطاق الاعمدة المراد اخفاؤها كما نريد وهو هنا الاعمدة
' F ويجب عند تحديد النطاق للعمود الواحد ان يكتب بالشكل الموجود في الكود فمثلا للعمود
'F:F يكون النطاق بهذا الشكل اي العمود من بابه .. يعني 
End Sub
'السطر السابق هو نهاية الكود كما اتفقنا سابقا ولا نسيت 

فيمكنك اخي الكريم استخدام هذا السطر  للاخفاء :

Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True 

ثم قم باستخدام نفس السطر للاظهار ولكن بتغيير بسيط وضع FALSE مكان TRUE كالتالي :

Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = False 

ارجو ان اكون قد وفقت في شرح المطلوب

واس استفسار معك دائما باذن الله

تقبل خالص تحياتي

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

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

 

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

 

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

ولكن بالنهاية احببت الكود الخاص بك ولك جزيل الشكر

:) 

[حمادة عمر]

وفقك الله .. انت في الطريق الصحيح باذن الله

تقبل خالص تحياتي

 

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

مشكلة اخرى قابلتنى عند القيام بطباعة اكثر من مكان بشيت (مجموعة خلايا بجدول) واريد ان يقوم بطباعة كل واحده منها بورقة منفصلة قمت بتعديل الكود السابق اعطائه لي لاظهار الاجزاء ولكن بعد هذا التعديل على قدر معرفتى يقوم بعرض الجز الاول واطبع ثم الثانى ثم الثالث ولا يخرج لى الثلاث ورقات مرة واحده لانظر لهم ثم اقوم بطباتهم (بمعنى باليدوى بدون كود اقوم بتحديد الجزء الاول واضعة في 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

 

وشكرا على سعت الصدر 

 

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

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

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

 

 

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

تم تعديل أبريل 11, 2017 بواسطه محمود أبوالدهب

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

؟

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

؟

 

[حمادة عمر]

بالنسبة لموضوع الارتباط ده اولا

قم اخي بالدخول علي قائمة Edite ثم اختار الاختيار Links وستظهر لك شاشة الارتباطات

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

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

انا بكتب دلوقتي من علي الموبايل

تقبل خالص تحياتي

 

 

تم تعديل أبريل 11, 2017 بواسطه حمادة عمر

[جلال الجمال_ابو أدهم]

حمادة عمر
اخى الفاضل جزاك الله خيرا
تحياتى

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

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

 

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

بالنسبة لطلبك الآخر الخاص بـ PrintArea  .. وعذرا علي التأخير ولكن اعتقدت انك وصلت لما تريد وبعض مشغوليات الحياه فقط

عموما سيكون الكود الخاص بك الذي تسخدمه في معاينه الطباعة مختلف بعض الشئ ( بتعديلات بسيطة ) عن الذي قمت بوضعه في مشاركتك

حيث ستقوم بتحديد النطاق الذي تريده مرة واحد مع بعضه ثم اضافته لـ PrintArea  ليمكنك المعاينة للثلاث نطاقات مع بعض تنفيذ ما تريد

قمت بتطبيقه علي الملف الذي ارسلته لك في المشاركات السابقة .. قم بتجربته علي ملفك واخبرني بالنتيجة .. ان شاء الله يفي بطلبك

Sub print_somwafaa()
On Error Resume Next
 
mahmoud_hide3
       Sheets("som wafaa").Range("B3:h24,b26:h84,b86:g110").Select
    Sheets("som wafaa").PageSetup.PrintArea = "$b$3:$h$24,$b$26:$h$84,$b$86:$g$110"
    ActiveWindow.SelectedSheets.PrintPreview
mahmoud_Unhide3
Sheets("som wafaa").Select

End Sub

تقبل خالص تحياتي

 

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

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

[حمادة عمر]

جزاك الله خيرا اخي الكريم