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 بها المعادلات واسم الخلية والورقة الموجود بها المعادله

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

اخى واستاذى ياسر خليل وفيت بوعدك فقد وعدتنا بافراد موضوع خاص لشرحCreateObject("scripting.dictionary") جزاك الله خيرا وفقكم الله

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

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

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