كل الانشطه

في العادة الحد الافصى لطول لكيبل الشبكة من نوع cat6 و cat7 و cat8 بحدود 100 متر بشرط ان يكون الكيبل من نوعية جيدة ومعزول بشكل صحيح والفرق بينهم يكون في سرعة النقل وعرض النطاق وكلما زاد طول الكيبل تقل السرعة ويزداد التشويش وفقد البيانات فمثلا كات6 يمكن الحصول على السرعة القصوى اذا كان الكيبل اقل من 55 متر وكات 7 في حدود 30 متر فقط اما الكات 8 فالحد الاقصى للحصول على سرعة نقل كاملة يتطلب ان يكون طول الكيبل لا يزيد عن 100 متر لذا عند زيادة المسافة عن 40 متر يتطلب استخدام سويتشات من نوعية تدعم السرعة المناسبة لنوع الكيبل ويستثنى الكات8 حيث يمكن وضع سوتشات كل 90 متر في جميع الاحول لمسافة 1000 متر او اكثر يكون استخدام هذا النوع من الكيابل والسويتشات امر غير مجدي واعتقد ان الخيار الامثل استخدام كيابل الفايبر حينها لن يكون هناك فقد للبيانات والاهم لن يكون هناك اختناق او عنق زجاجة يمكن للكيبل الفايبر الاحادية نقل بيانات لمسافة 100 كيلو متر او اكثر عند بناء الشبكة نهتم بسعة النطاق اكثر من الاهتمام بالسرعة سعة النطاق لكيبل cat8 وهو افضل كيبل من سلسلة كات فقط 2000 ميجا هيرتز بينما في الفايبر تكون سعة النطاق ما بين 40 الى 100 جيجا في الثانية انا هنا اتحدث الكيابل احادي الوضع والله الموفق

وعليكم السلام ورحمة الله تعالى وبركاته إليك الكود المطلوب لحفظ جميع الشهادات في ملف PDF داخل مجلد باسم برنامج الكنترول شيت في نفس مكان المصنف Option Explicit Private Const CopyRange As String = "A5:J49" Private Const sFolder As String = "برنامج الكنترول شيت" Private Const NamePDF As String = "شهادات الأول" Private Const CrWS As String = "شهادات الأول بالقديرات" Private Sub CommandButton1_Click() Dim tbl As Boolean: tbl = False On Error GoTo CleanExit Dim f As Worksheet: Set f = Sheets(CrWS) Dim WS As Worksheet, début As Integer, fin As Integer, i As Integer, row As Integer Dim sPath As String, tempFile As String, tmp As Long, Rng As Range, OnRng As Range If IsEmpty(f.[J3].Value) Or Not IsNumeric(f.[J3].Value) Then _ MsgBox "يرجى تحديد رقم أول شهادة", vbExclamation, "تنبيه": Exit Sub début = f.[J3].Value: fin = f.[R3].Value If début < 1 Or fin < 1 Or début > fin Then Exit Sub If MsgBox("هل ترغب بحفظ الشهادات من " & _ début & " إلى " & fin & "؟", vbYesNo + vbExclamation, "تأكيد") = vbNo Then Exit Sub SetApp False On Error Resume Next Set WS = Sheets("PDF") If Not WS Is Nothing Then Application.DisplayAlerts = False: WS.Delete: Application.DisplayAlerts = True Set WS = Sheets.Add(After:=Sheets(Sheets.Count)) WS.Name = "PDF": WS.DisplayRightToLeft = True On Error GoTo 0 If WS Is Nothing Then: GoTo CleanExit tempFile = ThisWorkbook.Path & "\" & sFolder If Dir(tempFile, vbDirectory) = "" Then MkDir tempFile tmp = 1 Set OnRng = f.Range(CopyRange) For i = début To fin Step 5 f.[J3].Value = i: Set Rng = WS.Cells(tmp, 2) OnRng.Copy Rng.PasteSpecial Paste:=xlPasteValues: Rng.PasteSpecial Paste:=xlPasteFormats Rng.PasteSpecial Paste:=xlPasteColumnWidths For row = 1 To OnRng.Rows.Count WS.Rows(tmp + row - 1).RowHeight = OnRng.Rows(row).RowHeight - 1.5 Next If i + 5 <= fin Then WS.HPageBreaks.Add Before:=WS.Cells(tmp + OnRng.Rows.Count, 1) tmp = tmp + OnRng.Rows.Count + 1 Next With WS.PageSetup .Orientation = xlPortrait: .Zoom = False: .FitToPagesWide = 1: .FitToPagesTall = False .TopMargin = Application.InchesToPoints(0.5): .BottomMargin = Application.InchesToPoints(0.5) .LeftMargin = Application.InchesToPoints(0.2): .RightMargin = Application.InchesToPoints(0.2) .PaperSize = xlPaperA4: .CenterHorizontally = True: .CenterVertically = False End With sPath = tempFile & "\" & NamePDF & ".pdf" On Error Resume Next WS.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False tbl = (Err.Number = 0) On Error GoTo 0 f.[J3].Value = 1 WS.Delete CleanExit: SetApp True MsgBox IIf(tbl, _ "تم تصدير جميع الشهادات بنجاح" & vbNewLine & _ "تم حفظ الملف باسم: " & NamePDF & vbNewLine & "في المجلد: " & sFolder, _ "حدث خطأ يرجى المحاولة مرة أخرى"), IIf(tbl, vbInformation, vbCritical), _ "PDF" & "تصدير الشهادات بصيغة" End Sub Private Sub SetApp(ByVal enable As Boolean) With Application .ScreenUpdating = enable: .EnableEvents = enable: .DisplayAlerts = enable End With End Sub وإليك في المرفقات شكل الملف PDF المستخرج بعد تنفيذ العملية لتأخذ فكرة واضحة عن النتيجة النهائية شهادات الأول والثانى- الصف الأول.rar شهادات الأول.pdf

أستاذنا @Foksh أضحك الله سنك وأدام فرحك وسرورك. لسه واخد بالي.

تم اضافة كود تحديث بيانات الجدول و TempVars ، واتضح انه اسهل مما كنت اتوقع 🙂 Function Update_a_Field(New_Value As String, Field_Name As String) ' ' usage from the Form, for example: ' Call Update_a_Field(Forms!frm_Main!BG_Pixel_Color, "Color_Reference") ' '- update the field value in the table DoCmd.SetWarnings False 'DoCmd.RunSQL ("UPDATE tbl_Settings SET sValue =" & Me.BG_Pixel_Tolerance & " WHERE sName='Color_Tolerance'") DoCmd.RunSQL ("UPDATE tbl_Settings SET sValue =" & New_Value & " WHERE sName='" & Field_Name & "'") DoCmd.SetWarnings True '- update the TempVar TempVars.Remove (Field_Name) '- Remove the field TempVars.Add (Field_Name), New_Value '- add the field with the new value End Function . اخوي موسى: عندي برنامج ، على حاسبتين او ثلاث ، يطبعون منه حوالي 1000 وصل خلال نصف ساعة ، وبه صورتين وبيانات اخرى ، والسيرفر بعيد حوالي كيلومتر او اثنين (اذا تحسب اطوال كيبلات الشبكة) ، تصور اذا كنا نطلب مسار الصور كلما اردنا طباعة وصل

بالفعل بوضع معادلتك بالشيت الرئيسي ظبطت كل الشيتات .... مرة اخرى الف شكر وجزاك الله كل خير

السلام عليكم اطلب من اساتذتنا في هذا المنتدى, تزويدي بطريقة لفتح نموذج فاتورة المبيعات اكثر من مرة في نفس الوقت بحيث يمكن للمستخدم التعديل على اي منها وحفظها ,,, بمعنى اكثر توضيحا عندما يواجه المستخدم اكثر من زبون فهو يفتح لكل زبون فاتورة ثم بعد ذلك يضيف الاصناف والاسعار والكميات لكل فاتوره بشكل منفصل وحفظها , وهكذا مع بقية الفواتير المفتوحه,, مع مراعات التسلسل في الفواتير . مرفق لكم ملف في نموذج وجداول فاتورة المبيعات inv-sell dynamism.rar

اعتذر عن المداخلة ، ولكن أخي الكريم من باب التوضيح لفكرة زر ، هي أن يتم منحها لصاحب الإجابة ، وأعتقد أنك من فرحتك بالنتيجة والملف المطروح من ألأستاذ @hegazee قد أثنيت على إجابتك وليس على إجابة الأستاذ 😁 . أدام الله الفرح في قلبك وقلب المسلمين أجمعين .

عفوا الملف المرسل يعتمد علر روابط خارجية غير موجوده و بالتالي يصعب التعامل معه لأن الكنترول يعتمد على قوانين كثيرة مثل الغياب سواء في مادة أو مادتين أو غياب التيرم كاملا أو غياب الامتحان فقط. أيضا هل تضع "غ" أم "غياب". فلو امكن ارفاق الملف كاملا بجميع الروابط.

عفوا يا استاذ حجازي عند التطبيق وعند وجود غياب في الخلية تعطي خطأ انظر هذة الصورة تعطي value

آمين و إياكم

بارك الله فيك وجعله في ميزان حسناتك

السلام عليكم الله يعطيك الصحة ويجزاك كل خير يأخي @ياسر خليل أبو البراء على الافكار والتطبيقات المميزة من شخص مميز للامانه بحثت عن الموضوع بالرابط اعلاه. وهل ممكن نوزع الطلاب على عمودين وكل عمود وكل عمود فيه 10 صفوف يملئ العمود الاول ومن ثم العمود الثاني واذا كان مرضية نفس التوزيع اي يكون غياب ومرضية وشكراً لك

جزاكم الله خيرا ولكم بمثله وزيادة

بارك الله فيك الان اكتملت العملية 100% أكمل الله لك كل خير وزاد من فضله ونعيمه وجزاك خيرا ووالديك في الدارين

جرب المعادلة التالية =IF($B10="","",ROUND(VLOOKUP($B10,nageh,25,0), 0)) لا تنسى تحويل الفواصل حسب إصدار الأوفيس عندك

تفضل كلمة سر محرر الأكواد 1234 https://www.mediafire.com/file/2hfsn00qn3j93wd/المالي3.rar/file

اتمنى المساعدة منكم اخواني واساتذتي الاعزاء

لله درك .. ما شاء الله جميلة جداً ، وفكرة رائعة ومسلية جربتها أكثر من نصف ساعة مستمتعاً بفكرتها .. وخطرت لي عدة تحديثات ، فمثلاً :- اضافة مستوى تدريبي لأول مرة لللاعب كي يتفهم فكرتها الجميلة . اضافة مستويات أكبر من مستويين تحديث مؤثرات بصرية عند الرقم الصحيح أو الخاطئ .. إضافة مؤشر تحميل تنازلي لزيادة متعة اللعبة ( إضافة الى الرقم التنازلي ) فقد يكون غير ملحوظ لللاعب عند تركيزه على الارقام ,, وأيضاً تعديل فكرة كتابة الاسم لكل لاعب في كل مستوى ( عند اللعب الجماعي ) عند كل لعبة جديدة أو مستوى جديد ، حتى لا تضيع فكرة المتعة والتركيز وما تبقى في أصل الفكرة هي جميلة جداً وممتعة

المطلوب تعديل على المعادلة =IF($B10="","",VLOOKUP($B10,nageh,25,0)) باضافة دالة Round لجعل القيمة العشرية للمادة قيمة صحيحة وعند عدم وجود رقم جلوس تبقى خلية المادة فارغة هذا الجزء مأخوذ من شيت اخر للعلم تعديل معادلة.xlsx

بارك الله فيك استاذى الكريم وجعل الله علمك فى ميزان حسناتك

استاذي الفاضل حجازي السلام عليكم ورحمة الله لك كل الشكر والتقدير الملف يعمل جيدا بكل اكواده ولكن فقط لا يمكنك من عمل كلمة مرور جديدة للمحرر وغالبا سوف احتاج اليها بعد اكتمال التعديل هل يوجد حل ارجو المحاولة وجزاك الله خيرا

للعلم أن يستخدم موقع ويب الواتس اب وليس التطبيق

أحسنت أستاذي الفاضل أحسن الله إليك ووالدين في الدنيا والاخرة أرحتني من أن أبدا من الصفر أو ضياع زمن طويل في محاولة فك الحماية بارك الله فيك ونفع بك البلاد والعباد

السلام عليكم ورحمه الله وبركاته - كود طباعة الشهادات PDF لا يعمل 2022شيت مدرستى شهادات الأول والثانى- الصف الأول.xls

و عليكم السلام ورحمة الله و بركاته تفضل الملف https://www.mediafire.com/file/p7a1e5mgcdsbhx8/المالي.xlsm/file