Ali Mohamed Ali

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

أخى الكريم من الأفضل ارسال ملف اكسيل للعمل عليه أو ممكن تجرب هذا الملف ضع بياناتك فى العمود A كود تلوين المكرر.xlsm

بارك الله فيك أستاذ سليم وهذا كودين للوقت والتاريخ بطريقتين مختلفتين كود ثابت للوقت والتاريخ.xlsm

لا تعمل هذه المعادلة مع التنسيق الشرطى-ولا يحضرنى الأن سوى هذه المعادلة

أخى الكريم وهو ده اللى أنا ارسلته فيه الذى تشرحه

وعليكم السلام-أهلا وسهلا بك فى منتدانا الكريم من الأفضل أن تقوم بإرسال ملف اكسيل وتشرح فيه ما تحتاجه بارك الله فيك هل هذا ما تقصده ان لم يكن هو عليك بتوضيح وشرح ما تريده فى ملف اكسيل ؟ Example.xlsx

تفضل أخى Border Sort.xlsx

من فضلك أخى الكريم لاحظ هذه الصورة من الملف الذى قمت بإرساله

نعم يعل مع اكسيل 2016 وهذا موقع به شرح البرنامج وايضا تحميله http://forum.zyzoom.net/threads/165848/

ممكن حضرتك تجربى هذا فهو يعمل وكلمة السر : 123456 Stores.xlsm

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

تفضلى استفسار - ترحيل المبلغ على اساس الرقم و المنطقة والتاريخ.xls

حاول تحميل البرنامج الثالث passwarew password kit

تفضل أخى الكريم 2017شيت مدرستى - الصف الرابع.xlsm

ممكن تجرب هذا البرنامج setup_rvp-برنامج Remove VBA Password.zip وأيضا ممكن تبحث عن هذا البرنامج VBA Password Recovery 1.0.0 وبرنامج Passware Password Kit

أخى الكريم هذه الداة تصلح فقط للملف نفسه وليس لفك كلمة سر أكواد vba

جرب هذا الكود Dim xTime As String Private Sub Workbook_Open() On Error Resume Next xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2) If xTime = "" Then Exit Sub Reset End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next If xTime = "" Then Exit Sub Reset End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If xTime = "" Then Exit Sub Reset End Sub Sub Reset() Static xCloseTime If xCloseTime <> 0 Then ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork", , False End If xCloseTime = Now + TimeValue(xTime) ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork", , True End Sub وهذا كود اخر Option Explicit Declare Function ExitWindowsEx& Lib "user32" _ (ByVal uFlags&, ByVal wReserved&) Public vartimer As Variant Sub Timer() Call yahp vartimer = Format(Now + TimeSerial(0, 2, 0), "hh:mm:ss") If vartimer = "" Then Exit Sub Application.OnTime TimeValue(vartimer), "yahm" End Sub Sub yahm() ActiveWorkbook.Save Application.DisplayAlerts = False Application.Quit Shell "shutdown -s -t 02", vbHide End Sub Sub yahp() On Error Resume Next Application.OnTime earliesttime:=vartimer, _ procedure:="yahm", schedule:=False On Error GoTo 0 End Sub

تفضل أخى الكريم New Microsoft Office Excel Worksheet1.xlsx

تفضل أخى الكريم نسب التحليل المالي والمراجعة المالية.xlsx التحليل المالي.doc

جزاكم الله كل خير الشكر موصول للأستاذ سليم والأستاذ شريف ولإثراء الموضوع هذا كود ثالث تجزئة الاسماء من اسم طويل.xls

موضوعك غامض أرجو توضيح ما تريد من نتائج على ملفك ولكم جزيل الشكر

بارك الله فيك استاذ سليم وهذه طريقة أخرى لإثراء الموضوع المصنف1.xls

بارك الله فيك أستاذ ميدو لكن الأخ أبو شرف لا يريد أن يكتب شيىء,يريد وضع معادلة فقط لإخراج الناتج له جزاك الله كل خير

تفضل أخى الكريم معادلة المساحة2.xlsx

تفضل أخى معادلة المساحة2.xlsx