اذهب الي المحتوي

الـعيدروس

المشرفين السابقين
  • Content Count

    3,235
  • تاريخ الانضمام

  • Days Won

    19

الـعيدروس last won the day on أكتوبر 19

الـعيدروس had the most liked content!

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

639 Excellent

عن العضو الـعيدروس

  • الإسم الفعلي
    مشرف سابق
  • تاريخ الميلاد 10 أبر, 1987

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

  • Gender (Ar)
    ذكر
  • Job Title
    عمل خاص
  • بلد الإقامة
    اليمن
  • الإهتمامات
    استغفرك ربي واتوب اليك

اخر الزوار

3,825 زياره للملف الشخصي
  1. اظن في هذه الحالة تحويل نتيجة حالة الشرط "الشرط المطلوب تحققه" اذا True يرجع القيمة 1 بدلا عن True واذا False يرجع القيمة 0 بدلا عن False واذا لم اصيب اتمنى اساتذه المعادلات التصويب
  2. السلام عليكم جرب المرفق على الرابط التالي اكيد مع حجم البيانات الكبير بيكون بطيئ ملاحظة بسيطة على ملفك تنسيق الشيت كامل يسبب بطئ في الملف يفضل عمل بوردر فقط لمدى البيانات وليس للشيت كامل 2020_A.xlsm
  3. ارى ان يتم اضافة عمود مساعد في صفحة البيانات لتكويد الفواتير مثلا مشتريات S ومبيعات M واضافة ComboBox في الفورم يضاف له فاتورة مشتريات و فاتورة مبيعات في حال الاختيار فاتورة مشتريات يرحل في العمود المساعد S وفي حال الاختيار مبيعات يرحل في العمود المساعد S اذا لديك اقتراح اخر ضيفه ليتم العمل على ملفك
  4. السلام عليكم دالة معرفة امل ان تفيدك في ملفك شاهدي المرفق بدل اجازه.xlsm
  5. انقل الفورم للملف الجديد وغير المعطيات في بداية الكود بإمكانك البحث بالمنتدى طريقة نقل الفورم واستدعاء الفورم
  6. السلام عليكم انشأت اوراق لأشهر وهمي يشترط اذا ضفت اوراق اخرى لاشهر تسميها بنفس الطريقة وعمود ارقام الايام في Sheet1 تسجل التاريخ لليوم وليس ارقام الايام كود بسيط اضافة الى حلول الاساتذه الافاضل تفضل المرفق ترحيل بيانات_1.xls
  7. السلام عليكم تفضل Private Sub CommandButton1_Click() Dim c, ii, i Dim Tx As Control ii = 0 For i = 1 To 4 If TypeOf Me.Controls(i) Is MSForms.TextBox Then c = Me.Controls(i) = "": If c Then ii = ii + 1 End If Next If ii Then MsgBox ("لا يمكن الارسال بعض الحقول فارغه ") Else MsgBox ("تم الاسال ") End Sub
  8. بالامكان جلب اي جزء من النموذج لصفحة تحدد للطباعة او استدعاء بيانات شخص معين ويطبع بياناته النموذج الاول والثاني
  9. وعليكم السلام ليش مايكون ادخال البيانات في صفحة فقط
  10. السلام عليكم حدد المدى اخي مايحتاج تحط مسمى لكل ورقة For Each ws In ThisWorkbook.Worksheets If ws.Name = Me.ComboBox3.Value Then With ws .Select Me.ComboBox1.RowSource = .Range("A6:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Address '"name1" ' A Me.ComboBox2.RowSource = .Range("B6:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Address '"data1" ' B End With End If Next
  11. السلام عليكم استخدام عمود وسيط ممكن هذا التعديل مثل الملف Sub trheel() Dim Cl As Range, i As Integer For i = 2 To 41 For Each Cl In Range("G3:G" & [G10000].End(xlUp).Row) If Not Ch(Cl) Then If Cl.Value = Sheets(i).Name Then Cl.Offset(0, -6).Resize(1, 7).Copy Sheets(i).Range("A" & Sheets(i).[A10000].End(xlUp).Row + 1) Cells(Cl.Row, "XFD") = "OK" End If End If Next Next End Sub Private Function Ch(Cl As Range) As Boolean If Cells(Cl.Row, "XFD") = "OK" Then Ch = True End Function
  12. يشعر المستخدم تعريف المتغيرات اذا لديك متغيرات لم يتم تعريفها بـ Dim
  13. السلام عليكم بالامكان التحقق من القيم اذا رحلت سابقاً لايرحلها كالتالي Sub trheel() Dim Cl As Range, i As Integer For i = 2 To 41 For Each Cl In Range("G3:G" & [G10000].End(xlUp).Row) If Not Ch(Cl, i) Then If Cl.Value = Sheets(i).Name Then Cl.Offset(0, -6).Resize(1, 7).Copy Sheets(i).Range("A" & Sheets(i).[A10000].End(xlUp).Row + 1) End If End If Next Next End Sub Private Function Ch(Cl As Range, i) As Boolean If Application.CountIfs(Sheets(i).Range("A3:A" & 1500), _ Range("A" & Cl.Row), Sheets(i).Range("B3:B" & 1500), _ Range("B" & Cl.Row), Sheets(i).Range("C3:C" & 1500), Range("C" & Cl.Row), _ Sheets(i).Range("F3:F" & 1500), Range("F" & Cl.Row)) = 1 Then Ch = True End Function
×
×
  • اضف...