القول المأثور

استخدم المعادلة التالية لحذف المسافات الزائدة بين الكلمة (قبل وبعد)

=TRIM(SUBSTITUTE(SUBSTITUTE(B2;CHAR(160);" ");"^"&TRIM(SUBSTITUTE(B2;" ";"^"));""))

يرجى العلم استبدال الفاصلة حسب إعدادات الكمبيوتر(  ,   أو  ;  )

الاستاذ محمد صالح، كما هو مطلوب جزيل الشكر والامتنان.

هذا المعادلة في حالة وجود (المجموع) لو قمت بحذف الصفوف الفارغة وحذف صف (المجموع) من كل منتج، والإبقاء فقط على بيانات الحسابات مع صف الصنف، كيف ستكون المعادلة؟

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

في حالة حذف كلمة (المبلغ) والإبقاء على المبالغ فقط، هل يمكن المشكلة؟

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

السلام عليكم

مطلوب معادلة نقل المسميات في حالة تحقق الشرط، مرفق ملف الأكسل للتوضيح أكثر.

نقل المسميات حسب الشرط.xlsx

نعم بالفعل تم التعديل على الملف المرفق

جزاك الله خيرا 

جزاك الله خير أبو أحمد، تم العثور على الطريقة المطلوبة

مرفق الملف للاستفادة منه.

الجمع بشرط على مستوى صف وأعمدة.xlsx

شكرا جزيلا الأخ ابو أحمد، هل بالامكان ربط صف اسماء الأشهر من الجدول رقم واحد؟؟

السلام عليكم

المطلوب

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

حسب الملف المرفق.

الجمع بشرط على مستوى صف وأعمدة.xlsx

Convert doc to docx (word format).xlsm

ملف ملف الأكسل مضاف إليه الكود

تم العثور على كود يوضع في الاكسل لتحويل تنسيق ملفات الوورد من الإصدار القديم إلى الإصدار الأحدث

شرط تفعيل مكتبة Microsoft office 16.0 Object Library أو حسب رقم الإصدار المثبت في جهازك 

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

https://support.microsoft.com/en-us/office/add-object-libraries-to-your-visual-basic-project-ed28a713-5401-41b0-90ed-b368f9ae2513

الكود

Sub ConvertDocToDocx()
    'تحويل ملفات الوورد من صيغة .doc إلى صيغة .docx
    On Error Resume Next
    'التأكد من تشغيل Word وفتحه
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Set wordApp = CreateObject("Word.Application")
    End If
    
    On Error GoTo 0

    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    

    'إيقاف تحديث الشاشة لتحسين الأداء
    Application.ScreenUpdating = False
    'افتح مربع حوار لاختيار مجلد الوثائق
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub 'إذا تم الضغط على إلغاء، انتهِ التنفيذ
    xFolder = xDlg.SelectedItems(1) + "\" 'احفظ المسار المحدد في متغير
    xFileName = Dir(xFolder & "*.doc", vbNormal) 'البحث عن كل الملفات ذات الامتداد .doc في المجلد المحدد
    'قم بتكرار هذا الجزء لمعالجة كل ملف .doc في المجلد المحدد
    While xFileName <> ""
        'افتح الملف باستخدام Word
        Documents.Open Filename:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        'حفظ الملف بصيغة .docx باستخدام نفس اسم الملف الأصلي ولكن بامتداد مختلف
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close 'أغلق الملف
        xFileName = Dir() 'ابحث عن الملف التالي في المجلد المحدد
    Wend
    'إعادة تفعيل تحديث الشاشة
    Application.ScreenUpdating = True
End Sub

هل من طريقة سريعة تحويل عدة ملفات وورد من تنسيق ملفات الوورد من اصدار قديم doc إلى اصدار جديد docx دفعة واحدة!! 

ss.xlsx

=IF(AND(H7="الرابع",G7="نصف العام",L6),L7,IF(AND(H7="الخامس",G7="نصف العام",L8),L9,""))

وممكن أيضا تطبيق هذه المعادلة على الخلية

=SUBSTITUTE(B3;" ";"")

سعد.xlsm

رشيد الراشدي (1).xlsx

جزيل الشكر والامتنان للاخ/ lionheart كما هو مطلوب.

السلام عليكم

يرجى من الاساتذة تعديل على الكود،

عند اختيار من القائمة المنسدلة كلمة Yes يتم اضافة التاريخ في جنب الخلية.

المشكلة لا يتم اضافة التاريخ مباشرة، اضطر اختار خلية مختلفة ثم الرجوع إلى الخلية المكتوب فيها كلمة Yes  حتى يظهر التاريخ.

المشكلة الأخرى عند الضغط على الخلية المكتوب فيها Yes يتم تحديث التاريخ مباشرة، اريد أن يكون مثبت حتى بعد عدة أيام لأنه سيتغير التاريخ مباشرة عند الضغط على الخلية بالخطأ؟؟

الكود 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


    If Not Application.Intersect(Target, Me.Range("b4:b100")) Is Nothing Then
    
        Dim cell As Range
        For Each cell In Application.Intersect(Target, Me.Range("b4:b100"))
            If cell.Value = "Yes" Then
                cell.Offset(0, -1).Value = Date
            ElseIf cell.Value = "No" Then
                cell.Offset(0, -1).ClearContents
            End If
        Next cell
        
    End If


End Sub

ملف ملف الأكسل

TEST.rar

 كما هو مطلوب، جزاك الله خيراً، وزادك الله علماً.

السلام عليكم

ارجو التكرم كما هو واضح في العنوان، اريد ربط معادلة large  مع معادلة sumifs وتعطيني أعلى رقم من بين الحسابات المحددة.مرفق ملف الأكسل للتوضيح أكثر

tabl.xlsx

استاذ محمد هشام، لك مني جزيل الشكر والامتنان،حسب ما هو مطلوب كيفت ووفيت.بارك الله فيك وزادك الله من علمه

السلام عليكم أخواني

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

move row.xlsm

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

السلام عليكم أخواني

ارجوا التكرم إفادتي بطريقة، لدي بيانات وأريدها تكون محمية وأوراق العمل مخفية، بحيث يتم ادخال رقم الهوية الوطنية، واظهار الشيت المسمى برقم الهوية الوطنية، مع العلم بأن عدد أوراق العمل قد تزيد عن 100  إلى 200 ورقة. مرفق ملف الاكسل للتوضيح أكثر.  مع الشكر الجزيل.

طالما ان طلبك لا يمكن تنفيذه الا بالأكواد .. فكان عليك لزاماً رفع الملف بإمتداد يقبل إضافة الأكواد XLSM ..تــم إعادة رفع الملف بهذا الإمتداد

data.xlsm

بعد أذن الاستاذ/ إبراهيم الحداد ..مرفق ملف الأكسل بعد اضافة المعادلة.

11.xls