أ / محمد صالح

جميعا بإذن الله تعالى إذا ركزت قليلا وتوصلت لمعنى المعادلة كنت ستعرف كيف تعدلها لما تريد لأنها فقط تبديل بين قيمة e2 و صفر في شروط IF لاحظ هذا التعديل ربما يفيدك Architect Units.xlsx

ربما يفيدك هذا Architect Units.xlsx

هل يوجد في ويندوز طابعة pdf ؟ هل جربت طباعة الملف على طابعة pdf يدوي؟ إذا كانت الإجابة نعم فالكود يقوم بهذا وإلا فأنصحك بترقية جهازك ونسخة الأوفيس لتستمتع بكل الميزات الحديثة بالتوفيق

عذرا اخي الكريم لم أنتبه لأنك تستعمل نسخة أوفيس 2007 وبالفعل هذه الميزة غير موجودة فيه يمكنك استعمال كود الطباعة العادي في حالة وجود طابعة pdf في ويندوز يمكنك تجربة هذا الكود Sub ExportWorksheetToPDF_2007() Dim ws As Worksheet Dim pdfFilePath As String Dim wbPath As String Dim objPrinter As Object ' تحديد ورقة العمل الحالية Set ws = ActiveSheet ' الحصول على مسار المصنف الحالي wbPath = ThisWorkbook.Path ' التحقق مما إذا كان المصنف قد تم حفظه If wbPath = "" Then MsgBox "يرجى حفظ المصنف أولاً لتحديد المسار.", vbExclamation Exit Sub End If ' تحديد مسار واسم ملف PDF pdfFilePath = wbPath & "\" & ws.Name & ".pdf" On Error Resume Next ' تحديد طابعة الـ PDF الافتراضية Set objPrinter = CreateObject("Scripting.FileSystemObject") If objPrinter Is Nothing Then MsgBox "لا يمكن تصدير PDF. يرجى التأكد من تثبيت إضافة التصدير.", vbCritical Exit Sub End If ' تصدير الورقة باستخدام طابعة PDF خارجية ws.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF", _ PrintToFile:=True, PrToFileName:=pdfFilePath MsgBox "تم تصدير ورقة العمل إلى ملف PDF بنجاح: " & pdfFilePath, vbInformation End Sub بالتوفيق

للأسف لا يوجد معادلة للقيام بهذا الأمر إلا في الإصدارات الحديثة وربما تكون طويلة ومعقدة ولكن يمكنك استعمال هذا الاجراء Sub RepeatValuesInColumn() Dim ws As Worksheet Dim sourceRow As Long Dim targetRow As Long Dim repeatCount As Long Dim lastRow As Long ' تحديد ورقة العمل Set ws = ActiveSheet ' الحصول على آخر صف يحتوي على بيانات في العمود G lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row ' تحديد صف البدء للعمود J targetRow = 7 ' ابدأ من الصف J7 ' التكرار لكل صف في العمود G وH For sourceRow = 7 To lastRow If ws.Cells(sourceRow, "G").Value <> "" And IsNumeric(ws.Cells(sourceRow, "H").Value) Then repeatCount = ws.Cells(sourceRow, "H").Value If repeatCount > 0 Then Dim i As Long For i = 1 To repeatCount ws.Cells(targetRow, "J").Value = ws.Cells(sourceRow, "G").Value targetRow = targetRow + 1 Next i End If End If Next sourceRow MsgBox "تم التكرار بنجاح!", vbInformation End Sub بالتوفيق

يمكنك استعمال هذا الكود activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\mas.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True بالتوفيق

عليكم السلام ورحمة الله وبركاته بهذه الصورة المشكلة في صلاحيات المستخدم في هذا الجهاز؛ حيث أنه لا يملك حق الوصول للملف على الشبكة. يمكنك مراجعة الأمان الخاص بالملف وطريقة مشاركته والمستخدمين المصرح لهم بتعديل الملف بالتوفيق

يوجد الكثير من الأدوات التي تساعد المبرمج في إنجاز مهامه أبسطها ومجاني Microsoft Copilot ولكن لابد من وجود خلفية من المستخدم الذكاء الاصطناعي لا يلغي الإنسان وإنما يسهل حياته بالتوفيق

هذا الإصدار 16.50 وآخر إصدار 30.50 بالتوفيق

فكرة رائعة يجب أولا أن تعرض الكود الذي يقوم بعمل هذا التفقيط ويمكن استعمال الذكاء الاصطناعي في عكسه

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

لا تنتظر أن يساعدك أحد من خلال الصورة بدون إرفاق ملف لأنه إضاعة للوقت والجهد

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

المعادلة صحيحة مائة بالمائة لأن شهر أغسطس 31 يوما فلذلك لم يتم الشهر الثاني عشر حتى يكون الناتج 1 سنة وأي تعديل في المعادلة بإضافة يوم أو طرح يوم سيجعل ناتج المعادلة في غير هذه الحالات غير صحيح ربما تحتاج لحساب الفرق بين تاريخين على اعتبار أن الشهر 30 يوما فقط بدون الاهتمام بعدد ايام الشهر الحالي سواء 28 أو 29 أو 31 وهذا موجود في المنتدى يمكنك البحث عنه وهذه أحد النتائج بالتوفيق

التواصل مع صاحب الكود لتعديله ليتوافق مع نسخ 64 بت او تغيير نظام التشغيل ل 32بت