أ / محمد صالح

يمكنك تجربة استخدام هذه المعادلة في الخلية D5

=SUMIFS(table1!$A:$A,table1!$C:$C,$C5,table1!$D:$D,">="&DATE(2022,D$4,1),table1!$D:$D,"<="&EOMONTH(DATE(2022,D$4,1),0))

بالتوفيق

البقاء لله وحده.

رحمه الله رحمة واسعة واسكنه الفردوس الأعلى من الجنة.

آمين وجميع موتى المسلمين.

🌿 إلى صاحب الموضوع الكريم، صاحب الوفاء والعرفان @algammal: وعليكم السلام ورحمة الله وبركاته، لقد أكرمتنا بكلماتك النبيلة، وأغدقت علينا من جميل ثنائك، فكان لتهنئتك وقعٌ في القلب لا يخفى، ولحروفك أثرٌ في النفس لا يُمحى. جزاك الله خيرًا على هذا اللطف والكرم، وأسأل الله أن يبارك لك في علمك وعملك، وأن يجعل أيامك عامرةً بالسعادة والرضا.

✨ إلى الإخوة الزملاء الأفاضل، أهل الفضل والعطاء: إنه لمن دواعي الفخر أن نكون جزءًا من هذا الصرح العلمي المبارك، حيث تتلاقى العقول، وتتعانق الأفكار، ويُسهم كل منا بما استطاع في نشر العلم وإعانة السائلين. وما نحن إلا حلقةٌ في سلسلةٍ ممتدةٍ من العطاء، ننهل من معين من سبقونا، ونستنير بهديهم. أسأل الله أن يجعل هذا المنتدى المبارك منارةً للعلم، وموئلًا للباحثين، وأن يبارك في جهود الجميع، ويجزيكم خير الجزاء على كلماتكم الطيبة التي زادتنا شرفًا وسرورًا.

🌍 إلى جميع الإخوة الأعضاء الكرام: كل عام وأنتم بخير، أعاده الله علينا وعليكم وعلى الأمة الإسلامية بالخير واليمن والبركات، وجعل أيامكم عامرةً بالمسرات، وأفئدتكم مطمئنةً بالرضا والسعادة. نسأل الله أن يديم علينا نعمة الأخوة، وأن يبارك في هذا الجمع الطيب، وأن يجعل العلم الذي نتشاركه نورًا لنا في الدنيا والآخرة.

🔹 أخوكم / محمد صالح

أسأل الله العظيم رب العرش العظيم أن يشفيه شفاء لا يغادر سقما

آمين وجميع مرضى المسلمين

جزاكم الله كل خير ونفع بكم

ورزقكم من حيث لا تحتسبون

بداية موفقة وجهد مشكور 

خالص الدعوات بالتوفيق 

عليكم السلام ورحمة الله وبركاته
يمكنك تجربة  كود VBA يقوم بإنشاء ملف نصي باسم **fs.txt** يحتوي على النص `"fs"`، ويتم حفظه داخل مجلد **C:\Windows** على الجهاز:

Sub CreateTextFile()
    Dim FilePath As String
    Dim FileNumber As Integer
    
    ' تحديد مسار الملف داخل مجلد Windows
    FilePath = "C:\Windows\fs.txt"
    
    ' الحصول على رقم ملف متاح
    FileNumber = FreeFile
    
    ' إنشاء وكتابة البيانات إلى الملف
    Open FilePath For Output As FileNumber
    Print #FileNumber, "fs"
    Close FileNumber
    
    MsgBox "تم إنشاء الملف بنجاح في: " & FilePath, vbInformation, "نجاح"
End Sub

```

⚠️ **ملاحظة:** تحتاج إلى تشغيل الكود بصلاحيات **المسؤول (Administrator)** لأن الكتابة داخل مجلد **Windows** تتطلب أذونات خاصة. يمكنك تشغيل VBA من داخل **Excel أو Word** ولكن تأكد من أن لديك الصلاحيات الكافية.

بالتوفيق
 

السلام عليكم ورحمة الله وبركاته

أستاذ الفاضل @algammal

علمناك دائما واسع الصدر طويل البال

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

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

ولذا نلتمس لبعضنا العذر في اختلاف الثقافات والبيئات

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

واعذرني في تحليلي لنص الرسالة بطريقة مختلفة:

الأخ صاحب الرسالة يريدك فقط أن تدعم من قام بالإجابة بالضغط على زر الإعجاب وزر أفضل إجابة (وهذه نواحي تنظيمية لمحتوى المنتدى) وهو مما يزيد شعبية من أجاب طلب حضرتك وترتيبه في المنتدى وكل هذا دعما معنويا للمجيب.

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

وفي الأخير أذكر نفسي وجميع اصدقائي بقول الله تعالى: وَلْيَعْفُوا وَلْيَصْفَحُوا ۗ أَلَا تُحِبُّونَ أَن يَغْفِرَ اللَّهُ لَكُمْ ۗ وَاللَّهُ غَفُورٌ رَّحِيمٌ.

جعلنا الله جميعا ممن يحسنون الحديث ويقولون قولا يسلمون فيه من الاثم والأذى

وكل عام وأنتم جميعا بخير وصحة وسعادة

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

السلام عليكم ورحمة الله وبركاته

ربما تفيدك هذه الطريقة لحساب قيمة الخصم على اساس أجر الساعة

بالتوفيق

قيمة الخصم بناء على التأخير.xlsx

عليكم السلام ورحمة الله وبركاته

أخي الكريم

كل عام أنتم جميعا بخير وصحة وسعادة

لكي تحصل على تقرير مثل هذا ينبغي أولا تنظيم قاعدة البيانات بشكل يتناسب مع ضوابط قواعد البيانات

بمعنى:

ينبغي إلغاء دمج الخليا في العمود C وتكرار اسم الشعبة أمام كل صف

ساعتها يمكنك استعمال الفرو والترتيب إذا أردت الحصول على التقرير يدويا

أو يمكنك استعمال معادلات البحث

بالتوفيق

كل شيء ممكن

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

وبإذن الله ستجد ما يسرك من الردود والإجابات

بالتوفيق

يمكنك البدء في تصميم برنامجك بنفسك من خلال ما تعلمته من المنتدى

وإذا وقفت في نقطة أو اثنتين يمكنك عرضها وستجد ما يسرك من مساعدة الجميع لك

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

خالص الدعوات بالتوفيق 

جميعا بفضل الله

بالنسبة لطلب حضرتك تم تنفيذه بالطرق المتاحة لي 

ربما يساعدك أحد الزملاء بما هو مطلوب حرفيا منك

كل عام وأنتم بخير

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

السلام عليكم ورحمة الله وبركاته

تفضل ربما يفيدك هذا

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

دعواتكم لي بسعة الرزق في هذه الايام المباركة

مطلوب من أوفيسنا الكرام.xlsx

زر يحتوي على نص وصورة أو ايقونة.xlsb

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

جميعا بإذن الله تعالى

إذا ركزت قليلا وتوصلت لمعنى المعادلة كنت ستعرف كيف تعدلها لما تريد

لأنها فقط تبديل بين قيمة e2 و صفر في شروط IF

لاحظ هذا التعديل ربما يفيدك

Architect Units.xlsx

ربما يفيدك هذا

Architect Units.xlsx

هل يوجد في ويندوز طابعة pdf ؟

هل جربت طباعة الملف على طابعة pdf يدوي؟ 

إذا كانت الإجابة نعم 

فالكود يقوم بهذا 

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

بالتوفيق 

16 ساعات مضت, ابو حمادة said:

شكرا لك استاذي الفاضل علي اهتمامك

لكن
للاسف الكود عند استخدامه تظهر رساله خطأ 

عذرا اخي الكريم لم أنتبه لأنك تستعمل نسخة أوفيس 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

بالتوفيق

عليكم السلام ورحمة الله وبركاته

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

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

بالتوفيق