بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
الاقسام
-
قسم تطبيقات و لغات مايكروسوفت
-
- 14,546
- مشاركات
-
- 323,623
- مشاركات
-
- البحث عن قيمة في جدول
- بواسطه الـعيدروس
-
- 165,888
- مشاركات
-
- 58
- مشاركات
-
- 14,869
- مشاركات
-
- لمدرسي الرياضيات: الحوسبة …
- بواسطه 1essa
-
- 5,671
- مشاركات
-
- 1,765
- مشاركات
-
- 242
- مشاركات
-
- فهرس تسجيلات دورة الفيزيو…
- بواسطه hih2
-
- 392
- مشاركات
-
- 969
- مشاركات
-
- 89
- مشاركات
-
- تحويل نموذج إلى صفحة ويب
- بواسطه خزاني
-
- 34
- مشاركات
-
- استفسار
- بواسطه محمود_الشريف
-
- 31
- مشاركات
-
- 6
- مشاركات
-
- 26
- مشاركات
-
- 556
- مشاركات
-
- 69
- مشاركات
-
- 7
- مشاركات
-
-
الغات و أدوات البرمجة الأخرى
-
- 532
- مشاركات
-
- 76
- مشاركات
-
- أكواد الدالفي
- بواسطه hadji27
-
- 40
- مشاركات
-
- 57
- مشاركات
-
-
أقسام الإدارة و إدارة المشاريع و تطبيقاتها
-
- 354
- مشاركات
-
- 25
- مشاركات
-
- 2,640
- مشاركات
-
- 124
- مشاركات
-
- 114
- مشاركات
-
- مهارات التخطيط
- بواسطه binshehab
-
-
البحث العلمي و علوم البيانات
-
- 21
- مشاركات
-
- 16
- مشاركات
-
- 12
- مشاركات
-
- تحليل البيانات
- بواسطه ahmed su
-
- 27
- مشاركات
-
- 5
- مشاركات
-
- 6
- مشاركات
-
- قسم برنامج SPSS
- بواسطه منصور القباطي
-
- 9
- مشاركات
-
-
القسم العام
-
- 1
- مشاركه
-
- نرحب بزوار الموقع
- بواسطه محمد طاهر
-
-
احصائيات المنتدى
-
اجمالي الموضوعات77,809
-
اجمالي المشاركات545,546
-
-
احصائيات الاعضاء
-
مشاركات
-
السلام عليكم بإمكانك إستخدام التالي بدلاً عن الاول بحيث يسهل فهم المعادلات المستخدمة Private Sub TextBox1_Change() Ali_S End Sub Private Sub TextBox2_Change() Ali_S End Sub Private Sub TextBox3_Change() Ali_S End Sub Sub Ali_S() If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then If TextBox1 = 3 Then TextBox4 = Se(Range("tabl1"), TextBox2, Range("tabl2"), TextBox3) End If End If End Sub Function Se(Tb1 As Range, V1 As Integer, Tb2 As Range, V2 As Integer) Dim M1, M2 On Error Resume Next With WorksheetFunction ' بحث بالعمود الاول للجدول1 ' لارجاع رقم الصف M1 = .Match(V1, Tb1.Columns(1), 0) ' بحث الجدول2 لارجاع رقم العمود M2 = .Match(V2, Tb2, 0) ' دالة Index ' لارجاع قيمة تقاطع صف مع عمود معين Se = .Index(Tb1, M1, M2) End With On Error GoTo 0 End Function
-
-
ماشاء الله تبارك الله نجح التعديل , الله يوفقك ويسعدك شكرا يا دكتور الف الف شكرا جزاك الله كل الخير -
بواسطه بن علية حاجي · قام بنشر
السلام عليكم في هاتين الخليتين (ذكور - إناث) أبدل الجزئية 1 - بـ 3 - مثل ما فعلت في المرفق... بن علية حاجي 123.xls -
شكرا العيدروس الله يعافيك هذا المطلوب تمنيت اذا تستطيع شرح الكود وشكرا مره اخرى لك
-
-
أحدث الموضوعات
-
-
اعلي المشاركون تقييماً
-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
-
اعلي التحميلات من مكتبة الموقع
-
-
مدونات فرق الموقع
-
-
المتواجدين الان (اضغط هنا للقائمه الكامله)
