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

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


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





مشكلة فى تكرار نتيجة حرف البحث

السلام عليكم كعادة المنتدى انهم يريدون النمو والارتقاء لنا لكى نزداد خبرة وبكم بالفعل نتعلم ونتعلم فى الملفات المرفقة ..


موضوع مغلق

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


14-11-2021 10:46 صباحا
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 

السلام عليكم 
كعادة المنتدى انهم يريدون النمو والارتقاء لنا لكى نزداد خبرة
وبكم بالفعل نتعلم ونتعلم

فى الملفات المرفقة صور للتوضيح


واريد معرفة خطأى
 
  2.jpg   تحميل jpg 2.jpg مرات التحميل :(3)
الحجم :(127.579) KB
  1.jpg   تحميل jpg 1.jpg مرات التحميل :(2)
الحجم :(148.196) KB
 
  مشكلة فى كود بحث تكرر نتيجه البحث مرتين.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(265.041) KB



أفضل إجابة مقدمة من حسين مامون وهي:
قمت بتصميم فورم3 جربه ربما يقيدك كود البحث بهذه الطريقة
Option Explicit

Private Sub TextBox1_Change()
Dim sh As Worksheet
Set sh = Sheets("data2")
Dim i
Dim x, y, m
Dim LR
Dim p
m = 0
Me.ListBox1.Clear
For y = 1 To 10
 ListBox1.AddItem
 ListBox1.List(0, m) = sh.Cells(2, y)
m = m + 1
 Next y

ListBox1.ColumnCount = 10
i = 1
LR = sh.Range("a" & Rows.Count).End(xlUp).Row
For x = 3 To LR
If sh.Cells(x, "d") Like "*" & TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(i, 0) = sh.Cells(x, "a")
ListBox1.List(i, 1) = sh.Cells(x, "b")
ListBox1.List(i, 2) = sh.Cells(x, "c")
ListBox1.List(i, 3) = sh.Cells(x, "d")
ListBox1.List(i, 4) = sh.Cells(x, "e")
ListBox1.List(i, 5) = sh.Cells(x, "f")
ListBox1.List(i, 6) = sh.Cells(x, "g")
ListBox1.List(i, 7) = sh.Cells(x, "h")
ListBox1.List(i, 8) = sh.Cells(x, "i")
ListBox1.List(i, 9) = sh.Cells(x, "j")

i = i + 1
End If
Next x

End Sub
عرض الإجابة




14-11-2021 09:53 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif مشكلة فى تكرار نتيجة حرف البحث
قمت بتصميم فورم3 جربه ربما يقيدك كود البحث بهذه الطريقة
Option Explicit

Private Sub TextBox1_Change()
Dim sh As Worksheet
Set sh = Sheets("data2")
Dim i
Dim x, y, m
Dim LR
Dim p
m = 0
Me.ListBox1.Clear
For y = 1 To 10
 ListBox1.AddItem
 ListBox1.List(0, m) = sh.Cells(2, y)
m = m + 1
 Next y

ListBox1.ColumnCount = 10
i = 1
LR = sh.Range("a" & Rows.Count).End(xlUp).Row
For x = 3 To LR
If sh.Cells(x, "d") Like "*" & TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(i, 0) = sh.Cells(x, "a")
ListBox1.List(i, 1) = sh.Cells(x, "b")
ListBox1.List(i, 2) = sh.Cells(x, "c")
ListBox1.List(i, 3) = sh.Cells(x, "d")
ListBox1.List(i, 4) = sh.Cells(x, "e")
ListBox1.List(i, 5) = sh.Cells(x, "f")
ListBox1.List(i, 6) = sh.Cells(x, "g")
ListBox1.List(i, 7) = sh.Cells(x, "h")
ListBox1.List(i, 8) = sh.Cells(x, "i")
ListBox1.List(i, 9) = sh.Cells(x, "j")

i = i + 1
End If
Next x

End Sub
 
 
  مشكلة فى كود بحث تكرر نتيجه البحث مرتين.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(267.763) KB


15-11-2021 06:14 مساء
مشاهدة مشاركة منفردة [2]
GeoesLive
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4072
المشاركات : 23
الجنس : ذكر
تاريخ الميلاد : 16-9-1986
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 80
 offline 
look/images/icons/i1.gif مشكلة فى تكرار نتيجة حرف البحث
قمت بتعديل كود البحث واختصاره لتبسيط فهم الكود لكن لاسف مش عارف ارفع الملف 
Private Sub TextBox1_Change()
Dim sh As Worksheet
Dim i As Long
Dim SearchColumn As Long
Dim Lrow As Long

Set sh = Sheets("data2")
Me.ListBox1.Clear
'For Listbox Header
Me.ListBox1.AddItem "التاريخ"
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = "رقم القيد"
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = "الحساب"
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = "صاحب الحساب"
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = "عدد"
Me.ListBox1.List(ListBox1.ListCount - 1, 5) = "مبلغ"
Me.ListBox1.List(ListBox1.ListCount - 1, 6) = "اجمالى"
Me.ListBox1.List(ListBox1.ListCount - 1, 7) = "سداد/تحصيل"
Me.ListBox1.List(ListBox1.ListCount - 1, 8) = "شرح القيد"
Me.ListBox1.List(ListBox1.ListCount - 1, 9) = "ترصيد"
'------------------------------------------------------

If OptionButton1 Then
    SearchColumn = 2
ElseIf OptionButton2 Then
    SearchColumn = 3
Else
    SearchColumn = 4
End If
Lrow = sh.Cells(sh.Rows.Count, SearchColumn).End(xlUp).Row
Me.ListBox1.Selected(0) = True
For i = 3 To Lrow
    If sh.Cells(i, SearchColumn).Value Like "*" & Me.TextBox1.Value & "*" And Me.TextBox1.Value <> "" Then
        With Me.ListBox1
            .AddItem sh.Cells(i, 2)
            .List(.ListCount - 1, 0) = sh.Cells(i, 1)
            .List(.ListCount - 1, 1) = sh.Cells(i, 2)
            .List(.ListCount - 1, 2) = sh.Cells(i, 3)
            .List(.ListCount - 1, 3) = sh.Cells(i, 4)
            .List(.ListCount - 1, 4) = sh.Cells(i, 5)
            .List(.ListCount - 1, 5) = sh.Cells(i, 6)
            .List(.ListCount - 1, 6) = sh.Cells(i, 7)
            .List(.ListCount - 1, 7) = sh.Cells(i, 8)
            .List(.ListCount - 1, 8) = sh.Cells(i, 9)
            .List(.ListCount - 1, 9) = sh.Cells(i, 10)
            'هذا السطر خاص بالترصيد
            Dim a&, b&, c&
            a = IIf(.List(.ListCount - 1, 6) <> "", .List(.ListCount - 1, 6), 0)
            b = IIf(.List(.ListCount - 1, 7) <> "", .List(.ListCount - 1, 7), 0)
    '        c = IIf(.List(.ListCount - 1, 9) <> "", .List(.ListCount - 1, 9), 0)
            If .ListCount - 1 > 0 Then
                .List(.ListCount - 1, 9) = a - b
    '        Else
    '            .List(.ListCount - 1, 9) = a - b + c
            End If
        End With
    End If
Next i
End Sub



15-11-2021 06:58 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif مشكلة فى تكرار نتيجة حرف البحث
اخى العزيز ( حبيبتى دائما )
لماذا تطرح الاسئله وتتركها بدون متابعه لها ثم تطرح موضوع اخر ولا ترد على موضوعك القديم حتى لا ينفر اخوانك من المساعده كما في هذا الموضوع
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 

15-11-2021 07:48 مساء
مشاهدة مشاركة منفردة [4]
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 
look/images/icons/i1.gif مشكلة فى تكرار نتيجة حرف البحث
السلام عليكم 
عفوا اخى الكريم يعلم الله انى اعشق هذ المنتدى واعشق استاتذى الكرام
ولكن عندما يختار ادارة المنتدى بأن الاجابة هى افضل اجابة وقتها يكون الموضوع قد اغلق
ولا يتاح لى كتابة او اقتباس مشاركة 
ولكنى قد فهمت الغى انها افضل اجابة واضع تعليقى ثم ارجعها لافضل اجابة
ولكم وللجميع فائق الاحترام والتقدير طبعا ... 
الكود رائع اخى الكريم ولكنى لا افهم معالة عمود الترصيد لانها لا تعمل معى

15-11-2021 07:51 مساء
مشاهدة مشاركة منفردة [5]
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 
look/images/icons/i1.gif مشكلة فى تكرار نتيجة حرف البحث
انا تعبت حضرتك معايا جدا وكل الشكر ليك الكود جميل جدا 
ولكن حضرتك محطتش كود الترصيد  

16-11-2021 06:14 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مشكلة فى تكرار نتيجة حرف البحث
السلام عليكم أخي الكريم
حاول عند طرح الموضوعات أن تستخدم لغة الإكسيل وليس لغة الحسابات والترصيد وما إلى ذلك من مصطلحات لا ندركها بشكل جيد
ضع المتغير التالي في الكود الخاص بحدث التغير في التكست بوكس (البحث)
Dim ii As Integer


أنا وضعت لك نموذج لاختيار "صاحب الحساب" .. ادرس هذا الجزء بشكل جيد وطبقه على بقية الكود ، فأنا لا أرى أي داعي للحلقات التكرارية المتداخلة لعمليات البحث فهذا من شأنه أن يجعل الكود بطيء وهذا هو السبب في تكرار النتائج
    If OptionButton3.Object Then
        Me.ListBox1.Selected(0) = True
        For i = 3 To sh.Range("C" & Rows.Count).End(xlUp).Row
            If InStr(sh.Cells(i, 4), LCase(TextBox1.Text)) And TextBox1.Text <> "" Then
                With Me.ListBox1
                    .AddItem sh.Cells(i, 2)
                    For ii = 0 To 9
                        .List(ListBox1.ListCount - 1, ii) = sh.Cells(i, ii + 1)
                    Next ii
                    If .ListCount - 1 = 1 Then
                        .List(ListBox1.ListCount - 1, 9) = Val(.List(ListBox1.ListCount - 1, 6)) - Val(.List(ListBox1.ListCount - 1, 7))
                    Else
                        .List(ListBox1.ListCount - 1, 9) = Val(.List(ListBox1.ListCount - 1, 6)) - Val(.List(ListBox1.ListCount - 1, 7)) + Val(.List(ListBox1.ListCount - 2, 9))
                    End If
                End With
            End If
        Next i
    End If


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


الكلمات الدلالية
مشكلة ، تكرار ، نتيجة ، البحث ،


 










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

الساعة الآن 06:55 صباحا