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

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

قام بنشر

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information