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

عربي مسلم

عضو جديد 01
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    26

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

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

    مشكلة إكمال بيانات ناقصة من ورقة لأخرى

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم ورحمة الله وبركاته 
    من فضلكم عندي ملف إكسل فيه داتا 1 و داتا 2. الداتا الأولى تمثل ما سيتم فوترته خلال العام بالتقريب، أما الداتا الثانية ففيها ما تم إنجازه كليا أو جزئيا، و أنا حاولت أن أكمل بواسطة معادلة البحث العمودي لإكمال و ملأ الداتا الثانية بدلالة التطابق بينها و الأولى، لكن لم تتم، لذلك أطلب مساعدة أعضاء هذا الفريق، مع الشكر و التقدير

    Suivi Attachemets et Factures Gardiennage 2022.ERP.xlsb

    الطباعة من الزر فقط، أي حصر الطباعة على البوتون و منعها بدونه

    في منتدى الاكسيل Excel

    قام بنشر

     

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

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

    يوضع هذا الكود في thisworkbook 

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("B200").Value = "" Then
MsgBox "Rappel... Passez par un bouton Imprission"
Cancel = True
Else
Cancel = False
End If
End Sub
    يوضع هذا الكود في module
Sub Imprission()
Dim r As Range
Set r = ActiveSheet.UsedRange
ActiveSheet.Range("B200").Value = "1"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TEST, openafterpublish:=True
ActiveSheet.Range("af5").Value = ""
With ActiveSheet.PageSetup
If r.Width > 595.3 Then
.Orientation = xlPortrait
Else
.Orientation = xlPortrait
End If
End With
ActiveSheet.PrintOut Copies:=1
ActiveSheet.Range("B200").Value = ""
End Sub

     

    • Like 1

    الطباعة من الزر فقط، أي حصر الطباعة على البوتون و منعها بدونه

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم إخواني الكرام

    عندي كود طباعة شغال 10/10 بواسطة زر أي بوتون

    هذا هو الكود, في الشيت رقم 3 sheet 

    Sub Imprission()
Dim r As Range
Set r = ActiveSheet.UsedRange
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TEST, openafterpublish:=True
With ActiveSheet.PageSetup
If r.Width > 595.3 Then
.Orientation = xlPortrait
Else
.Orientation = xlPortrait
End If
End With
ActiveSheet.PrintOut Copies:=1
End Sub
حاولت أن أجعل هذا الكود هو مفتاح الطباعة الوحيد فبحثت عن كود لألغي به الطباعة من دونه، فوجدت كود، لكنه للأسف يمنع الطباعة بشكل كلي، هذا الكود جعلته في الووركبوك thisworkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "Rappel... Passez par un bouton IMPRIMER"
Cancel = True
End Sub

    و بارك الله في الجميع

    مشكلة عدم ظهور الصور بواسطة القائمة المنسدلة

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم 
    عندي قائمة منسدلة لأربعة عملاء لكل منهم لوقوlogo خاص به استعملت طريقتين لإظهار صورة اللوقو بإسم العميل في القائمة المنسدلة في نفس الورقة، شيت 3,أيضا نقلت الصور لورقة أخرى و جربت مع المعادلة آندراكت، رغم هذا لم تنجح معي، فهل فيه حل بارك الله فيكم

    Doc1EXPLICQ.docx

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه عربي مسلم

    أخي حسونة حسين أبو عائشة رقية و محمد hassona229

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

    أعتذر على كثرة الرسائل و الإستشكالات , للأسف لو كان التواصل على الزوم أو غيره لما أكثرت عليك لهذه الدرجة, و كان المطلوب واضح  و أسهل لك, آسف و أعتذر مرة أخرى.

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم أخي المبارك الفاضل الغالي على جهدك الذي يذكر فيشكر, عمل رائع بأتم معنى الكلمة, فالملف أصبح يسير و يعمل 10/10, و هذا كله بفضل معونتك و مساعدتك أخي حسونة حسين أبو عائشة رقية و محمد hassona229

    فقط كود الطباعة لم أفهمه فماذا يعني , وفقك ربي لما يحب و يرضى

    QR YACINE.jpg

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر

    hassona229

     

    بارك الله فيك، هل رأيت الصور التي أرسلتها أخي الغالي و الملاحظات الأخرى. 

    الملف لما يكون محمي لا يمكن إضافة أي سطر جديد، فكيف أضيف أسطر من 161 إلى 164 هل فيه طريقة أخرى، لم أعرف و لم تنجح معي حتى مع إزالة الحماية للتجربة.

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

    بارك الله فيك اخي العزيز و جزاك الله خيراً. 🖊🌹💐

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر

    hassona229

     

    بارك الله فيك، هل رأيت الصور التي أرسلتها أخي الغالي و الملاحظات الأخرى. 

    الملف لما يكون محمي لا يمكن إضافة أي سطر جديد، فكيف أضيف أسطر من 161 إلى 164 هل فيه طريقة أخرى، لم أعرف و لم تنجح معي حتى مع إزالة الحماية للتجربة.

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

    بارك الله فيك اخي العزيز و جزاك الله خيراً. 🖊🌹💐

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر

     أخي الغالي hassona229

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

    لم أستطع إرسال الملف و نزعت بعض الصور في أعلى الملف تبين الفرق بين الشيتين لمشكلة أن الموقع محدد حجم الملف.

    شكرا جزيلا

    OFFICENA1.png

    OFFICENA2.png

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر

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

    و الحقيقة الكود رائع.

    و الفضل لك أخي الغالي hassona229

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

    شكرا شكرا ثم شكرا

     

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر

    الرجاء ممن لديه خبرة في الأكواد التعديل على الكود ليصبح سريع 

     Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ws As Worksheet
تحديث كود النسخ  Call Copie_sh
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
كود إظهار و إخفاء الصفوف 
 Set ws = sheets("ENTP-SH")
     If Target.Address = Range("B161").Address Then
                 If Target.Value = "" Then
        ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(161).EntireRow.Hidden = True
                     Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("161").EntireRow.Hidden = False
              ws.Protect Password:="1 1"
        End If
         ws.Protect Password:="1 1"
      End If
           If Target.Address = Range("B162").Address Then
        If Target.Value = "" Then
        ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(162).EntireRow.Hidden = True
           Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("162").EntireRow.Hidden = False
               ws.Protect Password:="1 1"
        End If
        ws.Protect Password:="1 1"
      End If
           If Target.Address = Range("B163").Address Then
        If Target.Value = "" Then
         ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(163).EntireRow.Hidden = True
           Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("163").EntireRow.Hidden = False
             ws.Protect Password:="1 1"
        End If
           ws.Protect Password:="1 1"
      End If
     If Target.Address = Range("B164").Address Then
        If Target.Value = "" Then
           ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(164).EntireRow.Hidden = True
           Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("164").EntireRow.Hidden = False
              ws.Protect Password:="1 1"
        End If
           ws.Protect Password:="1 1"
    End If
كود حساب "P"
    If Not Intersect(Target, Range("E13:ai72:E101:AI164")) Is Nothing Then
       Range("E165:AI165").Formula = "=IF(COUNTIF(E$13:E$72:E$101:E$164,""P"")=0,"" "",COUNTIF(E$13:E$72:E$101:E$164,""P""))"
       Range("E165:AI165").Value = Range("E165:AI165").Value
       Range("E167:N167").Formula = "=IF(COUNTIF($E$165:$AH$165,E166)=0,"""",COUNTIF($E$165:$AH$165,E166))"
       Range("E166").Formula = "=IFERROR(LARGE($E$165:$AI$165,1),"""")"
       Range("F166:N166").Formula = "=IFERROR(LARGE($E$165:$AH$165,SUM($E$167:E167,1)),"""")"
       Range("E167:N167").Value = Range("E167:N167").Value
       Range("E166:N166").Value = Range("E166:N166").Value
    End If
      Application.DisplayAlerts = True
      Application.ScreenUpdating = True
      Application.Calculation = xlCalculationAutomatic
End Sub

     

     

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر

    الكود الذي هو سيي البطىء أظنه هذا , فالرجاء ممن لديه حبرة في الأكواد التعديل عليه 

    Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ws As Worksheet
تحديث كود النسخ  Call Copie_sh
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
كود إظهار و إخفاء الصفوف 
 Set ws = Sheets("ENTP-SH")
     If Target.Address = Range("B161").Address Then
                 If Target.Value = "" Then
        ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(161).EntireRow.Hidden = True
                     Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("161").EntireRow.Hidden = False
              ws.Protect Password:="1 1"
        End If
         ws.Protect Password:="1 1"
      End If
           If Target.Address = Range("B162").Address Then
        If Target.Value = "" Then
        ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(162).EntireRow.Hidden = True
           Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("162").EntireRow.Hidden = False
               ws.Protect Password:="1 1"
        End If
        ws.Protect Password:="1 1"
      End If
           If Target.Address = Range("B163").Address Then
        If Target.Value = "" Then
         ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(163).EntireRow.Hidden = True
           Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("163").EntireRow.Hidden = False
             ws.Protect Password:="1 1"
        End If
           ws.Protect Password:="1 1"
      End If
     If Target.Address = Range("B164").Address Then
        If Target.Value = "" Then
           ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows(164).EntireRow.Hidden = True
           Else
              ws.Unprotect Password:="1 1"
           Sheets("ENTP-SH").Rows("164").EntireRow.Hidden = False
              ws.Protect Password:="1 1"
        End If
           ws.Protect Password:="1 1"
    End If

كود حساب "P"
    If Not Intersect(Target, Range("E13:ai72:E101:AI164")) Is Nothing Then
       Range("E165:AI165").Formula = "=IF(COUNTIF(E$13:E$72:E$101:E$164,""P"")=0,"" "",COUNTIF(E$13:E$72:E$101:E$164,""P""))"
       Range("E165:AI165").Value = Range("E165:AI165").Value
       Range("E167:N167").Formula = "=IF(COUNTIF($E$165:$AH$165,E166)=0,"""",COUNTIF($E$165:$AH$165,E166))"
       Range("E166").Formula = "=IFERROR(LARGE($E$165:$AI$165,1),"""")"
       Range("F166:N166").Formula = "=IFERROR(LARGE($E$165:$AH$165,SUM($E$167:E167,1)),"""")"
       Range("E167:N167").Value = Range("E167:N167").Value
       Range("E166:N166").Value = Range("E166:N166").Value
    End If
      Application.DisplayAlerts = True
      Application.ScreenUpdating = TrueEnd
      Application.Calculation = xlCalculationAutomatic
End Sub

     

    كود الملف ثقيل

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه عربي مسلم

    السلام عليكم 
    من فضلكم عندي شيت 1 و 2 وضعت كود لنسخ محتوى محدد (E13:AI72,E101:AI176) من شيت إسمه 
    ENTP. El  AMINE G
     إلى الثاني إسمه ENTP-SH
     بواسطة كود vba,  لكن الود ثقيل جدا , فهل فيه إمكانية أن الكود يكون أسرع أو يعمل عند النقر على الشيت الثاني
    Si select ENTP-SH

     الكود الذي في الشيت الأول أظن أنه طويل جدا فلربما يكون هو سبب بطىء الكود

     

    ملف جديد.xlsm

    • Like 1
×
×
  • اضف...

Important Information

  I accept