اذهب الي المحتوي
أوفيسنا

الرائد77

الخبراء
  • Content Count

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

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

  • Days Won

    2

الرائد77 last won the day on يونيو 18

الرائد77 had the most liked content!

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

255 Excellent

4 متابعين

عن العضو الرائد77

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

  • Gender (Ar)
    ذكر
  • Job Title
    مدير مركزي
  • البلد
    الجزائر
  • الإهتمامات
    اكسل . اللغات . التسيير الإداري

اخر الزوار

359 زياره للملف الشخصي
  1. تفضل بالمعادلات. و الاعمدة المساعدة . لا تقم بايي تتغيير على المعادلات خاصة على العمود H احصائيات حسب السن و الجنس. قوائم حسب السن و الجنس. لاحظ الصور قوائم السن.xlsx
  2. غير الى عربية لبلد آخر . و اعد تشغيل الجهاز . عند تصدير الملف . فتحته بالاوتلوك . تظهر عادي غير مشفرة
  3. الملف يعمل عادي.قمت بتجريب ملفك بدون تغيير . الاسماء تصدر بالعربية عادي. المشكل عندك في اعداادات اللغة. ادهب الى لوحة التحكم و اعدادات اللغة .كما في الصوورة و أعد تشغيل الجهاز
  4. بارك الله فيك استاذنا سليم حاصبيا. عمل رائع و ممتاز .جزاك الله خيرا
  5. هل قمت بفتح outlook!!! و تسجيل الدخول؟؟ بعد تسجيل الدخول قم بتفعيل signature على الاوتلوك. الكود ييقوم باظهار signature الافتراضي على الاوتلوك المشكل عندك حبيبي
  6. تفضل. اللانتقال التلقائي بمجرد الانتهاء من الرقم الرابع أو غير هدا السطر في الملف الأول من 6 الى 4 و يعمل 100/100 If TextBox1.TextLength = 4 Then OK UserForm TextBox MaxLength.xls
  7. =IF(D4>=3000;D4*0.2;IF(D4>=250001;D4*0.22;IF(D4>=500001;D4*0.17;""))) Book18.xlsx
  8. تفضل Private Sub CommandButton6_Click() Select Case ComboBox1.Value Case "بحث في الاسماء" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("a2:a" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 2).Value ListBox1.List(j, 2) = Cells(C.Row, 3).Value j = j + 1 End If Next C Case "بحث في الرقم القومي" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("c2:c" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 3).Value j = j + 1 End If Next C Case "بحث في تاريخ الميلاد" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("b2:b" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 2).Value j = j + 1 End If Next C End Select End Sub 1- 2- 3- project.xlsm
  9. تفضل Private Sub UserForm_Initialize() Dim rMonth As Long For rMonth = 1 To 12 Me.ComboBox1.AddItem Format(DateSerial(2020, rMonth, 1), "MMMM") Next rMonth End Sub monnth.xlsm
×
×
  • اضف...