شرح هذا الكود

[elsedik]

برجاء شرح هذا الكود لاحد اساتذة المنتدى

Private Sub ListBox1_Click()
Sheets("ورقة1").Select
Dim DADA As String
Dim MySh As Worksheet
'On Error GoTo 1
DADA = ListBox1.List(ListBox1.ListIndex, 9)
Set MySh = Sheets("ورقة1")
With MySh
 .Application.Range(DADA).Activate
   ComboBox3.Text = .Range(DADA).Value
    ComboBox2.Text = .Range(DADA).Offset(0, 1).Value
    TextBox4.Text = .Range(DADA).Offset(0, 2).Value
    TextBox5.Text = .Range(DADA).Offset(0, 3).Value
    TextBox6.Text = .Range(DADA).Offset(0, 4).Value
    TextBox7.Text = .Range(DADA).Offset(0, 5).Value
    ComboBox1.Text = .Range(DADA).Offset(0, 6).Value
    End With
 End Sub

[الـعيدروس]

السلام عليكم

Private Sub ListBox1_Click()
''*********************
'' الذهاب الى الورقة المسماه ورقة1
Sheets("ورقة1").Select
'' متغير  لحفظ قيمة نصيه
Dim DADA As String
''MySh متغير لورقة في المصنف للتعبير عن الورقة في الكود بمسمى
Dim MySh As Worksheet
'On Error GoTo 1
'' اخذ القيمة من العمود الـ 9 في الليست بوكس والتي هيا عنوان الخليه من السطر المحدد في الليست بوكس
DADA = ListBox1.List(ListBox1.ListIndex, 9)
''كتعبير عن الورقة المسماه "ورقة1" MySh تعين المتغير
Set MySh = Sheets("ورقة1")
''With  ادرج في اطار Myshلتعدداستخدام متغير
'' للتعبير عن المتغير بأكثر من سطر دون ذكر المتغير بكل سطر
'' . مع التعبير بعلامة
With MySh
''للذهاب للخليه المعنيه في البحث Range في تعبير DADA  ادراج متغير
'' Range.address حفظ فيه عنوان الخليه DADA اعتباراً ان متغير
 .Application.Range(DADA).Activate
''ComboBox3 وحقظه في  DADA اخذ قيمة الخليه من متغير
   ComboBox3.Text = .Range(DADA).Value
''ComboBox2 مع ازاحه بقدر عمود وحقظه في DADA اخذ قيمة الخليه من متغير
''B1 مع ازاحة عمود ستصبح الخليه المعنيه  A1 اي اذا فرضنا الخليه هيا
    ComboBox2.Text = .Range(DADA).Offset(0, 1).Value
''TextBox4 مع ازاحه بقدر عمودين وحقظه في DADA اخذ قيمة الخليه من متغير
    TextBox4.Text = .Range(DADA).Offset(0, 2).Value
''TextBox5 مع ازاحه بقدر 3 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير
    TextBox5.Text = .Range(DADA).Offset(0, 3).Value
''TextBox6 مع ازاحه بقدر 4 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير
    TextBox6.Text = .Range(DADA).Offset(0, 4).Value
''TextBox7 مع ازاحه بقدر 5 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير
    TextBox7.Text = .Range(DADA).Offset(0, 5).Value
''ComboBox1 مع ازاحه بقدر 6 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير
    ComboBox1.Text = .Range(DADA).Offset(0, 6).Value
''   Myshالخروج من اطار متغير
End With
''*********************
End Sub

 

[elsedik]

جزاك الله كل خير 

 

لكن يظهر لى هذا الخطاء عند تنفيذ الكود 

المطلوب تعديل بيانات السطر التى يتم اختيارها من الليست بوكس 

مرفق ملف 

تعديل وحذف بيانات .rar

[الـعيدروس]

راجع كود "TextBox7_Change"

لايوجد اي تعيين للعمود 9 في الليست بوكس

لذا قم بإدراج السطر التالي ليأخذ عنوان خلية نتيجة البحث

    ويدرجها في العمود 9 لليست بوكس

                    ListBox9.List(V, 9) = q.Address

    الصقه قبل السطر V = V  +1

   ثم الغي تحديد نوع القيم في كود "ListBox9_Click"

   مثال ComboBox3.Text حطيته يستقبل نص

   .Range(DADA).Value  ويساوي قيمة ؟

Private Sub ListBox9_Click()
Sheets("sheet2").Select
Dim DADA As String
Dim MySh As Worksheet
'On Error GoTo 1
DADA = ListBox9.List(ListBox9.ListIndex, 9)
Set MySh = Sheets("sheet2")
With MySh
 .Application.Range(DADA).Activate
   ComboBox3.Text = .Range(DADA).Value
    ComboBox2.Text = .Range(DADA).Offset(0, 1).Value
    TextBox4.Text = .Range(DADA).Offset(0, 2).Value
    TextBox5.Text = .Range(DADA).Offset(0, 3).Value
    TextBox6.Text = .Range(DADA).Offset(0, 4).Value
    TextBox7.Text = .Range(DADA).Offset(0, 5).Value
    ComboBox1.Text = .Range(DADA).Offset(0, 6).Value
    End With

End Sub

لذا ليس ضروري تحديد قيمة اتركه بدون

وفعل سطر الخروج من الكود في حالة حدوث خطاء 'On Error GoTo 1

وهذا الكود حدث ListBox9_Click بعد تعديل الاخطاء المذكوره اعلاه

 

Private Sub ListBox9_Click()
Sheets("sheet2").Select
Dim DADA As String
Dim MySh As Worksheet
On Error GoTo 1
DADA = ListBox9.List(ListBox9.ListIndex, 9)
Set MySh = Sheets("sheet2")
With MySh
 .Application.Range(DADA).Activate
    ComboBox3 = .Range(DADA)
    ComboBox2 = .Range(DADA).Offset(0, 1)
    TextBox4 = .Range(DADA).Offset(0, 2)
    TextBox5 = .Range(DADA).Offset(0, 3)
    TextBox6 = .Range(DADA).Offset(0, 4)
    TextBox7 = .Range(DADA).Offset(0, 5)
    ComboBox1 = .Range(DADA).Offset(0, 6)
End With
1 End Sub

 

 

[elsedik]

جزاك الله كل خير 

ممكن ادراج الملف بعد التعديل 

[الـعيدروس]

السلام عليكم

 رأيت من طرحك للموضوع تريد ان تتعلم

   فلم ارفق الملف وتركت التعديل عليك 

   تفضل المرفق 

     

تعديل وحذف بيانات _11.rar