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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





مشكلة فى ملف بحث بالليست بوكس

السلام عليكم دا ملف كنت نزلتة من المنتدى للاستفادة به وهو رائع جدا جدا ولصاحبة جزيل الشكر والتقدير ولكنى اريد اضافة عم ..


موضوع مغلق


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

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

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


وتم توضيح ذلك اكثر داخل الصور

وجعله الله فى ميزان حسناتكم جميعا
 
  1.jpg   تحميل jpg 1.jpg مرات التحميل :(1)
الحجم :(152.059) KB
  2.jpg   تحميل jpg 2.jpg مرات التحميل :(1)
الحجم :(74.257) KB
 
  ترصيد من خلال البحث.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(24.195) KB



أفضل إجابة مقدمة من سعد عابد وهي:
السلام عليكم
استخدم التعديل التالى
Option Explicit
Private Sub TextBox1_Change()
Dim sh As Worksheet
Set sh = Sheets("data2")
Dim i As Long
Dim x As Long
Dim p As Long
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.Selected(0) = True
For i = 2 To sh.Range("B" & Rows.Count).End(xlUp).Row
For x = 1 To Len(sh.Cells(i, 2))
p = Me.TextBox1.TextLength
If LCase(Mid(sh.Cells(i, 2), x, p)) = Me.TextBox1 And Me.TextBox1 <> "" Then
With Me.ListBox1
.AddItem sh.Cells(i, 2)
.List(ListBox1.ListCount - 1, 0) = sh.Cells(i, 1)
.List(ListBox1.ListCount - 1, 1) = sh.Cells(i, 2)
.List(ListBox1.ListCount - 1, 2) = sh.Cells(i, 3)
.List(ListBox1.ListCount - 1, 3) = sh.Cells(i, 4)
.List(ListBox1.ListCount - 1, 4) = sh.Cells(i, 5)
.List(ListBox1.ListCount - 1, 5) = sh.Cells(i, 6)
If .ListCount - 1 = 1 Then
.List(ListBox1.ListCount - 1, 6) = .List(ListBox1.ListCount - 1, 3) - .List(ListBox1.ListCount - 1, 4)
Else
.List(ListBox1.ListCount - 1, 6) = .List(ListBox1.ListCount - 1, 3) - .List(ListBox1.ListCount - 1, 4) + .List(ListBox1.ListCount - 2, 6)
End If
End With
End If
Next x
Next i
End Sub


عرض الإجابة




11-11-2021 05:57 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif مشكلة فى ملف بحث بالليست بوكس
جرب المرفق
 
 
  فورم بحث عن الاصناف بالحروف الاولى واظهار النتائج فى الليست بوك.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(81.578) KB


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

استاذى حسين مأمون
لك جزيل الشكر والتقدير لاهتمامك

ولكن المطلوب هو عن البحث باسم العميل فى التيكست بوكس
تظهر بياناته فى الليست بوكس ويتم ترصيد حساب العميل
يعنى يافندم معادلة حسابية 
اول سطر  نطرح المبلغ -السداد
ثانى سطر  = ( ناتج السطر الاول + المبلغ - السداد )
ثالث سطر =  (ناتج السطر الثانى + المبلغ - السداد )

هكذا يتم الترصيد مع كل عميل
 
 
  ترصيد من خلال البحث.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(24.195) KB


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

قم بانشاء صفحة جديدة وضع فيها جدول فيه نتائج متوقعة مثلا عند البحث عن حمادة ضع النتائج المتوقعة تعاكي الليستبوكس لتتضح الصورة لمن يريد تقديم حل
تحيياتي


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

قم بانشاء صفحة جديدة وضع فيها جدول فيه نتائج متوقعة مثلا عند البحث عن حمادة ضع النتائج المتوقعة تعاكي الليستبوكس لتتضح الصورة لمن يريد تقديم حل
تحيياتي



قد تم تعديل الموضوع وتم اضافة صور توضيحية اكثر 
كما اريد ان اشكرك على تبنيك للموضوع , وانفعنا  الله بعلمك ويزيدك من فضله

12-11-2021 07:54 مساء
مشاهدة مشاركة منفردة [5]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif مشكلة فى ملف بحث بالليست بوكس
السلام عليكم
استخدم التعديل التالى
Option Explicit
Private Sub TextBox1_Change()
Dim sh As Worksheet
Set sh = Sheets("data2")
Dim i As Long
Dim x As Long
Dim p As Long
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.Selected(0) = True
For i = 2 To sh.Range("B" & Rows.Count).End(xlUp).Row
For x = 1 To Len(sh.Cells(i, 2))
p = Me.TextBox1.TextLength
If LCase(Mid(sh.Cells(i, 2), x, p)) = Me.TextBox1 And Me.TextBox1 <> "" Then
With Me.ListBox1
.AddItem sh.Cells(i, 2)
.List(ListBox1.ListCount - 1, 0) = sh.Cells(i, 1)
.List(ListBox1.ListCount - 1, 1) = sh.Cells(i, 2)
.List(ListBox1.ListCount - 1, 2) = sh.Cells(i, 3)
.List(ListBox1.ListCount - 1, 3) = sh.Cells(i, 4)
.List(ListBox1.ListCount - 1, 4) = sh.Cells(i, 5)
.List(ListBox1.ListCount - 1, 5) = sh.Cells(i, 6)
If .ListCount - 1 = 1 Then
.List(ListBox1.ListCount - 1, 6) = .List(ListBox1.ListCount - 1, 3) - .List(ListBox1.ListCount - 1, 4)
Else
.List(ListBox1.ListCount - 1, 6) = .List(ListBox1.ListCount - 1, 3) - .List(ListBox1.ListCount - 1, 4) + .List(ListBox1.ListCount - 2, 6)
End If
End With
End If
Next x
Next i
End Sub


 
 
  ترصيد من خلال البحث.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(24.534) KB


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



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


 










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

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