اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب مساعدة في فورم بحث بطيئ جدا


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

مع أني لا أطيق اليورز فورم ولا أحب التعامل معه 

اليك هذا الكود أسرع بكثير 

Private Sub CommandButton1_Click()

Dim ws As Worksheet
Dim find_rg As Range
Dim Ro%, i%
For Each ws In ThisWorkbook.Worksheets
    Set find_rg = ws.Range("a5:a800").Find(TextBox1.Text)
    If Not find_rg Is Nothing Then
      Ro = find_rg.Row
       For i = 2 To 11
         ws.Cells(Ro, i) = Me.Controls("TextBox" & i).Value
       Next
    End If
  Next ws
  
  For i = 1 To 11
  Me.Controls("TextBox" & i) = vbNullString
    Next
  MsgBox "تم تعديل البيانات بنجاح"

End Sub

الملف

 

Saecch_By_User.xlsm

  • Like 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