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


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


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


نتائج البحث عن ردود العضو :Eslam Abdullah
عدد النتائج (427) نتيجة
16-10-2018 12:11 صباحا
icon الدالة المعرفة ColorEA لجمع الخلايا الملونة | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 مشكور مروركم العطر أخوانى الكرام

قمت بتطوير هام اخر للدالة بتاريخ "17/10/2018"
ملاحظة هامة: الدالة تعمل مع النوع الثانى للتنسيق الشرطى فقط وهو الخاص بالمعادلات ، ونمط المرجع A1
تقبلوا وافر احترامى وتقديرى 81
14-10-2018 11:03 مساء
icon الدالة المعرفة ColorEA لجمع الخلايا الملونة | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 مشكور مروركم العطر جميعاَ أخوانى الكرام على الموضوع المتواضع 81

ملاحظة: تم تطوير الدالة تفيد بعلاج عيوب سابقة وتحسين أدائها وسرعتها بتاريخ "14/10/2018"
 
13-10-2018 11:50 مساء
icon بحث وتعديل وحذف | الكاتب :Eslam Abdullah |المنتدى: اكسيل اسئله واجابات
 ارجوا ارفاق ملف بعد التطبيق حيث لم اجد مشاكل بتطبيق الكود الذى ارفقته
13-10-2018 10:26 صباحا
icon لاول مرة على اليوتيوب يوزرفورم كامل للحفظ والبحث والحذف والتعديل فى كل اوراق العمل اكسيل vba | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات فيديو
 جزاك الله خيرا أستاذى الغالى عماد
وجعل كل ما تقدمه فى ميزان حسناتك يوم القيامة 81
13-10-2018 10:23 صباحا
icon الدالة المعرفة ColorEA لجمع الخلايا الملونة | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 مشكور مروركم الكريم جميعا أخوانى وأساتذتى الأحباء
ومشكور تقديركم الغالى 81
12-10-2018 12:42 صباحا
icon بحث وتعديل وحذف | الكاتب :Eslam Abdullah |المنتدى: اكسيل اسئله واجابات
 جزاك الله خيرا أستاذ مهند مشكور حلولك المميزه
وهذا حل مقترح منى للاستاذ اشرف

بالنسبة للترتيب الصحيح فى اليوزر فورم استخدم الكود التالى فى الحدث UserForm_Activate

Private Sub UserForm_Activate()
ListBox1.Clear
TextBox12.SetFocus
For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
ListBox1.AddItem
        ListBox1.List(i - 2, 0) = i - 1
        ListBox1.List(i - 2, 1) = Cells(i, 2).Value
Next i
End Sub

بالنسبة للرسالة التى تظهر عند الضغط على اليوزر فورم استخدم الكود التالى فى الحدث ListBox1_Click
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
    If ListBox1.Selected(i) = True Then
        TextBox1.Value = ListBox1.List(i, 0)
        TextBox2.Text = ListBox1.List(i, 1)
        Exit For
    End If
Next i
End Sub

بالنسبة لكود الحذف استخدم الكود التالى فى الحدث CommandButton3_Click​
Private Sub CommandButton3_Click()
'كود حذف بيانات موظف
'**************************************************
For i = 0 To ListBox1.ListCount
lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
    If ListBox1.Selected(i) = True Then
        Range("A" & i + 2).EntireRow.Delete
        Range("A2").Value = 1
        Range("A2").DataSeries 2, , , , lrw - 2
        Call UserForm_Activate
        Exit For
    End If
Next i
End Sub

وهذا تعديل لكود الاضافة فى الحدث CommandButton2_Click
Private Sub CommandButton2_Click()
'كود اضافة بيانات موظف جديد
'**************************************************
lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
Sheets(1).Cells(lrw + 1, 1) = TextBox1.Value
Sheets(1).Cells(lrw + 1, 2) = TextBox2.Text
TextBox1.Value = "": TextBox2.Text = ""
Call UserForm_Activate
End Sub
11-10-2018 11:48 مساء
icon سؤال عن دمج الخلايا | الكاتب :Eslam Abdullah |المنتدى: اكسيل اسئله واجابات
 تفضل أخى خالد هذا كود أخر
ويطبق على العمود B كما طلبت

Sub Alsaqr_test()
Application.DisplayAlerts = 0

Dim lr&, s$, cell As Range, rng As Range, rng_lr As Range
Set rng_lr = Range(Cells(Rows.Count, 1).End(3).MergeArea.Address)
lr = rng_lr(rng_lr.Count).Row
Set rng = Range("B2")

    For Each cell In Range("A2:A" & lr)
        If s = cell.MergeArea.Address Then _
            Set rng = Union(rng, cell.Offset(, 1)): rng.Merge _
        Else Set rng = cell.Offset(, 1)
        s = cell.MergeArea.Address
    Next cell
    
Application.DisplayAlerts = 1
End Sub
11-10-2018 01:15 صباحا
icon استخراج القيم المكررة فقط | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 مشكور مساهماتك المميزه استاذ سليم
فقط احذف خلايا فى بداية او منتصف النطاق وتابع النتائج
وتترتب هذه النتائج لاعتماد الكود على تحديد النطاق باسلوب CurrentRegion
11-10-2018 12:33 صباحا
icon سؤال عن دمج الخلايا | الكاتب :Eslam Abdullah |المنتدى: اكسيل اسئله واجابات
 جزاك الله خيرا أستاذ على
والشكر موصول للاستاذ سليم
10-10-2018 08:53 مساء
icon استخراج القيم المكررة فقط | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: salim »
بارك الله بك اخي حسام
و زيادة في اثؤاء الموضوع  هذا الكود

Option Explicit
Sub Extarct_dup()
Dim r%, m%: m = 4
Dim x%, Y%, k%
Range("d1").CurrentRegion.Offset(1, 0).Columns(1).ClearContents
r = Range("a1").CurrentRegion.Columns(1).Rows.Count
k = 2
Do Until k > r
    x = Application.CountIf(Cells(2, 1).Resize(r, 1), Cells(k, 1))
    Y = Application.CountIf(Cells(2, 4).Resize(k - 1, 1), Cells(k, 1))
       If x > 1 And Y = 0 Then
         Cells(m - 2, 4) = Cells(k, 1)
         m = m + 1
       End If
       k = k + 1
Loop
End Sub


انا اسلام استاذ سليم ركز biggrin2
ومشكور مرورك العطر ومشكور اثرائك للموضوع
ونصيحه حاول تبعد عن المنطق دا أغالى فى الكود
لانه مع البيانات الضخمه هيسبب بطئ شديد biggrin2
كما ان النتائج غير دقيقه
بمعنى أخر هيحصل أخطاء فى النتائج فى بعض الظروف جرب وشوف wink_3
تقبل وافر احترامى وتقديرى 81
10-10-2018 03:10 مساء
icon لا أجد الخطأ | الكاتب :Eslam Abdullah |المنتدى: اكسيل اسئله واجابات
 تم نقل الموضوع لقسم اكسيل اسئلة واجابات
ياجماعة الخير راعوا الاقسام شويه g
بالنسبه للسؤال يفضل دائما ارفاق ملف مع بيان النتيجة المتوقعه
10-10-2018 03:04 مساء
icon جمع أو عد الخلايا الملونة Sum & Count Colored Cells | الكاتب :Eslam Abdullah |المنتدى: موضوعات ياسر خليل أبو البراء
 ههههههههههه هى تلاجة هنقسطها  شد حيلك أحوده فاضل 50 نقطة ، شوية تفاعلات كدا وهتلاقى نفسك جبت تمنه 81

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





الساعة الآن 04:14 مساء

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