اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

بارك الله فيك

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

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

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

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

 

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

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

 

طباعة.rar

 

  • Like 6
رابط هذا التعليق
شارك

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

السلام عليكم

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

بارك الله فيك

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

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

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

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

 

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

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

 

طباعة.rar

 

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

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

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

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

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

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

 

تم تعديل بواسطه حمادة عمر
خطأ املائي
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

1.jpg.fcb07dfd49507643cf2eb05b2c85ec36.jpg

2.jpg.dc1675a47bba1957ffd5444c181f8f01.jpg

 

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

 

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

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

 

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

 

 

 

تم تعديل بواسطه حمادة عمر
  • Like 7
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

السلام عليكم

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

بارك الله فيك

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

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

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

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 

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

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

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

  • Like 6
رابط هذا التعليق
شارك

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

 

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

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

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

 

  • Like 3
رابط هذا التعليق
شارك

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

 

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

 

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

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

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

 

 

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

تم تعديل بواسطه محمود أبوالدهب
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

 

تم تعديل بواسطه حمادة عمر
  • Like 7
رابط هذا التعليق
شارك

السلام عليكم

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

بارك الله فيك

بالنسبة لطلبك الآخر الخاص بـ 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

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

 

  • Like 7
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information