فريدة العصر قام بنشر يوليو 23, 2020 مشاركة قام بنشر يوليو 23, 2020 ما المقصود بالمتغير Lab.Caption = .Cells(ii, 3).Row فى كود البحث للاستاذ / مجدى يونس حيث اننى عند تطبيقه يعطينى رسالة ( متغير غير معرف ) If Me.TextBox4.Value = "" Then Exit Sub Set Sh = Sheets("ورقة1") With Sh Me.TextBox1.Value = "": Me.TextBox2.Value = "": Me.TextBox3.Value = "" Last = .Range("A" & Rows.Count).End(xlUp).Row For ii = 1 To Last If LCase(CStr(.Cells(ii, 1).Value)) = LCase(CStr(TextBox4.Value)) Then ' TextBox1.Value = .Cells(ii, 1).Value TextBox2.Value = .Cells(ii, 2).Value TextBox3.Value = .Cells(ii, 3).Value Lab.Caption = .Cells(ii, 3).Row CommandButton3.Enabled = True: CommandButton2.Enabled = True: CommandButton1.Enabled = False End If Next ii End With If Me.TextBox1.Value = "" Then MsgBox "This Name Does Not Exist", vbExclamation, "Search" CommandButton3.Enabled = False: Lab.Caption = "": CommandButton2.Enabled = False: CommandButton1.Enabled = True End If End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر يوليو 23, 2020 أفضل إجابة مشاركة قام بنشر يوليو 23, 2020 السلام عليكم ورحمة الله ربما Lab يرمز الى Label و Lab.Caption يقصد بها ان العنوان الذى سوف يظهر على Label يكون هو النص او القيمة المكتوبة فى الصف ii و العمود 3 1 رابط هذا التعليق شارك More sharing options...
فريدة العصر قام بنشر يوليو 23, 2020 الكاتب مشاركة قام بنشر يوليو 23, 2020 شكرا استاذى / ابراهيم-الحداد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان