أكاديمية الصقر للتدريب

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


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





كود لجميع الشيتات

السلام عليكم ورحمة الله وبركاته كيفية وضع هذا الكود في حدث الشيت بحيث يعمل على جميع الصفحات بدلاً من الصفحة (Main) فقط ب ..


موضوع مغلق


subject icon تمت الإجابة كود لجميع الشيتات
05-11-2020 12:38 صباحا
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

السلام عليكم ورحمة الله وبركاته
كيفية وضع هذا الكود في حدث الشيت بحيث يعمل على جميع الصفحات بدلاً من الصفحة (Main) فقط بمجرد وضع البيانات بدلاً من وضع زر لها

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 مرات التحميل :(15)
الحجم :(54.554) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمه الله وبركاته
ضع هذا الكود في ThisWorkbook

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
عرض الإجابة




07-11-2020 08:49 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif كود لجميع الشيتات
وعليكم السلام ورحمه الله وبركاته
ضع هذا الكود في ThisWorkbook

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

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

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



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


 










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

الساعة الآن 07:20 صباحا