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



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







  • غير مجابة
25-08-2021 11:38 صباحاً
إضافة للكود حد الصفحة للاستاذ ياسر المحترم في حال احتواء الخلية E13 او E14على كلمة Positive فان خلية C13 تساوي Titer250 مع امكانية اختيارها من القائمة المنسدلة يدويا عند الحاجة ( أي في حال عدم احتواء الخلية E13 او E14على كلمة Positive )
كما في المرفق مع جزيل الشكر
CODE
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim C As Range, b As Boolean
    For Each C In Range("E9:E16")
        If InStr(C.Value, "+") Or InStr(C.Value, "yes") Then
            Range("C10").Value = "Positive": b = True: Exit For
        End If
    Next
    If b Then Exit Sub Else Range("C10").Value = "Negative"
    End Sub
    

 
 
  File.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(51.239) KB





look/images/icons/i1.gif إضافة للكود حد الصفحة للاستاذ ياسر المحترم في حال احتواء الخلية  E13 او  E14على كلمة Positive
  27-08-2021 07:45 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 232
الجنس :
قوة السمعة : 290
الاعجاب : 0
الحمد لله تم المطلوب على خير من قبل الاستاذ محمد مشكوره جهوده من خلال هذا الكود
CODE

<pre class="ipsCode prettyprint lang-html prettyprinted" style="box-sizing: border-box; font-family: monospace, monospace; font-size: 13px; overflow: auto; white-space: pre-wrap; word-break: break-word; background-image: ; background-position-x: ; background-position-y: ; background-size: ; background-repeat-x: ; background-repeat-y: ; background-attachment: ; background-origin: ; background-clip: ; clear: both; direction: ltr; overflow-wrap: normal; margin-top: 0px; margin-bottom: 0px; border-radius: var(--radius-1); padding: 2px; border-color: rgb(136, 136, 136); border-style: solid; border-top-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-image: initial; color: rgb(53, 60, 65); border-right-width: 4px !important;">
<span class="pln" style="box-sizing: border-box; color: rgb(0, 0, 0);">Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row &gt; 8 And Target.Row &lt; 17 And Target.Column = 5 Then
Dim C As Range, a As Boolean, b As Boolean
For Each C In Range(&quot;E9:E16&quot;)
If InStr(C.Value, &quot;Positive&quot;) And (C.Row = 13 Or C.Row = 14) Then
    If Not a Then Range(&quot;C13&quot;).Value = &quot;Titer250&quot;: a = True
End If
If InStr(C.Value, &quot;+&quot;) Or InStr(C.Value, &quot;yes&quot;) Then
    If Not b Then Range(&quot;C10&quot;).Value = &quot;Positive&quot;: b = True
End If
Next C
If Not a Then Range(&quot;C13&quot;).Value = &quot;Nil&quot;
If Not b Then Range(&quot;C10&quot;).Value = &quot;Negative&quot;
End If
End Sub</span></pre>




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طريقة حساب سن التقاعد (المعاش) بالمعادلات الرجاء التحويل للكود خالد عيسى
7 4780 مالك ماريه
اضافة الارتباط التشعبي للكود بعد جلب البيانات للعودة للورقة الخاصه به بسهوله ابوعلي الحبيب
12 2490 ابوعلي الحبيب
الحلقة الثانية الهيكلة العامة للكود Eslam Abdullah
4 2119 fady_dd

الكلمات الدلالية
إضافة ، للكود ، الصفحة ، للاستاذ ، ياسر ، المحترم ، احتواء ، الخلية  ، E14على ، كلمة ، Positive ،








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

الساعة الآن 03:47 PM.