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

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


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





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

السلام عليكم اولا لدي مشكلة دائما ما اواجهها وهي عندما اقوم بتصميم كود او احصل على كود من الانترنت لا ي ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


14-05-2020 11:42 صباحا
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام  عليكم  
اولا  لدي  مشكلة  دائما  ما  اواجهها  وهي  عندما  اقوم بتصميم كود او  احصل  على  كود  من  الانترنت لا  يعمل  الكود  ولا يعطي  اي  خطا   اتمنى  توضيح  اين  الخطا الذي  يسبب لي مشكلة  في  عدم  عمل الكود  اطلاقا 
ثانيا  لدي  اثنان ماكرو  واحد  قمت  بتصميمه  والاخر  حصلت   عليه  من  الانترنت  قمت  بتعديل  عليه  بما  يتناسب  مع احتياجاتي  ومع  هذا  لا يعملان  ولا يعطيان اي  خطا  
وهو  يتم  مسح اي  بيانات  في  العمود   a   بناء  على  كلمة dictor  في  العمود  b  
الماكرو الاول 
Sub nn()
Dim s As Integer

s = Range("b" & Rows.Count).End(xlUp).Row
If Cells(s, 2) = "dictor" Then
Cells.Range("a:a").ClearContents
End If
End Sub



الماكرو  الثاني 
Sub Test()

    Dim Status As Worksheet
    Set Status = Worksheets("Sheet1")

    With Status

        Dim LR1 As Long
        LR1 = .Range("B" & .Rows.Count).End(xlUp).Row

        If .Range("b2:b" & LR1).Find("dictor", lookat:=xlWhole) Is Nothing Then
            .Range("a2:a" & LR1).ClearContents
        End If

    End With

End Sub
 
 
  clear‬.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(15.597) KB



أفضل إجابة مقدمة من سعد عابد وهي:
اخى المبتدا
السلام عليكم
الكود المفروض لا يعمل
فانت على ما اعتقد تريد مسح اى صف مكتوب به كلمه  dictor
===============
لكنك حدد ت للشرط اخر صف فقط


Sub nn()
Dim s As Integer
FOR S=2 TO 15
If Cells(s, 2) = "dictor" Then
Cells.(S,1).ClearContents
End If
NEXT
End Sub

 
عرض الإجابة




14-05-2020 12:39 مساء
مشاهدة مشاركة منفردة [1]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مشكلة كود مسح بيانات عمود بناء على قيمة في عمود آخر
اخى المبتدا
السلام عليكم
الكود المفروض لا يعمل
فانت على ما اعتقد تريد مسح اى صف مكتوب به كلمه  dictor
===============
لكنك حدد ت للشرط اخر صف فقط


Sub nn()
Dim s As Integer
FOR S=2 TO 15
If Cells(s, 2) = "dictor" Then
Cells.(S,1).ClearContents
End If
NEXT
End Sub

 

14-05-2020 02:11 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مشكلة كود مسح بيانات عمود بناء على قيمة في عمود آخر
 شكرا  اخي  سعد  على مرورك  ولكن انا  حددت  اخر  صف  به  بيانات   فبالتالي  سيبدا  من  اخر  الورقة  الى اخر  صف  به  بيانات  ومن  ثم  يبحث  بناء  على  الشرط  ويقوم  بتنفيده 

14-05-2020 02:48 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif مشكلة كود مسح بيانات عمود بناء على قيمة في عمود آخر
فهمت المطلوبمثل ما فهمه أخي الكريم سعد ولو قدمت حل سيكون مشابه تماماً لما قدمه
ما الذي تريده بالضبط ؟؟ الأفضل وضع بعض النتائج المتوقعة ..
هل تريد أن يتم فحص كل خلية في العمود B وإذا تطابق الشرط يقوم بمسح محتويات الخلية المقابلة لها في العمود A ..؟ أم تريد المسح لكافة البيانات في العمود الأول إذا وجد النص المطلوب في أي خلية في العمود الثاني ..؟ أم أن ما تريده مختلف عن ذاك وذاك ..؟

14-05-2020 04:59 مساء
مشاهدة مشاركة منفردة [4]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مشكلة كود مسح بيانات عمود بناء على قيمة في عمود آخر
المطلوب  اخي  ياسر  لو وجدت  كلمة dictor في  العمود  b  يتم  مسح  البيانات التي  تقابلها في  خلية  في  العمود a

14-05-2020 09:50 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif مشكلة كود مسح بيانات عمود بناء على قيمة في عمود آخر
إذاً الحل بسيط في عمل حلقة تكرارية على كل صف واختبار الشرط .. الكود المرفق من قبل أخونا سعد قريب جداً من المطلوب ، حاول التعديل عليه

14-05-2020 10:04 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مشكلة كود مسح بيانات عمود بناء على قيمة في عمود آخر
 اخي  ياسر شكرا  لك   حقيقة  لم  انتبه  جيدا  لكود  الاخ سعد  هذا  هو  المطلوب   يوجد  خطا  بسيط  فيه  وهو وجود نقطة  قبل كلمة cell   اتمنى ان يعدلها  حتى من يطلع  على  الموضوع لا يواجه  مشكلة  في  التطبيق   وكان  رد  الاخ  سعد  في  محله بخصوص  الصف  الاخير  نتيجة لجهلي  في البرمجة  حدث  معي  هذا  الخطا   ولاستفادة  الاعضاء  ارفق  لكم   
كود  قمت  بتعديله  يقوم  بحدف  بيانات  العمود بالكامل  بناء  على كلمة  في عمود آخر  ليصبح 
Sub Test()

    Dim Status As Worksheet
    Set Status = Worksheets("Sheet1")

    With Status

        If .Range("b:b").Find("director", lookat:=xlWhole) Is Nothing Then
            .Range("a:a").ClearContents
        End If

    End With

End Su



اما  هذا  الكود  والذي  ابحث  عنه  لقد  حصلت  عليه  من  الانترنت   يقوم بحدف البيانات  المقابلة لكلمة معينة 

 Sub mm()
Dim rCl As Range
For Each rCl In ActiveSheet.UsedRange.Columns(2).Cells
If rCl.Value = "Director" Then rCl.Offset(, -1).ClearContents
Next rCl
End Sub

 


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
بيانات ، مشكلة ، عمود ، بناء ، قيمة ، عمود ،


 










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

الساعة الآن 11:29 صباحا