اذهب الي المحتوي
أوفيسنا

ما المقصود بــــ   Lab.Caption = .Cells(ii, 3).Row


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

الردود الموصى بها

ما المقصود بالمتغير     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

 

رابط هذا التعليق
شارك

  • أفضل إجابة

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

ربما Lab  يرمز الى  Label

و  Lab.Caption يقصد بها ان العنوان الذى سوف يظهر على Label يكون هو  النص او القيمة المكتوبة فى الصف ii و العمود 3

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information