Ali Mohamed Ali

جرب هذا الكود 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

تفضل أخى هذا الملف بالمعادلات خارج العمود المطلوب فلترة على كل الأرقام التى تبدأ فى الأحاد من 1 :6 وأيضا صورة توضيحية للطريقة التى تريدها فلتر مخصص.xlsx

وهذا هو ملفك اضافة.xlsm

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

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

أستاذى الكريم الملف فيه مشكلة من فضلك ارفعه مرة أخرى-فعند فك الضغط تحدث المشكلة واليك الصورة التوضيحية

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

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

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

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

تفضل أخى الملف كان موجود فى المشاركة الأولى MasNoPass.rar

لم يعمل هذا الملف معك -جربه