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

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

استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله

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

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

استاذ ياسر خليل كما قال ابو نصار انت جامعه شرح ممتاز بارك الله فيك وفقكم الله

اخى مختار اكوادك مهمه ومفيده جزاك الله خيرا

اخى محمد الريفى جزاك الله خيرا وفقكم الله

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

اخى ابونصار اشكرك كل الشكر فكره ممتازة بارك الله فيكم جزاكم الله كل خير

اخى مختار حسين اشكرك كل الشكر جزاك الله خيرا على اعمالك وفقكم الله

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

اخى ياسر ابوالبراء جزاك الله خيرا ولا عيب ان يستفيد الانسان من تعبه وعلمه اعمالك واكوادك كلها ممتازة وفقكم الله

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

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

اخى مختار اقتبست رد اخى ياسر لانه ابلغ رد

ابونصار اكوادك رائعه وفقكم الله

اخى عبدالعزيز بارك الله فيك افكار جديده ورائعه وفقكم الله

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

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