logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
subject icon تمت الإجابة كود لجميع الشيتات
05-11-2020 12:38 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 279
الجنس :
تاريخ الميلاد : 30-10-1982
الدعوات : 1
قوة السمعة : 991
الاعجاب : 14
السلام عليكم ورحمة الله وبركاته
كيفية وضع هذا الكود في حدث الشيت بحيث يعمل على جميع الصفحات بدلاً من الصفحة (Main) فقط بمجرد وضع البيانات بدلاً من وضع زر لها
CODE

Sub tahweel()
Application.ScreenUpdating = False
Dim my_rg
Dim i%
Dim my_st: my_st = Chr(201)
Set my_rg = Sheets("Main").Range(Range("b2"), Range("b2").End(4))
    
 For i = 1 To my_rg.Rows.Count
    With my_rg.Cells(i)
        If .Value = "انثى" Then
           .Offset(, 1).Value = IIf(my_rg.Cells(i).Offset(, 1) = "مسيحى", "مسيحي", my_rg.Cells(i).Offset(, 1)) & my_st
         Else
          .Offset(, 1).Value = IIf(my_rg.Cells(i).Offset(, 1) = "مسيحى", "مسيحي", my_rg.Cells(i).Offset(, 1))
        End If
     End With
 Next
 Application.ScreenUpdating = True
    End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
مسلمة.xlsm
 
 
  مسلمة.xlsm   تحميل xlsm مرات التحميل :(15)
الحجم :(54.554) KB





look/images/icons/i1.gif كود لجميع الشيتات
  07-11-2020 08:49 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
وعليكم السلام ورحمه الله وبركاته
ضع هذا الكود في ThisWorkbook
CODE

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim x As Range
Dim my_st
my_st = Chr(201)

    For Each x In Target
        If x.Column = 2 Then
            If x.Value = "انثى" Then
                x.Offset(0, 1) = IIf(x.Offset(, 1) = "مسيحى", "مسيحي", x.Offset(, 1)) & my_st
            Else
                On Error Resume Next
                x.Offset(0, 1) = ""
                x.Offset(0, 1) = IIf(x.Offset(, 1) = "مسيحى", "مسيحي", x.Offset(, 1))
            End If
        End If
    Next

End Sub

أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby، علي بطيخ سالم،



look/images/icons/i1.gif كود لجميع الشيتات
  08-11-2020 07:02 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
أحسنت أخي العزيز حسونة .. جزاك الله خيراً

أثارت هذه المشاركة إعجاب: hassona229، علي بطيخ سالم،



look/images/icons/i1.gif كود لجميع الشيتات
  08-11-2020 10:33 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
وفيك بارك استاذنا الغالي ابو البراء

أثارت هذه المشاركة إعجاب: YasserKhalil، علي بطيخ سالم،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ممكن تصحيح الكود ayoub2007
1 51 ayoub2007
تحويل معادله لكود gemy2010
2 143 Saleh Ahmed Rabie
تعديل كود اسئلة مادة الرياضيات بطريقة الاتمتة صالح ربيع
3 784 Saleh Ahmed Rabie
اريد كود لطباعه جميع ملفات البى دى اف مره واحده EM_ACC
3 134 Excelawy
ارجو المساعدة فى كود استدعاء من اكثر من شيت ahmed88872
5 29 YasserKhalil

الكلمات الدلالية
لجميع ، الشيتات ،









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

الساعة الآن 07:49 AM