بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
391 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
4
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابو عبدالبارى
-
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
-
ابغى استعمل دالة vlookup مع دالة sumif
ابو عبدالبارى replied to alsaeed's topic in منتدى الاكسيل Excel
الأخ الكريمalsaeed جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_تحميع الفواتير1.rar -
الأخ الكريمmahmoudslah اثراءاً للموضوع جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة.rar الأخ الكريمmahmoudslah اثراءاً للموضوع وللمرة الثانية جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة1.rar اثراءاً للموضوع وللمرة الثالثة جرب المرفق التالى بالأكواد لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة2.rar
-
طلب وضع اكواد او داله لطباعة الشهادات
ابو عبدالبارى replied to محمد جابر محمد عبدالرحيم's topic in منتدى الاكسيل Excel
الأخ الكريممحمد جابر محمد عبدالرحيم السلام عليكم مرحبا بك فى هذا الصرح تم التعديل على أحد ملفاتك جرب التعديل لعله يفى بالغرض ثم طبقة على باقى الملفات ونسألك الدعاء 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 -
معادلة بحث عن رقم السيارة القديم والجديد عند كتابة أحدهما
ابو عبدالبارى replied to محمد لؤي's topic in منتدى الاكسيل Excel
الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلة يفى بالغرض نسألكم الدعاء abo_abary_معادلة بحث عن رقم السيارة الجديد والقديم.rar -
مطلوب كود تسمية commandbutton + اختصار كود
ابو عبدالبارى replied to أبو حنف's topic in منتدى الاكسيل Excel
الأخ الكريم أبو حنف يمن التعديل على الكود المقدم من الأخ أبو حنــــين باضافة السطرين الأخيرين 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 -
مساعده بوضع علامة اكس في اكثر من خليه بتحقق شرط
ابو عبدالبارى replied to قيس111's topic in منتدى الاكسيل Excel
وائراءاً للموضوع هذه طريقة اخرى abo_abary_Book1.rar -
مساعده بوضع علامة اكس في اكثر من خليه بتحقق شرط
ابو عبدالبارى replied to قيس111's topic in منتدى الاكسيل Excel
الأخ الكريمقيس111 جرب المعادلة التالية وضعها فى الخلية E5 واسحبها لليمين والى الأسفل =IF($B5>COLUMN()-5;"x";"") -
الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك نسألكم الدعاء abo_abary_الرقم الجديد - الرقم القديم.rar
-
الأخ الكريمالشيباني1 السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك ان شاء الله نسألكم الدعاء abo_abary_سند 1صرف وقيض.rar
-
هل يمكن ان تساوى خلية فيها معادلة if خلية أخرى
ابو عبدالبارى replied to Rahem's topic in منتدى الاكسيل Excel
الحمد لله الذى هدانا للحل نسألكم الدعاء -
هل يمكن ان تساوى خلية فيها معادلة if خلية أخرى
ابو عبدالبارى replied to Rahem's topic in منتدى الاكسيل Excel
الأخ الكريمRahem السلام عليكم جرب المرفق التالى abo_abary_Test.rar -
استيراد البيانات السالبة والموجبة من ورقة اخرى
ابو عبدالبارى replied to alraqi's topic in منتدى الاكسيل Excel
الأخ الكريمalraqi السلام عليكم يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية جرب الملف التالى بالمعادلات abo_abary_STATEMENT2.rar -
استيراد البيانات السالبة والموجبة من ورقة اخرى
ابو عبدالبارى replied to alraqi's topic in منتدى الاكسيل Excel
الأخ الكريم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 -
الأخ الكريم محمد الالفى السلام عليكم جرب المعادلة التالية لعلها تكون المطلوبة =IF(COUNTIF(E$3:E3;E3)=1;"";"مكرر "&MAX(SUMIF($E$3:E3;E3;$F$3:F3);SUMIF($E$3:E3;E3;$G$3:G3)))
-
الأخ العزيز عبدالسلام علي السلام عليكم جرب هذا الكود بعد دمجة لعلة يكون المطلويب باذن الله نسألكم الدعاء 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
-
الأخ الكريم احمد ديدو السلام عليكم جرب المرفق اللتالى لعلة يفى بالغرض نسألكم الدعاء abo_abary_تذكرة.rar
-
نرحب بالأخ سليم فى فريق الموقع
ابو عبدالبارى replied to محمد طاهر عرفه's topic in منتدى الاكسيل Excel
الأخ سليم حاصبيا الف مبروك للترقية جائت فى وقتها انت اضافة كبيرة لهذا الصرح الكبير وفقك الله وسدد خطاك -
الأستاذ الفاضل العبقرى سليم حاصبيا عذرا لعدم اتمام الحل الساعة كانت متأخرة وكنت بنام على نفسى جرب المرفق التالى ستجد فيه غايتك انشاء الله وان اعجبك ارزع لايك abo_abary_conditional_formatting.rar
-
الأخ الكريم سليم حاصبيا السلام عليكم كلام ولا اروع منه بارك الله فيكم لكن حاول التسهيل على الاخوة بوضع هذه المعادلة بالتنسيق الشرطى =IF(B2=B1;C2;NOT(C2))
-
الأخ الكريمياسر خليل أبو البراء مشكور على كلماتك الطيبة بخصوص الكود المقدم من ولكن لى ملاحظة على التعديل الذى تفضلت به (الأشارة الى صفحات العمل خلال الماكرو لا تفيد فى اعمال الكنترول لأنه بعد اتمام عملية الرصد للدرجات يتم الترحيل لذلك وضعت زر فى الورقة المراد الترحيل منها ولم اشر الى الصفحات كما تفضلت) اما بخصوص النقطة الثانية لأرفاق الملفات كثير من الأعضاء بعد الرد عليهم يطلبون تنفيذ الكود على المرفق الم تلاحظ ؟؟؟؟؟؟