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

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


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


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





بحث في الليست بوكس

كواد بحث ترحيل البيانات الموجوده في الليست بوكس اي ان اي بيانات ابحث عنها تبق في الليست بوكس في حالة حصل اي تغير بيانات ..



13-08-2019 06:13 مساء
cvjfdkl
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-07-2019
رقم العضوية : 14058
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 18-6-1989
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
كواد بحث ترحيل البيانات الموجوده في الليست بوكس اي ان اي بيانات ابحث عنها تبق في الليست بوكس في حالة حصل اي تغير بيانات في التكس بوكس انا عمل كواد البحث بس مجرد ما امسح البيانات الموجوده في التكس بوكس يمسح البيانات الموجود في الليست بوكس وانا عايز اي بيانات ابحث عنها في شيت1 تبقا في الليست بوكس  وبعده ارحل البيانات التي بخث عنها في الشيت  ويتم ترحيله الي شيت2
 
 
  5المصنف1.xls   تحميل xls مرات التحميل :(8)
الحجم :(35.328) KB





13-08-2019 08:13 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
بردو اتكرر موضوعك استاذ ؟؟؟ يرجى تغير اسمك لكةى نتواصل جيدا
ومع التكرارا لم ييتغير شبي بالمعطيات فهى نفسها
قارن بين موضوعك الاول
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
والموضوع التالى لن تجد سوى مجموعه بيانات مدخلة طيب انته طالب ايه ؟ لا شي
ولكن على قدر فهمى لطلباتك 
فطلبك الاول كود بحث يظهر النتيجه باليست 
ضع الكود التالى في زر المبيعات 
ومهمته يبحث عن كود الصنف وياخذ الكمية التى تكتبها ثم يضعهم باليست  
واذا ضغط علية مرة اخر يضع لابيانات الجديده تحت التى تسبقها باليست

Private Sub CommandButton21_Click()
    Dim myArray        As Variant
    Dim lr             As Long
    Dim rw             As Long
    Dim X              As Long
    Dim r              As Long
    Dim DATA           As Worksheet
     
    If Me.TextBox1.Value = "" Or Me.TextBox2.Value = "" Then
       MsgBox "برجاء التأكد من ادخال كود الصنف والكمية المراد بيعها"
       Exit Sub
    End If
    '____________________________________________
    Set DATA = Worksheets("ورقة1")    'اسم شيت قاعدة البيانات
    '____________________________________________
    lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row    'اخر صف به بيانات
    myArray = DATA.Range("a2:e" & lr)     'نطاق البحث
    ReDim y(1 To lr, 1 To 5) ' انشاء مصفوفة جديده لحفظ البيانات بها
    '____________________________________________
    For X = 1 To lr - 1
        ' حلقة للجمع
       If myArray(X, 1) = Me.TextBox1.Text Then
       ' للتاكد ان ما بالمبياعات موجود فعليا بالمخزن
       If myArray(X, 3) < Val(Me.TextBox2.Text) Then
          MsgBox "الكمية المراد بيعاها اقل مما هى موجوده بالمخزن"
          Exit Sub
       End If
       ' اذا كانت الكمية المراد بيعاها اقل مما في المخزن يستدعى  البيانات لليست
          rw = rw + 1
            y(rw, 1) = myArray(X, 1)
            y(rw, 2) = myArray(X, 2)
            ' هنا نضع الكمية في اليست الكمية المراد بيعاها وليست التى بالمخزن
            y(rw, 3) = Me.TextBox2.Text
            y(rw, 4) = myArray(X, 4)
            y(rw, 5) = myArray(X, 5)
          Exit For
       End If
    Next X
' اذا كان المتغير rw
' اكبر من الصفر معناه انه وجد بيانات متطابقة وعلية ينفذ التالى
    If rw > 0 Then
       r = Me.ListBox1.ListCount
         Me.ListBox1.AddItem
          Me.ListBox1.List(r, 0) = y(rw, 1)
          Me.ListBox1.List(r, 1) = y(rw, 2)
          Me.ListBox1.List(r, 2) = y(rw, 3)
          Me.ListBox1.List(r, 3) = y(rw, 4)
          Me.ListBox1.List(r, 4) = y(rw, 5)
    End If
' تحياتى وتقديرى محمود على محمد ابو دهب


End Sub


ولو لاحظت بعت كود زى ده ليك من قبل في احد الموضوعات الى طلبت بها  , كان ينقصك بعض التعديل البسيط عليه 

اما بخصوص الترحيل 

فضع الكود التالى في زر مردوات ومسموحات المبيعات

Private Sub CommandButton22_Click()
Dim i       As Long
Dim lr      As Long
Dim DATA    As Worksheet

    Set DATA = Worksheets("ورقة2")    'اسم شيت قاعدة البيانات
    '____________________________________________
    lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row + 1  'اخر صف به بيانات
    
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            DATA.Range("a" & lr).Value = .List(i, 0)
            DATA.Range("b" & lr).Value = .List(i, 1)
            DATA.Range("c" & lr).Value = .List(i, 2)
            DATA.Range("d" & lr).Value = .List(i, 3)
            DATA.Range("e" & lr).Value = .List(i, 4)
            lr = lr + 1
        Next i
    End With
    Me.ListBox1.Clear
End Sub


وبالنهاية اتمنى يكون ده طلبك
 

أثارت هذه المشاركة إعجاب: cvjfdkl، مهند محسن،


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

تحياتى وتقدير للجميع  محمود ابوالدهب

13-08-2019 08:59 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
هل هذا ما اردته اما ماذا ؟
 



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

تحياتى وتقدير للجميع  محمود ابوالدهب

13-08-2019 11:06 مساء
مشاهدة مشاركة منفردة [3]
cvjfdkl
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-07-2019
رقم العضوية : 14058
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 18-6-1989
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب
هل هذا ما اردته اما ماذا ؟
 

هو الكواد جميلا وفعلا هذه هو الكواد انا بدور عليه بس في مشكلة انو يكرار في البيانات وانا كان بدي اني اعمل شرط وتم ادخل نفس البيانات يزيد الكميه +1 يعني لو في عمود الكميه 2 وتم ادخال نفس الصنف تزداد الكميه بقطعه واحد فتصباح 3
وشكرا عليتعابك معاي وكلك ذوق احترام علي المساعد الطبيه بجد شكرا يااستاذ محمود ابو الدهب




13-08-2019 11:24 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
استخدم التعديل التالى للكود 
وفيه حلقة تكرارية في اليست بحيث لو لقى كود الصنف مسجل من قبل باليست يعدل بيان الكمية بالموجود في التيكست بوكس 2 اى لو كانت الكمية 5 
وكتبت نفس الكود مرة اخرى مع كمية 4 يذهب الكود الى اليست ويحذف ال 5 ويضع  4 
زطبعا انته متكتبش عايز تضيف ايه على 5 بمعنى اخر
او كنت كانت الكمية 5 وحابب تخليها 7 متكتبش 2 لا اكتب ال 7 وهو يعدلها لانه مبيجمعش ولو حابه يجمع عدله انته سهل جدا تعديله

Private Sub CommandButton21_Click()
    Dim myArray        As Variant
    Dim lr             As Long
    Dim rw             As Long
    Dim X              As Long
    Dim r              As Long
    Dim DATA           As Worksheet
     
    If Me.TextBox1.Value = "" Or Me.TextBox2.Value = "" Then
       MsgBox "برجاء التأكد من ادخال كود الصنف والكمية المراد بيعها"
       Exit Sub
    End If
    
For X = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.List(X, 0) = Me.TextBox1.Text Then
       Me.ListBox1.List(X, 2) = Me.TextBox2.Text
       Exit Sub
    End If
Next X
    '____________________________________________
    Set DATA = Worksheets("ورقة1")    'اسم شيت قاعدة البيانات
    '____________________________________________
    lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row    'اخر صف به بيانات
    myArray = DATA.Range("a2:e" & lr)     'نطاق البحث
    ReDim y(1 To lr, 1 To 5) ' انشاء مصفوفة جديده لحفظ البيانات بها
    '____________________________________________
    For X = 1 To lr - 1
        ' حلقة للجمع
       If myArray(X, 1) = Me.TextBox1.Text Then
       ' للتاكد ان ما بالمبياعات موجود فعليا بالمخزن
       If myArray(X, 3) < Val(Me.TextBox2.Text) Then
          MsgBox "الكمية المراد بيعاها اقل مما هى موجوده بالمخزن"
          Exit Sub
       End If
       ' اذا كانت الكمية المراد بيعاها اقل مما في المخزن يستدعى  البيانات لليست
          rw = rw + 1
            y(rw, 1) = myArray(X, 1)
            y(rw, 2) = myArray(X, 2)
            ' هنا نضع الكمية في اليست الكمية المراد بيعاها وليست التى بالمخزن
            y(rw, 3) = Me.TextBox2.Text
            y(rw, 4) = myArray(X, 4)
            y(rw, 5) = myArray(X, 5)
          Exit For
       End If
    Next X
' اذا كان المتغير rw
' اكبر من الصفر معناه انه وجد بيانات متطابقة وعلية ينفذ التالى
    If rw > 0 Then
       r = Me.ListBox1.ListCount
         Me.ListBox1.AddItem
          Me.ListBox1.List(r, 0) = y(rw, 1)
          Me.ListBox1.List(r, 1) = y(rw, 2)
          Me.ListBox1.List(r, 2) = y(rw, 3)
          Me.ListBox1.List(r, 3) = y(rw, 4)
          Me.ListBox1.List(r, 4) = y(rw, 5)
    End If
' تحياتى وتقديرى محمود على محمد ابو دهب


End Sub

أثارت هذه المشاركة إعجاب: مهند محسن،


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

تحياتى وتقدير للجميع  محمود ابوالدهب

14-08-2019 11:44 صباحا
مشاهدة مشاركة منفردة [5]
cvjfdkl
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-07-2019
رقم العضوية : 14058
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 18-6-1989
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
[quote=محمود ابو الدهب] 
شكرا هذه هو الكواد يعمل بشكل صحيح الف الف شكرا يادكتور علي المساعده الطبيه بجد اشكر 
وانتما انك اتكون دأمان في الافضل

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



14-08-2019 03:11 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
الحمد لله على تمام طلبك

أثارت هذه المشاركة إعجاب: احمد 9598،


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

تحياتى وتقدير للجميع  محمود ابوالدهب

21-08-2019 12:29 صباحا
مشاهدة مشاركة منفردة [7]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 52
الاعجاب : 15
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
دكتور محمود ابو الدهب ممكن تعديل كواد البحث  يعني في حالة تغيرة الكميه يزيد السعر بقدر الكميه
اذا كان الكميه 1 وسعر 2
عايز لما تغير الكميه يتغير السعر 
يعني لما تكون الكميه 2 يكون سعر4




06-09-2019 10:31 مساء
مشاهدة مشاركة منفردة [8]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
استاذ احمد لن استطيع ان اساعدك فنحن موقع تعليمي وليس خدمى وما تطلبه منى رغم ما قمت به بالاعلى والمحاولات الاخرى بالمواضيع الاخرى ما هو الا تدمير لاى استعاب او تعليم لحضرتك
المفترض تاخد ما بعته لك وكان من قبل مشروح سطر سطر وتتبعه بزر f8 وتفهم الغرض من السطر ثم تقوم بالتعديل كما تشاء 
والسطر الذى لا تفهم افتح موضوع جديد وضع كامل الكود به ثم اطلب احد يفهمك معنى هذا السطر ايه 
وانا بعمل كدا علشانك في المقام الاول من اجل تنميه قدراتك وموهبتك في التنفيذ والتعلم


تقبل تحياتى وتقدري

أثارت هذه المشاركة إعجاب: مهند محسن، YasserKhalil، احمد 9598،


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

تحياتى وتقدير للجميع  محمود ابوالدهب

07-09-2019 01:11 مساء
مشاهدة مشاركة منفردة [9]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 52
الاعجاب : 15
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
[quote=محمود ابو الدهب]
اسف دكتور محمود وشكرا لك 
دكتور محمود علي المجهود الذي بذلت من اجل التعليم وتسهيل العمل 
لك مني التقدير والاحترام انت وجميع الاعضاء
 

أثارت هذه المشاركة إعجاب: YasserKhalil، محمود ابو الدهب،



07-09-2019 01:49 مساء
مشاهدة مشاركة منفردة [10]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 52
الاعجاب : 15
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
دكتور محمود ابو الدهب ممكن تعديل كواد البحث  يعني في حالة  تكس بوكس2 =""
يتم استدعاء الكميه من المخزن 
وانا حاولت تعديل الكواد ولما اعرف الخطأ
 




07-09-2019 02:20 مساء
مشاهدة مشاركة منفردة [11]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 223
قوة السمعة : 4281
الاعجاب : 561
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث في الليست بوكس
ارسل صورة بالخطأ لما حاولت تعديل نوجهك الخطأ كان ايه علشان متفعش فيه تانى
 

أثارت هذه المشاركة إعجاب: YasserKhalil، احمد 9598،


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

تحياتى وتقدير للجميع  محمود ابوالدهب



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شرح الدخول للاكواد مع فورم بحث من خلال التكست والليست مجدى يونس
2 21 مجدى يونس
ضبط فورم بحث لإظهار النتيجة فى الليست بوكس مهند محسن
3 137 مهند محسن
فورم بحث واظهار النتيجة فى الليست مع جمع البيانات مجدى يونس
3 56 مجدى يونس
كود عمل التفاف للنص داخل الليست بوكس Fadel
4 88 ali mohamed ali
مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس المبتدأ
3 86 YasserKhalil

الكلمات الدلالية
الليست ، بوكس ،


 







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

الساعة الآن 05:06 مساء

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