أ / محمد صالح

عليكم السلام ورحمة الله وبركاته أخي الكريم كل عام أنتم جميعا بخير وصحة وسعادة لكي تحصل على تقرير مثل هذا ينبغي أولا تنظيم قاعدة البيانات بشكل يتناسب مع ضوابط قواعد البيانات بمعنى: ينبغي إلغاء دمج الخليا في العمود C وتكرار اسم الشعبة أمام كل صف ساعتها يمكنك استعمال الفرو والترتيب إذا أردت الحصول على التقرير يدويا أو يمكنك استعمال معادلات البحث بالتوفيق

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

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

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

جميعا يارب العالمين 🌹 🌹

السلام عليكم ورحمة الله وبركاته تفضل ربما يفيدك هذا تم وضع معادلة في H5 واستعمال التنسيق الشرطي للخلايا من A5:H14 ويمكن زيادة هذا النطاق إلى أي نهاية دعواتكم لي بسعة الرزق في هذه الايام المباركة مطلوب من أوفيسنا الكرام.xlsx

عليكم السلام ورحمة الله وبركاته يمكنك تحقيق ذلك بسهولة من خلال تنسيق الشكل (Shape) في Excel بحيث تكون الصورة على الجانب الأيسر والنص على الجانب الأيمن داخل نفس الشكل. إليك الطريقة: الخطوات: إدراج الشكل: قم بإدراج شكل من خلال علامة التبويب "Insert" ثم اختر "Shapes". أو Word Art إضافة النص انقر على الشكل لكتابة النص داخله. لتحريك النص إلى الجانب الأيمن، استخدم أزرار المحاذاة لليمين أو اليسار. إضافة الصورة داخل الشكل: انقر بزر الماوس الأيمن على الشكل واختر "Format Shape". اختر "Fill" ثم "Picture or texture fill". اضغط على "Insert " أسفل كلمة Picture لإدراج الصورة التي تريدها. lمن جهاز الكمبيوتر أو يمكنك استعمال ايقونة Icon ضبط الصورة داخل الشكل: ضمن إعدادات "Format Shape"، اختر خيار "picture " إذا كنت تريد التحكم في موضع الصورة. ضمن جزء Crop قم بتعديل إعدادات " Offset Y Or X" (إزاحة) للصورة بحيث تظهر على الجانب الأيسر من الشكل. يمكنك تعديل العرض Width والارتفاع Height لضبط حجم الصورة بجانب النص نصيحة إضافية: إذا كنت تريد نتيجة أكثر دقة أو تحتاج إلى المزيد من التحكم، يمكنك استخدام برنامج تصميم مثل PowerPoint أو Word لإنشاء الشكل وتنسيقه، ثم إدراجه كصورة في Excel. بالتوفيق زر يحتوي على نص وصورة أو ايقونة.xlsb

جميعا يارب العالمين 🌹

جميعا بإذن الله تعالى إذا ركزت قليلا وتوصلت لمعنى المعادلة كنت ستعرف كيف تعدلها لما تريد لأنها فقط تبديل بين قيمة 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 بالتوفيق

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