Ali Mohamed Ali

وعليكم السلام-أهلا وسهلا بك فى منتدانا الكريم من الأفضل أن تقوم بإرسال ملف اكسيل وتشرح فيه ما تحتاجه بارك الله فيك هل هذا ما تقصده ان لم يكن هو عليك بتوضيح وشرح ما تريده فى ملف اكسيل ؟ 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

أخى الكريم لا يوجد ملف اكسيل من فضلك تأكد قبل ماترسل

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

جرب هذا أخى الكريم تكاليف-الجرف.xlsm

لو تقصد فلتر فى العمود A كما رأيت من قبل فى الصورة بنفس الخطوات ولكن أكتب *61 لو تريد الأحاد 1 والعشرات6 بارك الله فيك

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