saad abed قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله وبركاته بعد ان تصنع ملفك كاملا تستطيع مراحعه معادلاتك والدوال الموجوده فى ملفك جرب وقول رايك فى الكود الكود منقول للامانه العلمية 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 بها المعادلات واسم الخلية والورقة الموجود بها المعادله 4 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السّلام عليكم و رحمة الله و بركاته أستاذي الفاضل " سعد عابد " بارك الله فيك و جزاك الله خيرًا و زادك من علمه و فضله الدّال على الخير كفاعله .. سواء منقول أو مبتكر من لدنك ما أردت قوله سيّدي المحترم : مراجعة المعادلات و الدوال هل المقصود أنّ هذا الكود يراجع و يكشف لنا عن الخطأ إنْ وُجد !!؟؟ فائق إحتراماتي 1 رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 اخى عبدالعزيز الكود يظهر كل المعادلات والخليه الموجوده به المعاداه واسم الورقة ما اقصده ربما تصنع ملف به معادلات كثيره بعدها استخدم الكود لتظهر هذه المعادلات جمله واحدة وبطريقة منظمة فى ورقة منفصله لتقوم بمراجعتها اشكرك على مناقشتك للموضوع 3 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير " سعد عابد " على الشّرح الوافي و الكافي .. و الموضوع و الكود الرّائعين جزاك الله خيرًا و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم اخي الحبيب سعد عابد حفظك الله كود جميل جداً بارك الله فيك ونفع بعلمك اكيد كل من يتعامل مع الاكسل يستفيد من هذا الكود في حال اراد مراجعة معادلات المصنف بشكل عام وبالامكان تطويع الكود لأشياء اخرى تقبل مروري 1 رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله 4 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله اخي سعد بارك الله فيك وجزاك الله خير رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 (معدل) أستاذ سعد المحترم السلام عليكم هدية متميزة نختبر بها ملفاتنا جزاكم الله خيرا والسلام عليكم. تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 اخى الاكبر محمد حسن المحمد اشكر لك مرورك الكريم تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة اخى الاكبر محمد حسن المحمد اشكر لك مرورك الكريم تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة 3 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 أستاذى الحبيب / سعد عابد كود أكثر من رائع هدية قيمة جزاك الله بها خيرا تقبل تحياتى رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 م/ياسر فتحى شرفنى مرورك يا هندسه تقبل تحياتى كود اخر يؤدى نفس الغرض بطريقة منظمة 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 3 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 (معدل) 9 ساعات مضت, سعد عابد said: شكر لك مرورك الكريم تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة هذا بعضا مما عندكم فما أنا إلا بكم ولكم .سررت بكلامك وتشرفت بتقديرك ...راجيا أن يزيدكم الله علما وحلما والسلام عليكم. تم تعديل ديسمبر 4, 2015 بواسطه محمد حسن المحمد رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 4, 2015 مشاركة قام بنشر ديسمبر 4, 2015 هدية جميلة أخى سعد جزاك الله بها خيرا تقبل تحياتى رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر ديسمبر 4, 2015 الكاتب مشاركة قام بنشر ديسمبر 4, 2015 اخى ابا الحسن والحسين اشكر لك مرورك الكريم اخى مختار حسين مرورك الكريم يشرفنى دائما يعلم الله انى احبك فى الله 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان