طارق نادر قام بنشر فبراير 4, 2019 مشاركة قام بنشر فبراير 4, 2019 السلام عليكم اريد تعديل على زر البحث في الفورم 2 بحيث يسترجع البيانات التابعة (ComboBox5) ( ComboBox4) ComboBox3) الموجودة في صفحة اسمها (مخزن) الرقم اسري tareq972708 علما ان هذا الكود يبحث في صفحتين . Private Sub CommandButton1_Click() Dim Arr As Variant Dim i As Integer, j As Long, LastR As Long Arr = Array("ÇáÈíÇäÇÊ", "ãÎÒä") For j = LBound(Arr) To UBound(Arr) LastRow = Sheets(Arr(j)).Cells(Rows.Count, "B").End(xlUp).Row + 1 For i = 2 To 11 UserForm1.ComboBox1.Clear For T = 2 To LastRow If OptionButton1.Value = True Then If TextBox1.Text = Mid(Sheets(Arr(j)).Cells(T, 2).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem Sheets(Arr(j)).Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = Sheets(Arr(j)).Cells(T, i).Value UserForm1.CommandButton5.Enabled = True Unload Me End If Else If OptionButton2.Value = True Then If TextBox1.Text = Mid(Sheets(Arr(j)).Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem Sheets(Arr(j)).Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = Sheets(Arr(j)).Cells(T, i).Value UserForm1.CommandButton4.Enabled = True UserForm1.CommandButton5.Enabled = True Unload Me End If End If End If Next Next 'UserForm1.ComboBox1.ListIndex = 0 Next If UserForm1.TextBox2.Text = "" Then MsgBox "åÐÇ ÇáØÇáÈ ÛíÑ ãæÌæÏ", vbInformation + vbMsgBoxRight, "äÊíÌÉ ÇáÈÍË" UserForm1.CommandButton3.Enabled = False End Sub رصد العقوبات طلاب الثانوية العامة.rar رابط هذا التعليق شارك More sharing options...
طارق نادر قام بنشر فبراير 9, 2019 الكاتب مشاركة قام بنشر فبراير 9, 2019 للرفع.. رابط هذا التعليق شارك 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.