abdellahgh قام بنشر أبريل 4, 2019 مشاركة قام بنشر أبريل 4, 2019 السلام عليكم إخواني الأعزاء عندي ملف بحث بطيئ جذا هل من مساعذة جزاكم الله خيرا الملف مرفق وشكرا بحث في جميع الشيتات أوفيسنا 2.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 4, 2019 مشاركة قام بنشر أبريل 4, 2019 مع أني لا أطيق اليورز فورم ولا أحب التعامل معه اليك هذا الكود أسرع بكثير 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 1 رابط هذا التعليق شارك 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.