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

طارق نادر

03 عضو مميز
  • Content Count

    281
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

8 Neutral

1 متابع

عن العضو طارق نادر

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم
  • البلد
    الاردن

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. ارفق الملف مرة اخرى وشكرا لتعاونكم رصد العقوبات طلاب الثانوية العامة.xlsm
  2. السلام عليكم .. ارفق ملف اريد في حال وضعت تاريخ من القائمة المنسدلة يتعارض مع تاريخ الجهاز ان تعطيني البرمجية تنبيه في ذلك واريد ايضا اذا تكرمتم تفيعيل زر التعديل لصفحة مخزن وشكرا لتعاونكم الرقم السري هو tareq972708 رصد العقوبات طلاب الثانوية العامة.rar
  3. السلام عليكم ارفق ملف فيه اسماء مدارس في عامود (A) ويقابله ارقام المدارس في العامود(B) ...اريد اذا تكرمتم عندما اقوم بنسخ اي رقم مدرسة في اي خلية في عامود (G) يظهر تلقائيا اسم المدرسة في الخلية المقابة في عامود (F)....مع الشكر الجزيل schools.xlsx
  4. السلام عليكم ارجو المعذرة بداية عن خروجي عن قوانين المنتدى الكريم...ولكن رغبتي في الاطمئنان عن احوال عضو المنتدى الكريم ابن مصر الذي له الفضل الكبير في تعليمي امور كثيرة عن البرمجة ....لطفا لكل الاعضاء الكرام من لديه اخبار عن ابن مصر ان يطمئنني عليه ...ولكم الشكر الجزيل...
  5. احتمال في مشكلة في الانترنت...اذا كان هناك طابعة متصلة على الكمبيوتر الخاص بك عن طريق الانترنت...
  6. اذا كان على سطح المكتب اذهب الى كنترول بنل واعمل ريكافيري وان شاالله ستحل..
  7. ملف الاكسيل اين كان عند الحفظ هل كان على سطح المكتب...
  8. السلام عليكم اريد تعديل على زر البحث في الفورم 2 بحيث يسترجع البيانات التابعة (ComboBox5) ( ComboBox4) ComboBox3) الموجودة في صفحة اسمها (مخزن) الرقم اسري tareq972708 علما ان هذا الكود يبحث في صفحتين . Private Sub CommandButton1_Click() Dim Arr As Variant Dim i As Integer, j As Long, LastR As Long Arr = Array("ÇáÈíÇäÇÊ", "ãÎÒä") For j = LBound(Arr) To UBound(Arr) LastRow = Sheets(Arr(j)).Cells(Rows.Count, "B").End(xlUp).Row + 1 For i = 2 To 11 UserForm1.ComboBox1.Clear For T = 2 To LastRow If OptionButton1.Value = True Then If TextBox1.Text = Mid(Sheets(Arr(j)).Cells(T, 2).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem Sheets(Arr(j)).Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = Sheets(Arr(j)).Cells(T, i).Value UserForm1.CommandButton5.Enabled = True Unload Me End If Else If OptionButton2.Value = True Then If TextBox1.Text = Mid(Sheets(Arr(j)).Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem Sheets(Arr(j)).Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = Sheets(Arr(j)).Cells(T, i).Value UserForm1.CommandButton4.Enabled = True UserForm1.CommandButton5.Enabled = True Unload Me End If End If End If Next Next 'UserForm1.ComboBox1.ListIndex = 0 Next If UserForm1.TextBox2.Text = "" Then MsgBox "åÐÇ ÇáØÇáÈ ÛíÑ ãæÌæÏ", vbInformation + vbMsgBoxRight, "äÊíÌÉ ÇáÈÍË" UserForm1.CommandButton3.Enabled = False End Sub رصد العقوبات طلاب الثانوية العامة.rar
×
×
  • اضف...