بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نزار سليمان عيد
-
Posts
1,547 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه نزار سليمان عيد
-
-
فضلا انظر للمرفق مع العلم حضرتك طلباتك مختلفه في كل مرحله
- 1
-
فضلا من صاحب السؤال التاكيد على الحل لاقفال الموضوع حيث تم عمل المطلوب
-
عندك حل الاستاذ محمد حسن بالمعادلات
- 2
-
تحتاج لهذه المعادله
=(IF(LEFT(C6,1)="3","السنة الثالثة",IF(LEFT(C6,1)="2","السنة الثانية","السنة الاولى")))
انظر للمرفق
- 2
-
-
انا قصدي بنفس مثالك
يوجد اسم مكرر 3 مرات واسم اخر بس مره
هل هذا صح من باب التوزيع العادل للمستويات
- 1
-
هل الاسماء بالملف توزيعها صحيح
-
في 17/4/2022 at 11:40, نزار سليمان عيد said:
وايضا هذا الكود وتحدد عدد السطور دون الدخول للماكرو
Sub InsertPageBreaksEveryXRow() Dim xLastrow As Long Dim xWs As Worksheet Set xWs = Application.ActiveSheet xRow = Application.InputBox("أدخل عدد السطور المراد طباعتها في كل صفحه", xTitleId, "", Type:=1) xWs.ResetAllPageBreaks xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row For i = xRow + 1 To xLastrow Step xRow xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1) Next End Sub
انظر للمرفق
تحتاج اضافة هذا الكود
Dim xPrintRng As Range Dim xFirstRng As Range Dim xLastRng As Range Application.ScreenUpdating = False With Application.ActiveSheet .Cells.EntireColumn.Hidden = False .Cells.EntireRow.Hidden = False If .PageSetup.PrintArea <> "" Then Set xPrintRng = .Range(.PageSetup.PrintArea) Else Set xPrintRng = .UsedRange End If Set xFirstRng = xPrintRng.Cells(1) Set xLastRng = xPrintRng.Cells(xPrintRng.Count) If xFirstRng.Row > 1 Then .Range(.Cells(1, 1), xFirstRng(-0, 1)).EntireRow.Hidden = True End If If xFirstRng.Column > 1 Then .Range(.Cells(1, 1), xFirstRng(1, 0)).EntireColumn.Hidden = True End If If xLastRng.Row < .Rows.Count Then .Range(xLastRng(2, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True End If If xLastRng.Column < .Columns.Count Then .Range(xLastRng(1, 2), .Cells(1, .Columns.Count)).EntireColumn.Hidden = True End If End With Application.ScreenUpdating = True
فضلا انظر للمرفق
- 1
-
وايضا هذا الكود وتحدد عدد السطور دون الدخول للماكرو
Sub InsertPageBreaksEveryXRow() Dim xLastrow As Long Dim xWs As Worksheet Set xWs = Application.ActiveSheet xRow = Application.InputBox("أدخل عدد السطور المراد طباعتها في كل صفحه", xTitleId, "", Type:=1) xWs.ResetAllPageBreaks xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row For i = xRow + 1 To xLastrow Step xRow xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1) Next End Sub
انظر للمرفق
- 1
-
فضلا جرب هذا الكود
Sub TextBox1_Click() For i = 1 To 200 Step 19 ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1) Next End Sub
انظر للمرفق
-
كل الاحترام استاذ محمد
بالعكس اضافاتك مميزة وتضفي اثراء للمشاركات
كل عام وانتم بخير
- 3
-
تحتاج لهذا الكود
Sub PrintA() 'prints rows of data, will not print rows if column A is blank Application.ScreenUpdating = False Range("A:A").EntireRow.Hidden = False Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("A:A").EntireRow.Hidden = False Application.ScreenUpdating = True End Sub
او هذا الكود
Sub PrintSummary() Dim myrange As String myrange = Cells(Rows.Count, 17).End(xlUp).Address ActiveSheet.PageSetup.PrintArea = "$A$1:" & myrange Application.Goto Reference:="R1C1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False End Sub
فضلا انظر للمرفق
- 2
-
تفضل انظر للمرفق
- 2
-
جزاكم الله كل خير
- 1
-
تفضل الحل استاذ خالد
- 2
-
فضلا انظر للمرفق واي استفسار خبرني من فضلك
- 1
- 1
-
بامكانك استخدام المعادلة ادناه والتعديل عليها حسب كل خلية حيث ان التنسيق من الاساس في الخلايا غير موحد
=LEFT(A2,SEARCH(" ",A2))&" "&MID(A2,SEARCH(" ",A2,1)+1,SEARCH(" ",A2,SEARCH(" ",A2,1)+1)-SEARCH(" ",A2,1))&" "&RIGHT(A2,LEN(A2)-SEARCH(" ",A2,SEARCH(" ",A2,SEARCH(" ",A2)+1)))
انظر للمرفق
- 1
- 1
-
تحتاج المعادلة ادناه للتجميع واضافة كل شهر مستقبلا على المعادلة
=SUMIFS(January!G$3:G$39,January!B$3:B$39,B3)+SUMIFS(February!G$3:G$39,February!B$3:B$39,B3)+SUMIFS(March!G$3:G$39,March!B$3:B$39,B3)
انظر للمرفق
- 1
-
فضلا جرب المرفق
- 3
-
تحتاج لاستخدام هذه المعادلة
=IFERROR(VLOOKUP(A2, حساب1!$A$2:$C$6, 2, FALSE), IFERROR(VLOOKUP(A2, حساب2!$A$2:$C$6, 2, FALSE), "غير موجود"))
انظر للمرفق
- 1
-
على حسب طلب السائله اتوقع تحتاج هذه المعادلة
=IF(AND(A2>0,OR(B2>0,C2>0,D2>0)),P2&O2&N2&""&M2,IF(AND(A2>0,OR(B2>0,C2>0,D2>0)),P2&" و "&O2&" و ",IF(AND(A2>0,OR(B2>0,C2>0,D2>0)),N2&" و "&M2)))
انظري للمرفق
- 2
-
بامكانك استخدام المعادله ادناه
=IF(A2>0,A1,IF(B2>0,B1,IF(C2>0,C1,IF(D2>0,D1,""))))
فضلا انظري للملف واي استفسار خبريني
- 5
-
راجع المعادلتين في عمود I و عمود J
حضرتك عامل ربط عن طريق IF الشرطية لمجهولين
- 2
-
- 1
عمل قرعة عشوائية
في منتدى الاكسيل Excel
قام بنشر
وعليكم السلام
ممكن لو سمحت توضح المكتوب
حسب الطلب اعلاه سيتكرر الاسم 3 مرات في الشهر
واذا ممكن تبعث ملف فيه حل يدوي لتثبيت الفكرة ومشاهدة كيف التوزيع وليس كل الاسماء اختار مثلا 20 اسم واكتب شكل الحل