نجوم المشاركات

لا اتفق معك استاذنا العزيز طاهر مثلا الان نحن في شهر 9 ميلادي 2 هجري لو حولت التاريخ وفقا لما صنعت سيكون الميلادي 2022 والهجري 1444 وهذا تمام جزئيا لكون الاشهر الستة الاولى من شهر 2022 توافق العام 1443 بعد اربعة اشهر يكون الميلادي 2023 والهجري وفقا لعملك 1445 وهذا غير صحيح لكوننا مازلنا في الشهر السادس 1444 ايضا جزء من عام 2024 سيكون ضمن العام الهجري 1445 والعام 1446 وعام 2025 سيكون ضمن العام 1446 والعام 1447 هجري ايضا العام 2030 بحسابك سيكون 1453 بينما يفترض ان يكون 1451 والعام 1452 اعتقد ان العمل يحتاج الى اعادة النطر والتحويل بالسنة بدون اليوم والشهر لن يعطي النتيجة المطلوبة رأي شخصي غير ملزم

تفضل اخي Sub MH_copy() Dim i As Long Application.ScreenUpdating = False With Cells(1).CurrentRegion For i = 2 To .Rows.Count Step 6 lastro = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1 .Rows(i).Resize(6).Copy Range("c" & Rows.Count).End(xlUp)(2).PasteSpecial Transpose:=True Next End With If Range("c3").Value <> "" Then Range("C2:h" & lastro).Select With Range("C2:h" & lastro).Borders.LineStyle = xlNone Range("C2:h" & lastro).Borders.LineStyle = xlContinuous Range("a1").Select Application.ScreenUpdating = True End With End Sub 1.xlsm

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

السلام عليكم ورحمة الله استخدم المعادلة التالية =OFFSET(البيانات!$A$2;COUNT(البيانات!$A:$A)-1;0)

مداخلة جميلة ومعلومة مهمة كبداية : المتبع في معظم الادارات الحكومية والشركات احتساب الشهر عموما 30 يوما عند التصفية او حساب الخدمة ونحو ذلك لو ضربت 30 في 8 في 60 لنتج 14400 دقيقة .. وهذه معادلة ثابتة تطبق سواء اكتمل الشهر او تخلله اجازات .. وهي في صالح العامل انظر هنا في المثال حل مختصر سريع لمبلغ الخصم اليومي .. حسب المعادلة اعلاه Expr1: (14400/[empsalary])*DateDiff("n";#07:30:00 AM#;[ADD_start]) جرب ووافني برأيك حيث يمكن التوسع في المسألة حساب التأخيرات2.accdb

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

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

العفو أخي العزيز 🙂 معلمومة : لكي تتم عملية النسخ الكود يحتاج إلى اسم الملف كاملا مع الامتداد هكذا مثلا (fileName.pdf) سؤال : في حقل اسم الملف هل سيتم كتابة الاسم كاملا مع الامتداد (pdf.) أم الاسم لوحده فقط (fileName) ؟ سؤال آخر :وهل جميع الملفات pdf أم ستكون مختلفة ؟

مبارك عليك اخي واستاذي @AbuuAhmed والله اسأل ان ينفع بك انت وكل من يتعون معنا في هذا الصرح العلمي المبارك

Sub Convert_Formula_To_VBA() Dim ws As Worksheet, lr As Long Set ws = ThisWorkbook.Worksheets("Sheet1") Application.ScreenUpdating = False With ws lr = .Cells(Rows.Count, 2).End(xlUp).Row With .Range("C2:C" & lr) .Formula = "=COUNTA(A2,B2)" .Value = .Value End With End With Call Convert_Formula_To_VBA2 Application.ScreenUpdating = True End Sub كما يمكنك وضع الكود بهذه الطريقة Sub Convert_Formula_To_VBA3() Dim ws As Worksheet, lr As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("Sheet1") With ws lr = .Cells(Rows.Count, 2).End(xlUp).Row With .Range("C2:C" & lr) .Formula = "=COUNTA(A2,B2)" .Value = .Value End With With ws With .Range("D2:D" & lr) .Formula = "=COUNTA(A2,B2,C2)" .Value = .Value End With End With End With Application.ScreenUpdating = True End Sub

السلام عليكم و رحمة الله لا اعلم ان كانت المشكلة من التنسيق او وجود بيانات مخفية تجعل البيانات ترحل بعد الصف 387 لتتأكد بنفسك انزل الى الصف 387 و سوف ترى البيانات التى تم ترحيلها لكى يعمل معك الكود بدون مشاكل ..حدد النطاق من B8 الى مثلا G400 مثلا ثم اضغط على زر Delete ليتم مسحها و ينتهى الامر ..ثم اضعط زر الترحيل سترى البيانات و قد رحلت ..هذا و الله ولى التوفيق

كان عليك استخدام خاصية البحث بالمنتدى قبل طرح مشاركتك فبه طلبك -تفضل https://www.officena.net/ib/search/?&q=تفقيط مساحة&search_and_or=and&sortby=relevancy

أحسنت استاذ عادل عمل رائع شكراً جزيلاً لجهودكم

أخي وأستاذي @jjafferr كتبت.. فأبدعت.. ووجهت.. فأحسنت.. ولا غرابة،، فلك من اسمك نصيب.. فأنت نهر من العطاء.. شكر الله لك ورضي عنك.. وعن كل من قرأ ودعا ونفع الناس من المسلمين والمسلمات،،

شكرا اخوي موسى 🙂 وهذا رابط أخر ، فيه شرح يخص الاستعلام : جعفر

وعليكم السلام أخي حامل المسك 🙂 جرب .. أكتب في المعيار : Like IIf(Len([Forms]![a123]![a1] & '')=0;"*";[Forms]![a123]![a1]) وراجع ( طرق التعامل مع الامر Like في الاستعلام ) مع مهندسنا العود @jjafferr 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 اخوي موسى اعطاك سمكة ، واليك طريقة اصطياد السمكة بطريقة سهلة 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته أخي أبو عبدالله 🙂 الرابط التالي ليس شرح لكيفية كتابة الدالة ، وإنما هي أداة تقوم بكتابتها نيابة عنك بمختلف أشكالها ووضعياتها .. ويمكنك من خلال الاطلاع على النتيجة تعلم الصياغة السليمة للدالة .. 🙂 💡⭐✨ --- الكاتب الآلي الذكي لدوال المجال Dloockup وأخواتها 😊 --- ✨⭐💡 تحياتي 🙂

السلام عليكم ورحمة الله استخدم هذا الكود Sub SSheet() Dim ws As Worksheet, Data As Worksheet, ShName As String Dim LR As Long, ER As Long, x As Integer Set Data = Sheets("Sheet1") ShName = Data.Range("C3").Text ER = Data.Range("B" & Rows.Count).End(3).Row x = ER - 7 For Each ws In Worksheets If ws.Name = ShName Then LR = ws.Range("B" & Rows.Count).End(3).Row ws.Name = ShName ws.Range("B" & LR + 1).Resize(x, 5) = Data.Range("B8").Resize(x, 5).Value End If Next End Sub

بارك الله فيك وزادك الله من فضله

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

مطلوبك غير محدد وغير مفهوم ... ممكن توضيح اكثر او مثال مرفق مصغر للمطلوب

وعليكم السلام .. يمكنك استخدام هذه المعادلة فى عمود المعدل G =F2/COUNT(B2:E2) وهذه المعادلة لعمود الحالة E =IF(D11<>"","مفصول",IF(C11<$A$9,"متخرج","مزاول")) كتابة الدالة1 if.xlsx

الحمد لله تقلص الحل إلى سطر واحد فقط 🙂 TreeView1.Nodes("A" & Me.AccID).Selected = True الأخ @محمد القدسي لقد قمت بتنظيم الكود كشكل فقط لتسهيل المراجعة وفهم أدائه. سأجعل هذا المثال لدراسة الشجرة والوصول إلى حلول جديدة إن وجدت. شجرة حسابات_04.rar

تم التخلص من الاستعلامات واستبدالها بعبارة SQL ، وعبارة الـ اس كيو ال مطلوبة بشدة عندما يريد المبرمج أن يبدل نوع رقم الحساب من نصي إلى رقمي. شجرة حسابات_03.rar

تفضل

بسيطة يمكنك استخدام هذه المعادلة فقط =SUMIFS($C$4:$C$17,$F$4:$F$17,"<>"&"مسدد",$B$4:$B$17,"<"&$H$2) 6.xlsx

تفضل بالتنسيقات الشرطية 1.xlsx

بارك الله فيك استاذ حسونة سيتم الرد ان شاء الله من استاذنا الكبير الدكتور محمد طاهر عرفه عندما تتيح له الفرصة لذلك فربما يكون مشغول جداً فى هذه الأوقات .. بالتوفيق ان شاء الله للأستاذ ابراهيم الحداد وان شاء الله سيعود له حسابه القديم

تفضل لقد قمت بالتعديل على الملف ليقوم بضغط الواجهة مباشرة دون ظهور خيارات أخرى mas_backup2.mdb

أخى الكريم هذه الحركة غير مطابقة لإسم الحساب ح/ البنك اليمنى جارى ريال موجودة ولكن لا تساوى اسم الحساب أى تحت اسم حساب اخر وهما: من فضلك لاحظ الفرق فى اختلاف الأسماء مع اسم الحساب المعنى بجلب بياناته بارك الله فيك

جرب هذا تجربة.xlsx

جرب هذا الاستاذ المساعد.xlsx

تفضل استاذى الكريم جرب هذا بحث-1.xlsm

تفضل أخى الكريم 1256.xlsm

جزاك الله كل خير وبارك الله فيك

تفضل اجعل المعادلة هكذا فهناك مشكلة فى ملفك =IF(ROWS($G$2:G8)>$J$1,"",INDEX($A$2:$A$1000,MATCH(LARGE((MATCH($A$2:$A$1000,$A$2:$A$1000,0)=ROW($A$2:$A$1000)-ROW($A$2)+1)*(SUMIF($A$2:$A$1000,$A$2:$A$1000,$B$2:$B$1000)-ROW($A$2:$A$1000)/1000),ROWS($A$1:A7)),(MATCH($A$2:$A$1000,$A$2:$A$1000,0)=ROW($A$2:$A$1000)-ROW($A$2)+1)*(SUMIF($A$2:$A$1000,$A$2:$A$1000,$B$2:$B$1000)-ROW($A$2:$A$1000)/1000),0))) ولا تنسى الضغط على Ctrl+Shift+Enter جزاك الله كل خير

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