nash60 قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته : احواني هذا المثال لاحد الاخوة من هذا المنتدى وحاولت ان اعرف كيف عمل مدى ال DADA وما قدرت يا ريت لو حد يفعمن واجره على الله والسلام عليكم ورحمة الله وبركاته DADA.rar رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 اخى الكريم المقصود ب 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 اتمنى ان اكون وفقت بالشرح تقبل تحياتى 2 رابط هذا التعليق شارك More sharing options...
nash60 قام بنشر ديسمبر 25, 2014 الكاتب مشاركة قام بنشر ديسمبر 25, 2014 شكرا لك اخي الكريم على سرعة ردك وانا طمعان في كرمك بقى سؤال لو سمحت وهو كيف بقدر اغير عدد الاعمدة الظاهرة في الليست بوكس من 3 الى 7 اعمدة مثلا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 أخى الكريم انظر الصورة غير رقم 3 الى الى عدد اعمده انتى عايزها اولا افتح الفورم اقف على الست بوكس ثم من الخصائص غير 3 الى 7 او اى رقم اتمنى ان اكون وفقت بالشرح تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
nash60 قام بنشر ديسمبر 25, 2014 الكاتب مشاركة قام بنشر ديسمبر 25, 2014 شكرا لك اخي الكريم وبارك الله في عمرك ومالك واهلك ان شاء الله تعالى 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 شكرا لك اخي الكريم على سرعة ردك وانا طمعان في كرمك بقى سؤال لو سمحت وهو كيف بقدر اغير عدد الاعمدة الظاهرة في الليست بوكس من 3 الى 7 اعمدة مثلا تفضل اخي 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 أخى الكريم انظر الصورة غير رقم 3 الى الى عدد اعمده انتى عايزها اولا افتح الفورم اقف على الست بوكس ثم من الخصائص غير 3 الى 7 او اى رقم اتمنى ان اكون وفقت بالشرح تقبل تحياتى معذرة مني أخي الكريم لم أنتبه لردك شكرا وبارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
nash60 قام بنشر ديسمبر 25, 2014 الكاتب مشاركة قام بنشر ديسمبر 25, 2014 اشكر الجميع على التفاعل وان شاء الله تعم الفائدة على من لا يعلم امثالي واعذروني لاني اعمل على هذا الفورم واحاول ان استخدمه مع برنامج وواجهت مشكلة اتجاه الليست بوكس من اليسار الى اليمين واريدها من اليمين الى اليسار اللهم اجعلنا جميعا من اهل اليمين رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 اشكر الجميع على التفاعل وان شاء الله تعم الفائدة على من لا يعلم امثالي واعذروني لاني اعمل على هذا الفورم واحاول ان استخدمه مع برنامج وواجهت مشكلة اتجاه الليست بوكس من اليسار الى اليمين واريدها من اليمين الى اليسار اللهم اجعلنا جميعا من اهل اليمين في خصائص الفورم الخاصية 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 2 رابط هذا التعليق شارك More sharing options...
nash60 قام بنشر ديسمبر 25, 2014 الكاتب مشاركة قام بنشر ديسمبر 25, 2014 شكرا لك اخي الكريم مع ان بحثت عنها في خصائص الفورم لكني لم اراها اكرر شكري رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر ديسمبر 25, 2014 مشاركة قام بنشر ديسمبر 25, 2014 شكرا لك اخي الكريم مع ان بحثت عنها في خصائص الفورم لكني لم اراها اكرر شكري شاهد الصورة 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.