شرح كلمة واحدة في كود البحث

[nash60]

بسم الله الرحمن الرحيم

 

السلام عليكم ورحمة الله وبركاته :

 

احواني هذا المثال لاحد الاخوة من هذا المنتدى وحاولت ان اعرف كيف عمل مدى ال DADA وما قدرت يا ريت لو حد يفعمن واجره على الله

 

 والسلام عليكم ورحمة الله وبركاته

DADA.rar

[الصـقر]

اخى الكريم

المقصود ب DADA هو المعلومات اللى بالست بوكس

واللست بوكس ياتى بالمعلومات من اى تغيير على TextBox4 اللى هو البحث بمجرد كتابة حرف فى TextBox4 اللى هو البحث يتم جلب كل المعلومات من الجدول المطابقه للبحث المعلومات اللى تم جلبها دى بقى اسمها DADA يتم تعريفها بهذا الاسم ودى الجزئية اللى بالكود الخاصه بجلب البيانات الى الست بوكس ثم تعريف هذه البيانات باسم DADA

Set AL_2 = Sheets("ورقة1")
With AL_2
LastRow = .Cells(.Rows.Count, "b").End(xlUp).Row
Set q = .Range("b3:b" & LastRow).Find(M)
If Not q Is Nothing Then
F = q.Address
Do
If Application.WorksheetFunction.Search(M, q, 1) = 1 Then
ListBox1.AddItem q.Value
ListBox1.List(V, 1) = q.Offset(0, -1).Value
ListBox1.List(V, 2) = q.Offset(0, 1).Value
ListBox1.List(V, 3) = q.Offset(0, 2).Value
ListBox1.List(V, 4) = q.Address
V = V + 1
End If
Set q = .Range("b3:b" & LastRow).FindNext(q)
Loop While Not q Is Nothing And q.Address <> F
End If
End With

ودى الجزئية الخاصه بتعريف DaDA

DADA = ListBox1.List(ListBox1.ListIndex, 4)
Set MYSH = Sheets("ورقة1")
With MYSH
.Application.Range(DADA).Activate
.Range(DADA).Value = TextBox2.Text
'.Range(DADA).Offset(0, -1).Value = TextBox1.Value
.Range(DADA).Offset(0, 1).Value = TextBox3.Value
End With

اتمنى ان اكون وفقت بالشرح

تقبل تحياتى

[nash60]

شكرا لك اخي الكريم على سرعة ردك وانا طمعان في كرمك  بقى سؤال لو سمحت وهو كيف بقدر اغير عدد الاعمدة الظاهرة في الليست بوكس من 3 الى 7 اعمدة مثلا

[الصـقر]

أخى الكريم

انظر الصورة

غير رقم 3 الى الى عدد اعمده انتى عايزها اولا افتح الفورم اقف على الست بوكس  ثم من الخصائص غير 3 الى 7 او اى رقم 

اتمنى ان اكون وفقت بالشرح 

تقبل تحياتى

[nash60]

شكرا لك اخي الكريم وبارك الله في عمرك ومالك واهلك ان شاء الله تعالى

[الجموعي]

شكرا لك اخي الكريم على سرعة ردك وانا طمعان في كرمك  بقى سؤال لو سمحت وهو كيف بقدر اغير عدد الاعمدة الظاهرة في الليست بوكس من 3 الى 7 اعمدة مثلا

 

تفضل اخي

 

[الجموعي]

أخى الكريم

انظر الصورة

غير رقم 3 الى الى عدد اعمده انتى عايزها اولا افتح الفورم اقف على الست بوكس  ثم من الخصائص غير 3 الى 7 او اى رقم 

اتمنى ان اكون وفقت بالشرح 

تقبل تحياتى

معذرة مني أخي الكريم لم أنتبه لردك

شكرا وبارك الله فيك

[nash60]

اشكر الجميع على التفاعل وان شاء الله تعم الفائدة على من لا يعلم امثالي واعذروني لاني اعمل على هذا الفورم واحاول ان استخدمه مع برنامج وواجهت مشكلة اتجاه الليست بوكس من اليسار الى اليمين واريدها من اليمين الى اليسار اللهم اجعلنا جميعا من اهل اليمين

[الجموعي]

اشكر الجميع على التفاعل وان شاء الله تعم الفائدة على من لا يعلم امثالي واعذروني لاني اعمل على هذا الفورم واحاول ان استخدمه مع برنامج وواجهت مشكلة اتجاه الليست بوكس من اليسار الى اليمين واريدها من اليمين الى اليسار اللهم اجعلنا جميعا من اهل اليمين

في خصائص الفورم

الخاصية

RightToLeft

غير قيمتها

True

او عن طريق الكود

 في حدث

UserForm_Initialize

Private Sub UserForm_Initialize()
With UserForm2
.RightToLeft = True
End With
End Sub

او كود مختصر

Private Sub UserForm_Initialize()
Me.RightToLeft = True
End Sub

[nash60]

شكرا لك اخي الكريم مع ان بحثت عنها في خصائص الفورم لكني لم اراها اكرر شكري

[الجموعي]

شكرا لك اخي الكريم مع ان بحثت عنها في خصائص الفورم لكني لم اراها اكرر شكري

شاهد الصورة