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

ابو عبدالبارى

الخبراء
  • Posts

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

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

  • Days Won

    4

كل منشورات العضو ابو عبدالبارى

  1. Sub abo_abary_from_to() Dim k As Long For i = 1 To 2 For k = Range("r" & i) To Range("t" & i) Worksheets("sheet" & k).PrintOut Next Next End Sub الأخ الكريمابو حمادة جرب المرفق التالى لعله يفى بالغرض ونسألكم الدعاء abo_abary_طباعة.rar
  2. الأخ الكريمalsaeed جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_تحميع الفواتير1.rar
  3. الأخ الكريمmahmoudslah اثراءاً للموضوع جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة.rar الأخ الكريمmahmoudslah اثراءاً للموضوع وللمرة الثانية جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة1.rar اثراءاً للموضوع وللمرة الثالثة جرب المرفق التالى بالأكواد لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة2.rar
  4. الأخ الكريمmahmoudslah السلام عليكم جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_فاتورة.rar
  5. الأخ الكريممحمد جابر محمد عبدالرحيم السلام عليكم مرحبا بك فى هذا الصرح تم التعديل على أحد ملفاتك جرب التعديل لعله يفى بالغرض ثم طبقة على باقى الملفات ونسألك الدعاء Private Sub abo_abary() k = Application.WorksheetFunction.Min(Sheets("ÇáÞæå").Range("f5:f1003")) last = Application.WorksheetFunction.Max(Sheets("ÇáÞæå").Range("f5:f1003")) For i = k To last Step 3 Range("a7") = i ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub http://www.mediafire.com/file/ws65ys3kt0omn1l/abo_abary_1الصـــف_الاول(3).rar
  6. الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلة يفى بالغرض نسألكم الدعاء abo_abary_معادلة بحث عن رقم السيارة الجديد والقديم.rar
  7. الأخ الكريم أبو حنف يمن التعديل على الكود المقدم من الأخ أبو حنــــين باضافة السطرين الأخيرين Sub iCaption() Dim C As control x = 1 For Each C In Me.Controls If TypeOf C Is MSForms.CommandButton Then C.Caption = Range("A" & x) x = x + 1 End If Next Sheets("filter").Range("$A$1:$C$38").AutoFilter Field:=1 Sheets("filter").Range("$A$1:$C$38").AutoFilter Field:=1, Criteria1:="<>" End Sub ثم يالضغط على اى commandbutton يتم استدعاء الأجراء الفرعى iCaption مثال عل ذلك Private Sub CommandButton1_Click() Call iCaption End Sub
  8. وائراءاً للموضوع هذه طريقة اخرى abo_abary_Book1.rar
  9. الأخ الكريمmohamedmomtaz السلام عليكم يرجى الطلاع على تعليمات المنتدى بتغيير الأسم الى اللعة العربية جرب المرفق التالى لعلة يفى بالغرض ونسألكم الدعاء abo_abary_شيت الرواتب تجريبي.rar
  10. الأخ الكريمقيس111 جرب المعادلة التالية وضعها فى الخلية E5 واسحبها لليمين والى الأسفل =IF($B5>COLUMN()-5;"x";"")
  11. الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك نسألكم الدعاء abo_abary_الرقم الجديد - الرقم القديم.rar
  12. الأخ الكريمالشيباني1 السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك ان شاء الله نسألكم الدعاء abo_abary_سند 1صرف وقيض.rar
  13. الحمد لله الذى هدانا للحل نسألكم الدعاء
  14. الأخ الكريمRahem السلام عليكم جرب المرفق التالى abo_abary_Test.rar
  15. الأخ الكريمalraqi السلام عليكم يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية جرب الملف التالى بالمعادلات abo_abary_STATEMENT2.rar
  16. الأخ الكريمalraqi السلام عليكم يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية جرب الكود التالى لعلة يفى بالغرض Sub mh_abdelbary() Dim R As Integer, M As Integer Sheets("statement").Range("a5:f1000").ClearContents M = 4 Application.ScreenUpdating = False last1 = Cells(Rows.Count, "b").End(xlUp).Row For R = 2 To last1 If Cells(R, 4) > 0 Then last = Sheets("statement").Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("A" & R).Range("b1:d1").Copy With Sheets("statement") .Range("B" & last).PasteSpecial xlPasteValues .Range("a" & last) = last - 4 End With Application.CutCopyMode = False Else last = Sheets("statement").Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("A" & R).Range("b1:c1").Copy Sheets("statement").Range("B" & last).PasteSpecial xlPasteValues Range("A" & R).Range("d1").Copy With Sheets("statement") .Range("e" & last).PasteSpecial xlPasteValues .Range("a" & last) = (last - 4) Application.CutCopyMode = False End With End If Next End Sub abo_abary_STATEMENT.rar
  17. الأخ الكريم محمد الالفى السلام عليكم جرب المعادلة التالية لعلها تكون المطلوبة =IF(COUNTIF(E$3:E3;E3)=1;"";"مكرر "&MAX(SUMIF($E$3:E3;E3;$F$3:F3);SUMIF($E$3:E3;E3;$G$3:G3)))
  18. الأخ العزيز عبدالسلام علي السلام عليكم جرب هذا الكود بعد دمجة لعلة يكون المطلويب باذن الله نسألكم الدعاء Sub abo_abary() Sheets("ÇáäÇÌÍæä").Range("a6:aq100") = "" Sheets("ÇáäÇÌÍæä").Range("a6:aq100").Interior.ColorIndex = 0 Sheets("ÑÇÓÈ").Range("a6:aq100") = "" Sheets("ÑÇÓÈ").Range("a6:aq100").Interior.ColorIndex = 0 Application.ScreenUpdating = False X = Sheets("ÊÌãíÚí").[e1000].End(xlUp).Row For T = 11 To X Step 3 Y = Sheets("ÇáäÇÌÍæä").[A1000].End(xlUp).Row + 1 If Sheets("ÊÌãíÚí").Range("au" & T).Value = "äÇÌÍ" Then Sheets("ÇáäÇÌÍæä").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÇáäÇÌÍæä").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÇáäÇÌÍæä").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÇáäÇÌÍæä").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value ElseIf Sheets("ÊÌãíÚí").Range("au" & T).Value = "áå ÏæÑ ËÇä Ýì" Then Sheets("ÑÇÓÈ").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÑÇÓÈ").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÑÇÓÈ").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÑÇÓÈ").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value End If Next Clear_and_Highlight Application.ScreenUpdating = True End Sub
  19. الأخ الكريم احمد ديدو السلام عليكم جرب المرفق اللتالى لعلة يفى بالغرض نسألكم الدعاء abo_abary_تذكرة.rar
  20. الأخ سليم حاصبيا الف مبروك للترقية جائت فى وقتها انت اضافة كبيرة لهذا الصرح الكبير وفقك الله وسدد خطاك
  21. الأخ الكريم حامل المسك السلام عليكم جرب المعادلة التالية =IF(SUM(A1:A10)=0,"",SUM(A1:A10))
  22. الأستاذ الفاضل العبقرى سليم حاصبيا عذرا لعدم اتمام الحل الساعة كانت متأخرة وكنت بنام على نفسى جرب المرفق التالى ستجد فيه غايتك انشاء الله وان اعجبك ارزع لايك abo_abary_conditional_formatting.rar
  23. الأخ الكريم سليم حاصبيا السلام عليكم كلام ولا اروع منه بارك الله فيكم لكن حاول التسهيل على الاخوة بوضع هذه المعادلة بالتنسيق الشرطى =IF(B2=B1;C2;NOT(C2))
  24. الأخ الكريمياسر خليل أبو البراء مشكور على كلماتك الطيبة بخصوص الكود المقدم من ولكن لى ملاحظة على التعديل الذى تفضلت به (الأشارة الى صفحات العمل خلال الماكرو لا تفيد فى اعمال الكنترول لأنه بعد اتمام عملية الرصد للدرجات يتم الترحيل لذلك وضعت زر فى الورقة المراد الترحيل منها ولم اشر الى الصفحات كما تفضلت) اما بخصوص النقطة الثانية لأرفاق الملفات كثير من الأعضاء بعد الرد عليهم يطلبون تنفيذ الكود على المرفق الم تلاحظ ؟؟؟؟؟؟
  25. الأخ الكريم فايز فراج السلام عليكم تم انشاء صفحة جديدة باسم رصد الدور الثانى يتم الترحيل لها . عسى ان يكون هذا هو المطلوب abo_abary_الصف الأول الإبتدائي 2016.rar
×
×
  • اضف...

Important Information