أكاديمية الصقر للتدريب
FBConnect

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :محمد الخازمي
عدد النتائج (37) نتيجة
06-07-2019 10:51 صباحا
icon تسريع كود البحث | الكاتب :محمد الخازمي |المنتدى: اكسيل اسئله واجابات
 للرفع
03-07-2019 10:56 صباحا
icon تسريع كود البحث | الكاتب :محمد الخازمي |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil
أعتقد الموضوع يحتاج لمزيد من التفاصيل في الوصف


المقصود من التسريع "هو اذا اردت استدعاء الاسم الموجود في الصف رقم "65532  " يستغرق وقت طويا جدا ً لجلب بيانات هذا الاسم

المطلوب ان كان يوجد كود اسرع من هذا الكود ااو تعديله بارك الله فيكم

Private Sub ComboBox3_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

On Error Resume Next
III = 5
Do Until Sheet2.Cells(III, "c").Text = ""
    If Me.ComboBox3.Text = Sheet2.Cells(III, "c").Text Then
        Cells(III, "c").Activate
Me.TextBox1.Text = ActiveCell.Offset(0, -1).Text
Me.TextBox133.Text = ActiveCell.Offset(0, 0).Text
Me.TextBox132.Text = ActiveCell.Offset(0, 1).Text
Me.TextBox11.Text = ActiveCell.Offset(0, 2).Text
Me.ComboBox2.Text = ActiveCell.Offset(0, 3).Text
Me.TextBox3.Text = ActiveCell.Offset(0, 4).Text
Me.TextBox4.Text = ActiveCell.Offset(0, 5).Text
Me.TextBox7.Text = ActiveCell.Offset(0, 6).Text
Me.TextBox130.Text = ActiveCell.Offset(0, 7).Text
Me.TextBox131.Text = ActiveCell.Offset(0, 8).Text
Me.TextBox22.Text = ActiveCell.Offset(0, -2).Text


e.ComboBox22.Text = ActiveCell.Offset(0, -2).Text
Exit Sub
    End If
    III = III + 1
Loop
MsgBox ("الكود الذى ادخلته غير صحيح")
'Me.TextBox2.SetFocus

Me.TextBox1.Text = ""
'Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
'Me.TextBox5.Text = ""
'Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
'Me.TextBox8.Text = ""
'Me.TextBox9.Text = ""
'Me.TextBox10.Text = ""
Me.TextBox11.Text = ""
'Me.TextBox12.Text = ""
'Me.TextBox13.Text = ""
'Me.TextBox14.Text = ""
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub
21-03-2019 09:26 صباحا
icon هديتى 2019_برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه | الكاتب :محمد الخازمي |المنتدى: اكسيل مشاريع جاهزه
 ممتاز جدا
21-03-2019 09:14 صباحا
icon برنامج شامل لكل اوراق المدارس | الكاتب :محمد الخازمي |المنتدى: اكسيل مشاريع جاهزه
 ممتاز جدا
25-01-2019 09:52 مساء
icon شيت كنترول المرحلة الاعدادية 2019 ـ برنامج كنوز | الكاتب :محمد الخازمي |المنتدى: اكسيل مشاريع جاهزه
 شكراً لك
25-01-2019 09:44 مساء
icon هديتى 2019_برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه | الكاتب :محمد الخازمي |المنتدى: اكسيل مشاريع جاهزه
 شكراً لك
17-12-2018 09:51 مساء
icon برنامج حركة الخزينة- منقول من How To Exce | الكاتب :محمد الخازمي |المنتدى: اكسيل مشاريع جاهزه
 شكرا لك
09-11-2018 01:56 مساء
icon تموذج ترحيل وبحث وتعديل على البيانات | الكاتب :محمد الخازمي |المنتدى: اكسيل مشاريع جاهزه
 مزيد من التقدم
09-11-2018 01:53 مساء
icon عمل واجهة بطريقة خاصة وبدون Lienhypertexte | الكاتب :محمد الخازمي |المنتدى: اكسيل مشاريع جاهزه
 مزيد من التقدم
26-08-2018 03:56 مساء
icon شرط في تكسيت بوكس | الكاتب :محمد الخازمي |المنتدى: اكسيل اسئله واجابات
 شكراً تم التوصل لنفس الحل
25-08-2018 10:43 مساء
icon شرط في تكسيت بوكس | الكاتب :محمد الخازمي |المنتدى: اكسيل اسئله واجابات
 GQ8KbuFujqCLiBjيوجد خطاء غير معروف عند وضع رقم 45 في تكيست 1 ورقم 5 في تكيست 2 لايظهر رسالة بان القيمة التي في تيكست 1 اكبر

الغريب عند وضع رقم 4 مثلاً في تكيست 1 ورقم 1 في تكيست 1 يتم تطيق الكود ويعمل بشكل ممتاز ........... فما السبب
23-08-2018 11:44 مساء
icon شرط في تكسيت بوكس | الكاتب :محمد الخازمي |المنتدى: اكسيل اسئله واجابات
 السلام عليكم
شكراً

الصفحة 1 من 4 < 1 2 3 4 > الأخيرة »





الساعة الآن 11:44 مساء

أعلن هنا
أعلن هنا
أعلن هنا