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

ابو اسامة العينبوسي

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

    2,336
  • تاريخ الانضمام

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

  • Days Won

    1

كل منشورات العضو ابو اسامة العينبوسي

  1. السلام عليكم من بيانات>التحقق من الصحة>قائمه> اختر المدى الذى ستاخذ منها القائمه البيانات
  2. السلام عليكم لم افهم طلبك
  3. السلام عليكم عدل المعادله الى الاتى Me.Cells(Target.Row, 3) = Application.WorksheetFunction.SumIf(Range("f2:f600"), Cells(Target.Row, 1), Range("g2:g600")) جربتها و عملت لكن من غير باقي اسطر الكود
  4. السلام عليكم اخى... و انت في وضع التصميم >كبسه باليمين على combobox>خصائص> انتق خيار Alphabatic> من Font اختر حجم الخط الذي تريد و السلام
  5. السلام عليكم هذا اخى الكريم يقوم باختيار اول خلية فارغه في العمود A الذى يحوي بيانات (من اسفل لاعلى) Range("a1").Cells(65000, 1).End(xlup).Offset(1, 0).Select استخدمت داله offset لاختيار الخليه التى تقع اسفل اخر خليه غير فارغه من العمود A فالرقم 1 من offset يمثل عدد الصفوف التى تبعدها الخليه المراد اختيارها و الصفر يمثل عدد الاعمده التى تبعدها الخليه المراد اختيارها (بمعنى ان القيمتين المرافقتين ل offset تمثلان X,Y كانهما محور (س,ص))
  6. السلام عليكم من Tools<References عطل مكتبات ال Missing References
  7. السلام عليكم ممكن تعطيل خيار ال missing refrences من محرر البيسك و الله اعلم
  8. السلام عليكم الاخوة الادارة المحترمين استخدم internet explorer 8 beta لكن اجد مشكله في التصفح خاصة عند الرد على المشاركات حيث لا يظهر المربع الخاص بادراج المرفقات
  9. السلام عليكم ________________3.rar
  10. السلام عليكم ________________.rar
  11. Sub Test() Dim Sh As Worksheet Dim Rng As Range Dim i As Integer Dim x As Variant Dim Msg As String Dim F As Integer Set Sh = Worksheets(1) With Sh Set Rng = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) End With F = Application.InputBox("enter the start of series") For i = F To Cells(65350, 1).End(xlUp).Row On Error Resume Next x = WorksheetFunction.Match(i, Rng, False) If Err <> 0 Then Err.Clear Msg = Msg & vbCrLf & i End If On Error GoTo 0 Next i If Msg = "" Then Msg = "no missing numbers " Else Msg = " :missing numbers is " & Msg End If MsgBox Msg End Sub
  12. السلام عليكم لو سمح لي الاخوه باضافه بسيطه ممكن استخدام دوال التفقيط للترقيم مع الداله التى استخدمها الاخوه (دون الحاجه للكتابه يدويا) 2ay________________.rar
  13. السلام عليكم نعم اخى صاحب هذا الموقع من محترفى برمجة للاوفيس https://mvp.support.microsoft.com/profile/Ron استفدت من اكواده في عمل نسخه احتياطيه مضغوطه كل مده محدده شكرا لك
  14. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim cell As Range Sheets("a1").Rows.EntireRow.Interior.ColorIndex = xlNone Sheets("a1").Rows.EntireRow.Hidden = False If Target.Column <> 2 Then Exit Sub For Each cell In Sheets("a1").Range("a2:a200") If cell.Value = ActiveCell.Value Then cell.EntireRow.Interior.ColorIndex = 6 Else cell.EntireRow.Hidden = True Cells(1, 1).EntireRow.Hidden = False End If Next cell End Sub
  15. السلام عليكم ممكن نضيف للكود اخفاء الاسطر الغير متعلقه بالعميل المحدد link_Example2.rar
  16. السلام عليكم ليس لدى طابعة لكن جرب هذا Sub print_colored_rows() For i = 1 To 20 If Cells(i, 1).Interior.ColorIndex <> xlNone Then Range(i, 1).EntireRow.PrintOut End If Next End Sub
  17. السلام عليكم تستخدم لتسريع الكود حيث توقف عملية تحديث الشاشة(وميض الشاشة)اثناء تنفيذ الكود
  18. السلام عليكم داله تستحق التقدير كما انت ايضا
  19. السلام عليكم حل الطلب الثانى لم اعرف حلا للاول __________2.rar
  20. السلام عليكم هل هذا المقصود Book1.rar
  21. السلام عليكم عدله الى ملف اكسل 2003
×
×
  • اضف...

Important Information