ابن الملك

أخى العزيز الطلب غير واضح

up

إخوتى الافاضل كيف يمكننى كتابه بيانات او معلومات حول اضافه من اضافات الاكسيل كما بالمرفق وشكرا Add In Info.rar

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

سلام الله عليكم أخوتى واساتذتى الكرام كثيرا ما نواجه تضخم حجم الملف بسبب المعادلات أو الاكواد او الفورمات الخاصه بالشيتات ويلجأ البعض فى بعض الاحيان لاكواد لمعرفه وقت الماكرو أو تقليص حجم الملف باكثر من طريقه ولكن هل فى كود برمجى او طريقه لمعرفه ايا من الشيتات هو الاكثر حجما ؟؟؟ نعم هناك طريقه لمعرفه حجم كل شيت من ملف الاكسيل Sub WorksheetSizes() 'Update 20140526 Dim xWs As Worksheet Dim Rng As Range Dim xOutWs As Worksheet Dim xOutFile As String Dim xOutName As String xOutName = "KutoolsforExcel" xOutFile = ThisWorkbook.Path & "\TempWb.xls" On Error Resume Next Application.DisplayAlerts = False Err = 0 Set xOutWs = Application.Worksheets(xOutName) If Err = 0 Then xOutWs.Delete Err = 0 End If With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)) .Name = xOutName .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size") End With Set xOutWs = Application.Worksheets(xOutName) Application.ScreenUpdating = False xIndex = 1 For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> xOutName Then xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges:=False Set Rng = xOutWs.Range("A1").Offset(xIndex, 0) Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) Kill xOutFile xIndex = xIndex + 1 End If Next Application.ScreenUpdating = True Application.Application.DisplayAlerts = True End Sub منقول من موقع https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html يارب يعجبكم الموضوع وشكرا

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

بارك الله فيك أخى الغالى

أستاذى / ياسر خليل على اى حال اشكر أهتمام حضرتك بالطلب

أستاذى الاستاذ / ياسر خليل أعتذر عن عدم توضيح المطلوب المطلوب 1- وضع اجمالى مجموعه الحسابات فى نطاق متفلتر رقم الحساب من 10100 حتى 10400 طيب هيقرا رقم الحساب منين ؟؟ من العمود D طيب يجمع منين ؟؟ من العمود F طيب يحط الاجمالى فين ؟؟ فى الحليه A4 2- وضع اجمالى مجموعه الحسابات فى نطاق متفلتر رقم الحساب من 10500 حتى 10700 طيب هيقرا رقم الحساب منين ؟؟ من العمود D طيب يجمع منين ؟؟ من العمود F طيب يحط الاجمالى فين ؟؟ فى الحليه A5 3- يتم استخراج الاسم أزاى ؟؟ وانا عندى 2 مرجع ؟؟؟ اول ما يتم الفلتره هيروح على العمود F ويدور على ارقام الحسابات من 10500 حتى 10700 و يجيب القيمه المقابله لاى رقم فيهم من العمود A طب ايه الفكره فى ان احط كذا رقم حساب فى البحث لان ممكن يكون فى وحده مش مرتبط بيها رقم الحساب ده لكن نطاق الحسابات الخاص بالوحدات من 10500 حتى 10700 أن كان بالمعادلات او الاكواد ف أنا لا أعترض على الطريقه أبدا أتمنى أكون أوضحت الفكره أشكر حضرتك كثيرا

معلمى الفاضل أ/ ياسر خليل اشكر مرورك العطر ولكن المعادله لا تعطى الرقم المطلوب مرفق الملف بعد التوضيح شكرا لكم جزيلا Filter.rar

up

للرفع

أستاذى الفاضل / ياسر خليل مرورك الكريم شرف ليا تم اصلاح الخطأ مرفق الملف بارك الله فيك Expenses 2017.rar

أساتذتى الكرام بمنتدى أوفيسنا أقدم بين أياديكم هديه صغيره لا تعبر عن الكم الهائل من المعلومات التى تعلمتها من هذا المنتدى برنامج صغير لاداره المصروفات الشخصيه " يارب يكون كويس " كل ما هو عليك : 1- تقوم بكتابه الراتب فى الاعلى بأشاره سالبه ( - ) 2- تقوم بالضغط بالماوس مرتين فى اى خليه ليظهر فورم التسجيل 3- تقوم بالضغط مرتين على خانه التاريخ لتختار التاريخ 4- تقوم بتسجيل المصروف الخاص بك 5- تختار "D" اختصار مدين بمعنى انه مصروف 6- فى حاله استلفت فلوس من احد او اى حاجه تقوم بالتسجيل باختيار " C" دائن "لا تنسى أن السلف تلف " 7- الضغط على كلمه Post 8- فى نهايه الشهر عليك الترحيل الرصيد النتبقى ومراجعته بالرصيد الفعلى وترحله لشيت جديد بالشهر الجديد 9- اختار ملف Setup لتعرف أكثر البنود صرفا 10- لاتوجد اى كلمه سر بالتوفيق " أطمع فى دعوه صالحه لوالدى ولوالدتى أطال الله لى فى عمرهم " سلام الله عليكم ورحمته وبركاته أخوكم كيرلس " ابن الملك" Expenses 2017.rar

أساتذتى الكرام سلام الله عليكم ورحمته وبركاته مرفق ملف به بيانات مفلتره ونحتاج الى عمل جمع للبيانات المفلتره ولكن بشرط من حساب الى حساب معين كما هو موضح بالمرفق * برجاء توضيح كيفيه جعل الموضوع " تمت أجابته " وشكرا لكم جزيلا Book1.rar

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

كل عام وانتم بخير أساتتى الكرام مرفق ملف صغير عباره عن نسب و ارقام والمطلوب معرفه النسبه المقابله لاخر رقم موجود وشكرا النسبه.rar

أخى الفاضل أرفق مثال للتوضيح وشكرا

تفضل يا اخى لعل هذا هو المطلوب " بعد أذن استاذى الفاضل " بن علية " المصنف2.rar

الاستاذ جمال سعيد عملت ربط بين الاسماء والمسلسل بتاع الطلبه و بمعادله Vlookup تم استدعاء الاسم بمعلوميه الرقم . يارب تكون المعلومه واضحه

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

أشكرك أخى العزيز الاستاذ / خالد على وقتك ومجهودك بارك الله فيك وجزاك عنه خيرا ولكننى لا استطيع كتابه الحسابات مره خرى فالمرفق مثال فقط لواقع ما يقرب من 250 او 300 حساب على مدار 12 شهر انا اعجبت بكود حضرتك جدا ولكننى كنت ابحث عن كود يبحث عن كلمه " الاجمالى " ويقوم هو باضافه صف جديد ويقوم بادخال معادله الجمع بنفسه هل الفكره اتضحت . بارك الله فيك وجزاك كل خير

للرفع

استاذى الفاضل الاستاذ / Lardja86 برجاء تحويل الاسم للغه العربيه جرب المرفق التالى على الرغم انى مفهمتش حاجه من الملف و ايضا هناك أسماء ليس بها قاعات جرب واخبرنى بالنتيجه وشكرا جدول الحراسة السنة 3 - 2.rar

أخى الاستاذ / أمجد حليم برجاء تغيير الاسم للعربيه الملف لا يفتح معى ؟؟ وأعتقد ان المشكله لدى حضرتك فى ان Calculation " التجميع " فى الشيت يدوى برجاء جعله اوتوماتيك Formula - Calculation - Automatic وشكرا