alliiia

الله يفتح عليك ما شاء الله سبحان الله غابت عن بالي، سلمت يداك أخي الحبيب. لكن لو في مجال ووقتك يسمح أتمنى عمل ذلك، لماذا؟ لأن بعض الملفات عندي فيها شيتات متعددة (23 شيت)، فالفلترة متعبة، بضطر أعملها وحده وحده، أما بالكود أحطها في الوورك بوك (أكتيفيت) وأمشي فيهم على السريع، يضبط معي.

لقد جربته بالتأكيد أستاذي والمشكلة كانت أن هذا الملف المرفق أنا سبق وحذفت منه عمود لذلك نسخت الكود على ملفي الأصلي فما ضبط، لكن شكرا على التوضيح وفهمت طريقة عمل الكود If c = 3 Then .Text = .Text Else .Value = .Value فقط غيرت رقم 3 إلى 4 وضبط معي، ألف شكر أستاذنا الحبيب. المعذرة على ازعاجك استاذنا قلب الأسد لكن هل يمكن حذف الصفوف التي تحتوي على كلمة المجموع طبعا سبق ونزلت موضوع بعنوان: كود حذف الصفوف بناء على قيمة محددة فلو في مجال تعمل لي طريقة تريحني بها لأن هذا الملف أنا أحمله من نظام الوزارة عندنا فأحتاج أطبق هذه الأكواد عليها حتى تسرع لي العملية وتوفر لي الوقت في عمود (المدرسة) راح تجد كلمة المجموع أريد حذف الصف كاملا طبعا يكون داخل كود فك الخلايا المدمجة لو تكرمت واعذرني أثقلت عليك، وأسأل الله يثيبك ويرزقك ويفتح عليك. تقرير غياب 2019- - - 1 - Copy.xlsb

أحبتي الكرام هل يمكن التعديل على هذا الكود؟

ما شاء الله تبارك الرحمن نفع الله بكم أساتذتنا الكرام إي بالله صدقت نفخر بوجود أمثالكم، وتقبل الله منكم. عفوًا أيها الكرام هل ممكن حل لمسألة الشعبة مثلا 10\7 مع فك الدمج يعطيني تاريخ!!

السلام عليكم ورحمة الله وبركاته تقبل الله صالح أعمالكم بالنسبة للعنوان أعلاه، وجدت كودًا نافعًا في تصفحي لمواقع الاكسل وأحب أن يستفيد الجميع دونكم الكود: Sub DeleteRows() Dim rng As Range Dim InputRng As Range Dim DeleteRng As Range Dim DeleteStr As String Dim xTitleId As String Dim xArr Dim xF As Integer Dim xWSh As Worksheet On Error Resume Next xTitleId = "KutoolsforExcel" Set rng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8) If InputRng Is Nothing Then Exit Sub DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) Set xWSh = InputRng.Worksheet For Each rng In InputRng If rng.Value = DeleteStr Then If DeleteRng Is Nothing Then Set DeleteRng = rng Else Set DeleteRng = Application.Union(DeleteRng, rng) Set DeleteRng = DeleteRng.EntireRow End If End If Next xArr = Split(DeleteRng.AddressLocal, ",") DeleteRng.Select DeleteRng.Delete For xF = UBound(xArr) To 0 Step -1 Set DeleteRng = xWSh.Range(xArr(xF)) DeleteRng.Delete Next End Sub

جزاكم الله خيرا أساتذتي الكرام الحمد لله حصلت على الكود المطلوب في أحد المواقع Sub UnMergeSameCell() Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Rng In WorkRng If Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته تقبل الله طاعتكم كيف يمكن بعد فك الدمج يتم كتابة وتكرار نفس البيانات التي كانت مدموجة تقرير الطلاب1.xlsb

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

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

وعليكم السلام ورحمة الله وبركاته بالتوفيق 11.xlsx

تفضل أخي سيعمل معك الكود Book1.xlsm saaad 213المعذرة لقد أتى بها الأخ فجزاه الله خيرا.

أستاذنا آسف على سؤالي، لكن لماذا جهازك لا يدعم العربية؟

تفضل شيت حركه النقديه مفتوح المصدر.rar

ارفق ملفك لو تكرمت

عند كلمة function اكتب قبلها ptrsafe function عند كلمة long اكتب بعدها LongPtr

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

الحمد لله الذي بنعمته تتم الصالحات آمين وإياكم.

اها المشكلة في جهازك تحتاج تعدل على لغة الجهاز من خلال الذهاب إلى ضبط الوقت والتاريخ ثم region ثم change date format ثم administritv غير الثاني إلى arabic راح يعاد تشغيل الجهاز وثم تكون أمورك طيبة.

تفضل المخزن.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل Time Attendance Details Report 15022022_125100.xls

وعليكم السلام ورحمة الله وبركاته جرب معادلة ROUND هكذا اصنع: =ROUND(A1;0)

وعليكم السلام ورحمة الله وبركاته ارفق ملفك لو تكرمت

عند كلمة function اكتب قبلها PtrSafe function وعند كلمة long اكتب بعدها longPtr وراح يعمل معك إن شاء الله

وهذا ملف أعددته واستفدت الأكواد من الإخوة في المجموعة، بل الشيت بأكمله ومعادلاته، فجزاهم الله خيرا وتم تطويره بما يناسب احتياجاتي .. لأي فكرة أو إضافة أو تحسين للملف...نسعد بتوجيهاتكم. كشف درجات الطلاب - نهاية الفصل الدراسي الأول.rar

كنترول.xlsm