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

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




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

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :salim
عدد النتائج (775) نتيجة
17-07-2018 07:45 مساء
icon كود استدعاء البيانات حسب مامطلوب في ترحيل الناجحون او الراسبون او المكملون وحسب الصف | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 سيدي الكريم
لعمل الكود 
1- قم بتغيير اسم الصفحة  "Transfer" الى "salim"
2- قم بادراج صفحة جديدة تحت اسم "Sapace"  يمكن اخفائها 
لعمل الكود 
1-  يجب تغيير اسم الصفحة  "Transfer" الى "salim"
2-  ادراج صفحة جديدة تحت اسم "Sapace"  يمكن اخفائها   أو وضعها "Verryhidden "  كما فعلت انا بالرد في نفس المنتدى
 
17-07-2018 07:21 مساء
icon كود استدعاء البيانات حسب مامطلوب في ترحيل الناجحون او الراسبون او المكملون وحسب الصف | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 اخي ياسر اعتقد
ان حقوق النشر محفوظة
لذا ارجوالايعاز الى  صاحب المشاركة  ادراج اسم واضع الكود على هذا العنوان
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
17-07-2018 07:16 مساء
icon استخراج القيم الفريدة في عمودين وجمع الإجمالي باستخدام كائن القاموس | الكاتب :salim |المنتدى: موضوعات ياسر خليل أبو البراء
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil
أخي الحبيب سليم
إنت نجم ساطع بدون أي نجوم أخرى .. وأنت شرف كبير وإضافة كبيرة للمنتدى 142
 

ايه الكرم ده كلّو "نجمة "وحدة وخلاص
على كل حال القناعة من الإيمان (مش بس النظافة)
17-07-2018 05:46 صباحا
icon جملة التكرار Do While Loop | الكاتب :salim |المنتدى: موضوعات ياسر خليل أبو البراء
 احد الحلول الاخرى
   عندي سؤالين ارجو الاجابة:
1- ما هي هذه الاشارة <> التي تظهر في الزاوية  العليا اليسرى من نافذة الكود بعد ارساله
2- هل يمكن جعل نافذة الكود مطاطة بحيث يستطيع الانسان قراءة اكثر من 6 او 7 اسطر من الكود
     لأنك عتدما تقرأ فقط قسم من الكود الطويل لا تتذكر ما ورد في البداية و لا يمكن تخمين النهاية
           (حتى و لو استعملت مقبض الانزلاق)

Sub M_Salim()
Dim i%: i = 2
Do Until Range("a" & i) = vbNullString
Debug.Print Range("a" & i)
i = i + 1
Loop
End Sub
'==========================
Sub M_Salim1()
Dim i%: i = 2
Do
Debug.Print Range("a" & i)
i = i + 1
Loop Until Range("a" & i) = vbNullString
End Sub


 
16-07-2018 09:15 مساء
icon استخراج القيم الفريدة في عمودين وجمع الإجمالي باستخدام كائن القاموس | الكاتب :salim |المنتدى: موضوعات ياسر خليل أبو البراء
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي الحبيب سليم ..
كود رائع وممتاز .. وطريقتك مميزة وسهل فهمها

الفكرة في الموضوع هو تعلم طرق جديدة باستخدام كائن القاموس والتعرف على كيفية الاستفادة منه
 

الى اي متى سوف أبقى عضو بـــ"نجمة واحدة" no_1   laugh  
16-07-2018 07:23 مساء
icon استخراج القيم الفريدة في عمودين وجمع الإجمالي باستخدام كائن القاموس | الكاتب :salim |المنتدى: موضوعات ياسر خليل أبو البراء
 اخي الحبيب ياسر
اعذرني
لا استطيع الا ان ارد بكود مماثل يؤدي نفس الوظيفة
الكود ضمن هذا الملف
 
16-07-2018 04:39 مساء
icon فرز البيانات | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub TestYasser()
    Dim x           As Variant
    Dim y           As Variant
    Dim r           As Long

    Application.ScreenUpdating = False
        For r = 3 To Cells(Rows.Count, 1).End(xlUp).Row
            x = Application.Match(Cells(r, 1).Value, Columns(2), 0)
            If Not IsError(x) Then Cells(r, 4).Value = Cells(x, 2).Value
            y = Application.Match(Cells(r, 2).Value, Columns(1), 0)
            If IsError(x) Then Cells(r, 2).Interior.Color = vbCyan
        Next r
    Application.ScreenUpdating = True
End Sub


* برجاء إرفاق ملف فيما بعد في الموضوع ليسهل على الأخوة الأعضاء تقديم المساعدة حيث أن ذلك يوفر الوقت والجهد

بارك الله بك اخي ياسر
ولكن لا اظن ان الموضوع يحاجة الى كود 
فقط هذه المعادلة

=IFERROR(INDEX($B$2:$B$8,MATCH(A2,$B$2:$B$8,0)),B2)
16-07-2018 04:37 مساء
icon فرز البيانات | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 يمكن استعمال هذه المعادلة توضع في الخلية D2 ,وتسحب نزولاً

=IFERROR(INDEX($B$2:$B$8,MATCH(A2,$B$2:$B$8,0)),B2)

 
15-07-2018 09:03 صباحا
icon الاعداد الاولية | الكاتب :salim |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
هناك ملاحظة ارجوا انت تاخذها بصدر رحب
المعادله تستنج من رقم 1 انه عدد اولى اضافة لاستنتاج انه له قاسمان
تعريف الاعداد الاوليه هى الاعداد التى لها عاملان فى القسمة فقط ورقم 1 له عامل واحد وهو نفسه لذلك لا يعد عدد اولى
اصغر الاعداد الاوليه هو الرقم الزوجى الاولى الوحيد الرقم 2 لتحقيقه شرط العاملان فقط
ومن مميزات الارقام الاوليه انها تمتد الى ما لانهايه ويمكن تحديدها بخوارزميات عديده
وقد قمت بكتابة معادله واستخدمت احدى الخوارزميات وهى ابسطها وابطأها
وتتمثل فى قسمة هذا العدد على الاعداد المحصورة بين 2 والجذر التربيعى ولا ينبغى الاستكمال لناتج القسمه على 2 لاكتشاف الامر
واقدم هذا الحل للاستفادة اكثر ونصيحة اخرى حاول الاختصار اكثر فى كتابة الصيغ
للتحميل لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تحياتى لشخصك الكريم


شكراً لك اسالذ اسلام على هذه المعلومة
لكن احب ان الفت نظركم ان 
قسمة  العدد على الاعداد المحصورة بين 2 والجذر التربيعى له (تعطينا بعض القواسم  فقط لهذا العدد ) وليس كل قواسمه 
بينما القسمة على الاعداد المحصورة بين 2 و (  نصف العدد اذا كان مزدوجاً    او نصف (العدد+1) اذا كان مفرداً) تعطينا كل القواسم
مثلاً
قسمة العدد 18 على الاعداد من 2 الى 4 (تقريب الجذر التربيعى ) تعطينا 9 / 6 / 4.5 
قسمة العدد 18 على الاعداد من 2 الى 9 (نصف 18) تعطينا  9 / 6 / 4.5 / 3.6 / 3 /  ...... /2
لهذا السبب انا أخذت الدالة   Int(A2/2)+1 
                        وليس    Int(SQRT(a2))+1
 
 في هذه الحالة تأتي الدّالة Mod  لتقوم بعملها

 
وفي النهاية تعريف اكثر دقة للعدد الاّولي
تعريف: العدد الأوّلي هو عدد طبيعي (دون فواصل) ,أكبر من 1  وله  قاسمان فقط  
            ملاحظة : اذا لم يكن أوليّاً من الطبيعي ان عدد قواسمه أكبر من 2 
 
14-07-2018 05:25 مساء
icon الاعداد الاولية | الكاتب :salim |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي الحبيب سليم وجزاك الله كل خير
لك يسعدني أن أرى مشاركاتك الفعالة والمميزة في المنتدى والتي تثري المنتدى بشكل كبير فأنت علم من أعلام الإكسيل في الوطن العربي
وفقني الله وإياك لكل خير

شكراً اخي الكريم ياسر و وفقك الله
ولكني أعجب لأمر يحيّرني:
كيف يكون عدد المعجبين 3 و عدد مرات تحميل الملف 2 (فهل نشتري السمك في البحر؟؟)
 
13-07-2018 06:08 صباحا
icon تظليل الصف والعمود للخلية النشطة | الكاتب :salim |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
اخى الكريم سليم استخدام الاكواد فى هذا الامر كثير ولكن كما قلت التغيير هنا جزرى
وعفوا استخدام الكلمة xlNone لا يرجع شئ لاصله !!!
بل هى كلمة محجوزه مثلها مثل vbblue أو vbred كل منهم يعكس رقم محدد
وباختصار شديد فما تعكسه الكلمة xlNone هو NoColor أى لا لون
وبما ان ورقة العمل من الاساس التى اختبرت فيها الكود الخاص بك فارغ فمؤكد لم تلاحظ الامر
لكن جرب وضع اى لون اخر وقم بتجربة الكود وسيتضح الامر

بارك الله بك استاذ اسلام تم توضيح الامر بالنسبة لي
12-07-2018 11:48 مساء
icon تظليل الصف والعمود للخلية النشطة | الكاتب :salim |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
مشكور لاضافاتكم الرائعه استاذ على واستاذ سليم
لكن القصد من هذا الموضوع هو تحديد الخلايا للرؤيه فقط وليس تغيرها جزريا
حيث ان استخدام الاكواد يغير التنسيق بشكل كامل ونهائى
واستاذى الغالى ياسر فهم القصد وعليه وضع موضوع مشابه
وجزاكم الله خيرا على تفاعلكم المثمر
تقبلوا وافر احترامى وتقديرى 81

بعد اذنك استاذ اسلام    الخلايا لا تتغير جذريا لان عبارة xlno في الكود تعيدها الى اصلها
هلا جربت الكود بنفسك من فضلك

الصفحة 64 من 65 < 1 62 63 64 65 > الأخيرة »





الساعة الآن 12:03 صباحا

أعلن هنا
أعلن هنا
أعلن هنا