مجاهد2013 قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 السلام عليكم إخوتي : عندي في الملف المرفق فورم بحث غيرت 04 تكست بوكس بأربعة كومبوبوكس فتعطل الفورم عن العمل ممكن تعديل الكود و شكرا مسبقا 2- فورم بحث .xlsm رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 السلام عليكم ورحمة الله وضعت لك تعديلا على الكود في موضع آخر وأعيده هنا للفائدة... أرجو أن يفي بالغرض... بن علية حاجي فورم بحث .rar 2 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 استاذى الكريم شكرا لك لكن مازال هناك رسائل خطأ تظهر رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 السلام عليكم ورحمة الله ماذا فعلت حتى ظهرت هذه الرسالة؟ لأن الرسالة تقول إن كائنا معينا غير موجود... بن علية حاجي رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 شكرا لك اخى الكريم فقط عندما اقوم بالبحث فى تكست بوكس البحث رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 السلام عليكم ورحمة الله معذرة على هذا الخطأ لأني قمت بالتعديل السابق على كود واحد من الأكواد الخاصة بالفورم فقط... جرب هذه المرة الملف المرفق وأبلغني بأي خلل آخر ليتم تصحيحه... بن علية حاجي فورم بحث .rar 1 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 وعليكم السلام استاذى الكريم كده تمام يعمل بكفاءة بارك الله فيك وجعله فى ميزان حسناتك ورحم والديك ووسع الله فى رزقك رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر يناير 3, 2019 الكاتب مشاركة قام بنشر يناير 3, 2019 أستاذ علي لم أتمكن من فتح الملف هل لنوع الاوفيس دخل لأاني أعمل بالاوفيس 2007 و شكرا رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 3, 2019 مشاركة قام بنشر يناير 3, 2019 يمكن هذا ولكن بعد اذن طبعا استاذنا الجليل بن علية يمكنك لصق هذه الأكواد بدل التى لديك Private Sub CommandButton1_Click() For i = 1 To 11 k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Cells(r, k) = Controls("TextBox" & k).Text Next i For j = 1 To 4 k = Choose(j, 5, 6, 7, 10) Cells(r, k) = Controls("ComboBox" & j).Text Next j ListBox1.List(i, 0) = TextBox2.Text End Sub Private Sub CommandButton2_Click() lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row For i = 1 To 11 k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Sheets(1).Cells(lrw + 1, k) = Controls("TextBox" & k).Text Next i For j = 1 To 4 k = Choose(j, 5, 6, 7, 10) Sheets(1).Cells(lrw + 1, k) = Controls("ComboBox" & j).Text Next j For m = 1 To 11 Controls("TextBox" & Choose(m, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next m For n = 1 To 4 Controls("Combobox" & n).Text = "" Next n ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1 TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1 TextBox2.SetFocus End Sub Private Sub CommandButton3_Click() If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then Sheets(1).Cells(r, 1).EntireRow.Delete For Z = 1 To 15 Sheets(1).Cells(r, Z).Delete Shift:=xlUp Next Z Sheets(1).Cells(r, 1).Resize(r, 15).Delete Shift:=xlUp MsgBox "تمت عملية الحذف بنجاح" For X = 1 To 11 k = Choose(X, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Controls("Textbox" & k).Text = "" Next X For Y = 1 To 4 Controls("Combobox" & Y).Text = "" Next Y ListBox1.Clear UserForm_Activate TextBox16 = "" End If End Sub Private Sub CommandButton4_Click() End End Sub Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 11 k = Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Controls("TextBox" & k).Text = Cells(ListBox1.List(i, 1), k) Next j ComboBox1.Text = Cells(ListBox1.List(i, 1), 5): ComboBox2.Text = Cells(ListBox1.List(i, 1), 6): _ ComboBox3.Text = Cells(ListBox1.List(i, 1), 7): ComboBox4.Text = Cells(ListBox1.List(i, 1), 10) r = ListBox1.List(i, 1) Exit For End If Next i End Sub Private Sub TextBox14_Change() TextBox14.Value = Format(TextBox14.Value, "HH:MM") End Sub Private Sub TextBox15_Change() TextBox15.Value = Format(TextBox15.Value, "HH:MM") End Sub Private Sub TextBox16_Change() ListBox1.Clear For j = 1 To 11 Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next j For k = 1 To 4 Controls("Combobox" & k).Text = "" Next k If TextBox16 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each C In Range("B2:B" & ss) If C Like TextBox16.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(C.Row, 2).Value ListBox1.List(k, 1) = C.Row k = k + 1 End If Next C End Sub Private Sub TextBox12_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If StrComp(TextBox12.Value, "DD/MM/YYYY", vbTextCompare) = 0 Then TextBox12.Value = "" End If End Sub Private Sub TextBox13_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim dDate As Date dDate = DateSerial(Year(Date), Month(Date), Day(Date)) TextBox13.Value = Format(TextBox13.Value, "dd/mm/yyyy") dDate = TextBox13.Value End Sub Private Sub UserForm_Activate() For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ' ListBox1.List(i - 1, 0) = Cells(i, 2).Value ' ListBox1.List(i - 1, 1) = i Next i For j = 1 To 11 Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next j For k = 1 To 4 Controls("Combobox" & k).Text = "" Next k TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1 TextBox2.SetFocus End Sub 1 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر يناير 3, 2019 الكاتب مشاركة قام بنشر يناير 3, 2019 تمام أستاذ على محمد ألصقت الكود شغال مية مية ألف ألف شكر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان