راجع معادلات ودوال ملفك كاملا عن طريق الكود

[saad abed]

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

بعد ان تصنع ملفك كاملا تستطيع مراحعه معادلاتك والدوال الموجوده فى ملفك

جرب وقول رايك فى الكود

الكود منقول للامانه العلمية

Option Explicit 
Sub ListAllFormulas() 
Dim sh As Worksheet 
Dim cell As Range 
Dim nextrow As Long 
 
Application.ScreenUpdating = False 
 
With ActiveWorkbook 
     
    On Error Resume Next 
    Set sh = .Worksheets("Formula List") 
    On Error GoTo 0 
    If sh Is Nothing Then 
         
        .Worksheets.Add After:=.Worksheets(.Worksheets.Count) 
        .ActiveSheet.Name = "Formula List" 
    Else 
         
        sh.Cells.ClearContents 
    End If 
     
    With .Worksheets("Formula List") 
         
         
        .Range("A1:C1").Value = Array("Sheet", "Cell", "Formula") 
        nextrow = 1 
         
        For Each sh In ActiveWorkbook.Worksheets 
             
            If sh.Name <> "Formula List" Then 
                 
                For Each cell In sh.UsedRange 
                     
                    If cell.HasFormula Then 
                         
                        nextrow = nextrow + 1 
                        .Cells(nextrow, "A").Value = sh.Name 
                        .Cells(nextrow, "B").Value = cell.Address 
                        .Cells(nextrow, "C").Value = "'" & cell.Formula 
                    End If 
                Next cell 
            End If 
             
            If .Cells(nextrow, "A").Value = sh.Name Then nextrow = nextrow + 1 
        Next sh 
         
        .Columns("A:C").AutoFit 
    End With 
End With 
 
Application.ScreenUpdating = True 
end sub

 

الكود يصنع ورقة باسم "

Formula List

بها المعادلات واسم الخلية والورقة الموجود بها المعادله

[عبد العزيز البسكري]

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

أستاذي الفاضل " سعد عابد "

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

الدّال على الخير كفاعله .. سواء منقول أو مبتكر من لدنك

ما أردت قوله سيّدي المحترم :

مراجعة المعادلات و الدوال هل المقصود أنّ هذا الكود يراجع و يكشف لنا عن الخطأ إنْ وُجد !!؟؟

فائق إحتراماتي

 

 

[saad abed]

اخى عبدالعزيز

الكود يظهر كل المعادلات والخليه الموجوده به المعاداه واسم الورقة

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

اشكرك على مناقشتك للموضوع

[عبد العزيز البسكري]

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

بارك الله فيك أستاذي القدير " سعد عابد " على الشّرح الوافي و الكافي .. و الموضوع و الكود الرّائعين

جزاك الله خيرًا و زادك من علمه و فضله

فائق إحتراماتي و إعجاباتي

 

[الـعيدروس]

السلام عليكم

اخي الحبيب سعد عابد حفظك الله

كود جميل جداً 

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

اكيد كل من يتعامل مع الاكسل يستفيد من هذا الكود

في حال اراد مراجعة معادلات المصنف بشكل عام

وبالامكان تطويع الكود لأشياء اخرى

تقبل مروري

 

 

[saad abed]

استاذى وحبيب قلبى ابونصار

اتابع ردودك واكوادك بشغف

ولا اقول الا بسم الله ما شاء الله

انت رائع فى العلم والخلق معا

وفقكم الله

استاذى وحبيب قلبى ابونصار

اتابع ردودك واكوادك بشغف

ولا اقول الا بسم الله ما شاء الله

انت رائع فى العلم والخلق معا

وفقكم الله

استاذى وحبيب قلبى ابونصار

اتابع ردودك واكوادك بشغف

ولا اقول الا بسم الله ما شاء الله

انت رائع فى العلم والخلق معا

وفقكم الله

استاذى وحبيب قلبى ابونصار

اتابع ردودك واكوادك بشغف

ولا اقول الا بسم الله ما شاء الله

انت رائع فى العلم والخلق معا

وفقكم الله

[KHMB]

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

اخي سعد بارك الله فيك وجزاك الله خير

[محمد حسن المحمد]

أستاذ سعد المحترم السلام عليكم

هدية متميزة نختبر بها ملفاتنا 

جزاكم الله خيرا والسلام عليكم.

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[saad abed]

اخى الاكبر محمد حسن المحمد

اشكر لك مرورك الكريم

تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة

 

اخى الاكبر محمد حسن المحمد

اشكر لك مرورك الكريم

تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة

 

[Yasser Fathi Albanna]

أستاذى الحبيب / سعد عابد

كود أكثر من رائع

هدية قيمة

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

تقبل تحياتى

 

[saad abed]

م/ياسر فتحى

شرفنى مرورك يا هندسه

تقبل تحياتى

كود اخر يؤدى نفس الغرض بطريقة منظمة

Option Explicit

    Public Sub ListFormulasInWorkbook()
        ' by J.E. McGimpsey
        ' revised 04 July 2003 by Tom Ogilvy to add
        '   sheets when reaching ROWLIM formulas
        Const SHEETNAME As String = "Formulas in *"
        Const ALLFORMULAS As Integer = _
            xlNumbers + xlTextValues + xlLogical + xlErrors
        Const ROWLIM As Long = 65500
        Dim formulaSht As Worksheet
        Dim destRng As Range
        Dim cell As Range
        Dim wkSht As Worksheet
        Dim formulaRng As Range
        Dim shCnt As Long
        Dim oldScreenUpdating As Boolean
        
        With Application
            oldScreenUpdating = .ScreenUpdating
            .ScreenUpdating = False
        End With
        shCnt = 0
        ListFormulasAddSheet formulaSht, shCnt
            ' list formulas on each sheet
            Set destRng = formulaSht.Range("A4")
            For Each wkSht In ActiveWorkbook.Worksheets
                If Not wkSht.Name Like SHEETNAME Then
                    Application.StatusBar = wkSht.Name
                    destRng.Value = wkSht.Name
                    Set destRng = destRng.Offset(1, 0)
                    On Error Resume Next
                    Set formulaRng = wkSht.Cells.SpecialCells( _
                            xlCellTypeFormulas, ALLFORMULAS)
                    On Error GoTo 0
                    If formulaRng Is Nothing Then
                        destRng.Offset(0, 1).Value = "None"
                        Set destRng = destRng.Offset(1, 0)
                    Else
                        For Each cell In formulaRng
                            With destRng
                                .Offset(0, 1) = cell.Address(0, 0)
                                .Offset(0, 2) = "'" & cell.Formula
                                .Offset(0, 3) = cell.Value
                            End With
                            Set destRng = destRng.Offset(1, 0)
                            If destRng.row > ROWLIM Then
                              ListFormulasAddSheet formulaSht, shCnt
                              Set destRng = formulaSht.Range("A5")
                              destRng.Offset(-1, 0).Value = wkSht.Name
                            End If
                        Next cell
                        Set formulaRng = Nothing
                    End If
                    With destRng.Resize(1, 4).Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = 5
                    End With
                    Set destRng = destRng.Offset(1, 0)
                    If destRng.row > ROWLIM Then
                        ListFormulasAddSheet formulaSht, shCnt
                        Set destRng = formulaSht.Range("A5")
                        destRng.Offset(-1, 0).Value = wkSht.Name
                    End If
                End If
            Next wkSht
        With Application
            .StatusBar = False
            .ScreenUpdating = oldScreenUpdating
        End With
    End Sub

 

[محمد حسن المحمد]

9 ساعات مضت, سعد عابد said:

شكر لك مرورك الكريم

تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة

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

تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد

[مختار حسين محمود]

هدية جميلة أخى سعد

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

تقبل تحياتى

[saad abed]

اخى ابا الحسن والحسين

اشكر لك مرورك الكريم

 

اخى مختار حسين

مرورك الكريم يشرفنى دائما يعلم الله انى احبك فى الله