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

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


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





عمل بحث بالفورم مع وضع كود للتعديل وكود للحذف

السلام عليكم فضلا وليس امرا ان تكون الورقة النشطة هي هذه الورقة عند القيام بالبحث في الفورم عند اختيا ..


موضوع مغلق

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


04-09-2020 08:23 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم 
فضلا وليس امرا ان تكون الورقة النشطة هي هذه الورقة عند القيام بالبحث في الفورم    
 
عند اختيار الصف الاول او الثاني من فلترة الاسماء في اليست بوكس يعرض التفاصيل بصوره صحيحة اما عند اختيار الصف الثالث او الرابع اوالخامس يظهر خظأ  
 
وان امكن تفعيل زر التعديل والحذف   
  مع جزيل الشكر                                                                                              
 
 
 
  ملف العمل التجريبي.xlsm   تحميل xlsm مرات التحميل :(13)
الحجم :(374.5) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
كما أخبرتك أخي الكريم أبو طيبة ، تقوم بالإشارة لورقة العمل 
على سبيل المثال لتحاول بنفسك تعديل الكود
نفترض أن ورقة العمل المطلوب البحث فيها هي ورقة العمل المسماة ورقة2
فتأتي في بداية الكود وتقوم بالإعلان عن متغير من النوع ورقة العمل وباسم معين وليكن بهذا الشكل
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("ورقة2")


ثم في الأسطر التي تلي السطر القديم الخاص بالتنشيط تبحث عن الكلمات التي تشير للنطاقات مثل Range - Cellsوأينما وجدت هذه الكلمات تقوم بوضع الإشارة لورقة العمل قبلها 
مثال
Dim rng As Range
Set rng = Range("A1:B10")
Cells(1, 1).Value = "Hello"


تصبح بهذا الشكل
Dim rng As Range
Set rng = sh.Range("A1:B10")
sh.Cells(1, 1).Value = "Hello"


أرجو أن يكون المثال واضح بحيث تستطيع التعامل مع الكود لديك بنفسك
عرض الإجابة




06-09-2020 05:49 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif عمل بحث بالفورم مع وضع كود للتعديل وكود للحذف
وعليكم السلام أخي الكريم
المشكلة غير محددة ، وضح التفاصيل وما تقوم به بشكل يدوي وما هو متوقع ، وحاول التركيز على نقطة واحدة فقط ليفهم الأعضاء مشكلتك بشكل أفضل.

06-09-2020 01:49 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif عمل بحث بالفورم مع وضع كود للتعديل وكود للحذف
المشكله الاولى
عند فتح الفورم وبدء بكتابة احرف الاسم المراد البحث عنه في تكست بوكس ١ فيتم تنشيط ورقه ٢ وانا محتاج ان تكون ورقه ١ هي النشطه عند بدء بالكتابه في تكست بوكس ١
المشكلة الثانيه 
عند اختيار الاسم من اليست بوكس١ ليضهر تفاصيله في باقي التكست بوكسس
وكان الاسم في السطر الثالث او الرابع يظهر خطأ
تحياتي للجميع

06-09-2020 02:26 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif عمل بحث بالفورم مع وضع كود للتعديل وكود للحذف
حل المشكلة الأولى كما بالصورة والرجاء حاول دراسة الأكواد 
TbmIh_Untitled
 
 


07-09-2020 12:20 مساء
مشاهدة مشاركة منفردة [4]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif عمل بحث بالفورم مع وضع كود للتعديل وكود للحذف
استاذ ياسر العزيز قمت بالتغيير ولكن البحث عن الاسماء يتحول من الورقة 2 الى الورقة 1
وقمت باضافة تنشيط ورقة 2 في نهاية الكود ولكن اثناء الكتابة ينتقل بين الصفحتين بصورة سريعة مثل وميض
Private Sub TextBox1_Change()
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
Sheets(2).Activate
ListBox1.Clear
ss = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row
k = 0
For Each c In Range("B2:B" & ss)
B = InStr(c, TextBox1)
If B > 0 Then
ListBox1.AddItem
 ListBox1.List(k, 1) = Cells(c.Row, 5).Value
  ListBox1.List(k, 2) = Cells(c.Row, 4).Value
   ListBox1.List(k, 3) = Cells(c.Row, 3).Value
    ListBox1.List(k, 4) = Cells(c.Row, 2).Value
   k = k + 1
End If
Next c
Sheets(1).Activate
End Sub

07-09-2020 01:33 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif عمل بحث بالفورم مع وضع كود للتعديل وكود للحذف
من الأفضل عدم تنشيط أوراق العمل أو تحديدها وتغيير الكود بحيث يتم الإشارة لورقة العمل المطلوب التعامل معها دون الحاجة لتنشيطها أو تحديدها.

07-09-2020 02:22 مساء
مشاهدة مشاركة منفردة [6]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif عمل بحث بالفورم مع وضع كود للتعديل وكود للحذف
وانا اريد كذاك 
كيف يكون التغيير في الكود عند فتح الفورم من ورقه١ ويتم البحث في ورقه ٢ دون تنشيطها مع الشكر


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


الكلمات الدلالية
السلام ، عليكم ، استاذتنا ، الاعزاء ،


 










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

الساعة الآن 10:41 صباحا