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

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير .. تقبل تحياتي

كلامك صحيح اخ كرار كان الخطأ في لم اكتب حرف r في recordsetclone والحقيقة كتبت الامر مباشرة في المنتدى وها انت اتيت بفكرة اخرى ومرفق جزيت خيرا . ويمكن كتابة ماتفضلت به كالتالي If DCount("[gh]", "جدول2", "[idd]=" & [id]) = 0 Then MsgBox ("no data") وهذا احد الروابط بالمنتدى بالتوفيق

أخي الكريم أبو عبد الإله جرب الكود التالي عله يفي بالغرض Sub TransferFromSheets() Dim WS As Worksheet, SH As Worksheet, LR As Long, Cell As Range, lRow As Long, I As Long Set SH = Sheets("خلاصة") lRow = 5 Application.ScreenUpdating = False Application.Calculation = xlManual With SH.Range("B4").CurrentRegion .Offset(1).ClearContents: .Offset(1).Interior.Color = xlNone: .Borders.LineStyle = xlNone .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With For Each WS In ThisWorkbook.Worksheets If WS.Name <> SH.Name And WS.Name <> "الدروس" And WS.Name <> "العلامات" And WS.Name <> "ورقة2" Then LR = WS.Cells(31, 3).End(xlUp).Row If LR < 11 Then GoTo Skipper For Each Cell In WS.Range("E11:E" & LR) If Not IsEmpty(Cell) And IsDate(Cell) Then SH.Cells(lRow, "C").Resize(1, 4).Value = Cell.Offset(, -2).Resize(1, 4).Value lRow = lRow + 1 End If Next Cell End If Skipper: Next WS Call RemoveDuplicateRows For I = 5 To SH.Cells(Rows.Count, "C").End(xlUp).Row SH.Cells(I, "B").Value = I - 4 Next I With SH.Range("B5:F" & SH.Cells(Rows.Count, "C").End(xlUp).Row + 1) .EntireRow.RowHeight = 19: .ReadingOrder = xlRTL: .Font.Bold = True .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With With SH.Range("B" & SH.Cells(Rows.Count, "B").End(xlUp).Row + 1) .Resize(1, 4).HorizontalAlignment = xlCenterAcrossSelection .Resize(1, 4).Interior.Color = 5287936 .Value = "مجموع المشاركين" .Offset(, 4).Formula = "=COUNTA(F5:F" & .Row - 1 & ")" End With With SH.Range("B4").CurrentRegion .Borders.Weight = xlThin: .BorderAround Weight:=xlThin: .Range("A1").Select End With Application.ScreenUpdating = False Application.Calculation = xlAutomatic End Sub Sub RemoveDuplicateRows() Dim Rng As Range With Sheets("خلاصة") Set Rng = .Range("C4:F" & .Cells(Rows.Count, "C").End(xlUp).Row) Rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes End With End Sub تقبل تحياتي

السلام عليكم جرب المرفق التالى علة المطلوب إظهار باقي الكمية.rar

هذا هو الحل الذى توصلت اليه ان شاء الله تستفادوا منه وجزاكم الله خيرا داله اليوم بالتاريخ- للتعديل.rar

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

اها الحمد لله شريتو وارسلتو حالا للاستاذ ياسر وجزاكم الله كل خير

أخي الكريم أبو عبد الإله جزيت خيراً بمثل ما دعوت لنا ..بارك الله فيك بالنسبة لطلبك فقد قمت به بالفعل في الكود في هذا السطر LR = WS.Cells(31, 3).End(xlUp).Row حيث الرقم 31 هو رقم السطر المظلل بالأسود .. وهذا طلبك .. يمكنك استبدال الرقم 31 بكلمة Rows.Count ليتم احتساب آخر صف في العمود الثالث بالكامل إذا لم يكن هذا مقصودك فبرجاء التوضيح بالصور أو بالأمثلة أو بإرفاق شكل النتائج المتوقعة تقبل تحياتي

اثراءً للموضوع هذه المعادلة =IF(MONTH(DATE($E$2,$D$2,ROWS($A$1:A1)))=$D$2*1,DATE($E$2,$D$2,ROWS($A$1:A1)),"")

طيب مقولتوش يا ايها الياسران ماذا نحن فاعلون هههههههههههههه هل سنقوم بتخطيط المكتبه والقاعده من الاول ولا هنستخدم حاجه زى الموجوده فوق انا اولا مش ضد الشراء بس مش بحب اشترى من الغرب اللى بيقتلوا فين وفى اخواتنا فى كل مكان واذا لزم الامر للشراء سوف اتكفل به باذن الله تعالى فى انتظار ردكم يا ايها الياسران اخى اسامه لا فضل ولا حاجه الفضل كله لله ثم لاخواننا هنا الذين لا يبخلون علينا بالمعلومات القيمه جزاك الله كل خير ووفقك الله لكل مافيه خير وفلاح بالتوفيق وده تطبيق لاقيته برضه يمكن ينفع برنامج حفظ أكواد البرمجه بالتوفيق

اخي الغالي سيف الدين0 في مكتبات فارغه صفر زي الموجود بجانب اسمك ياريت تشيله ملوش لازمه وفي مكتبات بها اكواد جاهزة انت تقوم بانتقاء الكود المناسب وتنسخه لتعمل عليه وهنا نحن نحتاج مكتبه فارغه نضع بها اكوادنا لتكون ممتلئة كي نستخدمها وكل الاعضاء لمساعدتنا في ايجاد الكود المناسب في اسرع وقت وباقل مجهود بدل ما افضل انكش في كوم الزبالة اللي على جهازي دا طبعا كل الشكرو التقدير لكل من تعاون وعرض المساعدة هنا لكم منا كل التقدير والاحترام ياعم احمد ياعم ابو البراء الشات الاستضافة بتقول انه بيحمل على وحدات المعالجة المركزية للسيرفرات هههههههههههههههههه شات من غير الوان ومن غير اموشن ومن غير صوت ومن غير اي حاجه وعامل كل دا هههههههههه

داله اليوم بالتاريخ- للتعديل.rar السلام عليكم الاخ الحبيب/ احمد الفلاحجى.. اضافة بسيطة على الملف المقدم من حضرتك لكى يتحاشى ما اشار اليه أ.سليم =IF(DAY(EOMONTH($D$2&" / "&$E$2;0))<ROW(A1);"";DATE($E$2;$D$2;ROW(A1)))

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

بعد اذن اخي افاضل رجب جرب هذا الملف داله العطل بالتاريخ salim.rar

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

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

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

عن الْبَرَاءِ بْنِ عَازِبٍ ، عَنِ النَّبِيِّ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : أَنَّهُ أَوْصَى رَجُلا فَقَالَ : " إِذَا أَخَذْتَ مَضْجَعَكَ فَقُلِ : اللَّهُمَّ أَسْلَمْتُ نَفْسِي إِلَيْكَ ، وَوَجَّهْتُ وَجْهِي إِلَيْكَ وَفَوَّضْتُ أَمْرِي إِلَيْكَ ، وَأَلْجَأْتُ ظَهْرِي إِلَيْكَ ، رَغْبَةً وَرَهْبَةً إِلَيْكَ ، لا مَلْجَأَ وَلا مَنْجَا مِنْكَ إِلا إِلَيْكَ ، آمَنْتُ بِكِتَابِكَ الَّذِي أَنْزَلْتَ وَبِنَبِيِّكَ الَّذِي أَرْسَلْت.َ ، فَإِنْ مَاتَ مَاتَ عَلَى الْفِطْرَةِ "

بارك الله فيك اخ محمد ونفع الله بك اعجبتني فكرة الدوران بين تاريخين حيث المعتاد ان الدوران يتم بين ارقام ! بالتوفيق

أخي الكريم أسامة بارك الله فيك وجزاك الله كل خير على المبادرة الطيبة صراحة مش عايز أغرم حد ولا حتى ربع جنيه .. بس لو الأمور ميسرة بالنسبة لك ومفيش مشكلة بالنسبة للـ 15 دولار ..يبقا مفيش مشكلة توكل على الله ونجرب البرنامج هو حب فضول لشيء مجربتوش قبل كدا ومعرفش مدى الاستفادة الكاملة منه غير لما نجربه .. بالنسبة لعملية الشراء أنا أجهل التعامل بتلك الأمور لأنني لم أجربها من قبل ..دا رابط البرنامج يبدو أنني نسيت أن أضعه في أول الموضوع http://analystcave.com/downloads/vba-time-saver-kit/ لو الموضوع مكلف ومرهق بالنسبة لك .. لا يكلف الله نفساً إلا وسعها .. الموضوع مجرد فضول لشيء جديد قد يكون مفيد لإخواننا بالمنتدى تقبل وافر تقديري واحترامي

اخى اسامه ابو عمر جزاك الله خيرا على هذه المبادره الحسنه ان شاء الله ربنا ييسرها ومنشتريش الا اذا لزم الامر والامر متروك لابو البراء لانه من طرح الفكره وهو من سيتخذ القرار بالتوفيق اخى

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

اخي محمد عصام تفضل هذا الرابط سوف يفيدك جدا في طلبك

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي ياسر ..دائما سبّاق إلى الفلوس ..أقصد سبّاق للخيرات فائق إحتراماتي

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

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

اتجاوزت حد المعالج يا ياسر ههههههههههههههههههههه يالا معلهش المره الجاية بقا

عزيزي الأستاذ جعفر طال انتظارنا لإبداعك لمسقط التقارير الإصدار الثاني والذي نود أن يكون فيه الإماكنيات التالية : 1 - حفظ التقارير الناتجة منه . 2 - إمكانية التصفية على حقول متعددة فمثلا على حسب عملي يمكننا اختيار المرحلة الدراسية ثم الصف الدراسي ثم الفصل الدراسي أو أي من الخانات الأخرى التي في الأعمدة المتوفرة في الجدول أو الاستعلام . 3 - إمكانية تنسيق التقرير المعد بتغيير نوع الخط وحجمه وسمته هل عريض او رفيع أو مائل أو غير ذلك من أنواع التنسيق حتى اللون . 4 - إمكانية تنسيق عنوان التقرير منفصلا ومختلفا عن محتوى التقرير . 5 - إمكانية وضع أعمدة في التقرير فارغة أو إضافة عناوين لأعمدة غير موجودة في الجدول أو الإستعلام أو إمكانية تحرير عناوين أعمدة التقرير بمعنى التغيير في عنوانها . أعرف مقدما أن هذه الإمكانيات صعبة التنفيذ لكنها بلا شك ليست مستحيلة خاصة على مبدع مثلك وبمعاونة الأخوة الزملاء العباقرة أعضاء هذا المنتدى . وقد أرفقت لكم من قبل فكرة مصمم تقارير فيه الكثير من تلك الإمكانيات لكنه صعب في الإضافة لكل برنامج وأعيد إرفاقه اليوم https://dl.dropboxusercontent.com/u/61597795/mosamm.rar واليوم أرفق لكم خاصية تعديل نوع الخط وتنسيقه من إعداد الزميلة أم عهود وقعت عليه من المشاركات القديمة لكني أيضا لا أعرف كيف أضيفه لبرنامجي ولعل تلك الأدوات تكون فعالة ومساعدة في تنفيذ الأفكار التي أراها بخبرتي المتواضعة مهمة . وفي ردي على سؤالك لماذا مسقط التقارير فلاإجابة لأنه يسهل العمل جدا لعدد كبير من التقارير يستلزم تصميمها الكثير من الوقت والجهد . كلنا شوق لرؤية الإنتاج المبدع من أيديكم سهل الله لكم طريقا إلى الفلاح والنجاح والتفوق والإبداع . za-font style and align-LAST.rar

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

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

ايه الحلاوة دي يامعلم احمد بتعمل قرشين على قفانا برنامج كويس ومختصر طيب ابعتلي قرشين هنا بقي عشان تدخل الشات :) شات هههههههههه تجربة

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: لعلك لاحظت في هذا القسم دعوة إلى الله تعالى وإليك الرابط التالي وانظر إلى مساهمات الإخوة الكرام حاولنا إحياء هذا القسم ولكن رواده أقلة وذلك لأن كل منهم يبحث عن حاجته من العلم (إكسيل - أكسز - وورد ..إلخ) لا يلتفت إلى غيرها إلا ما ندر وقد لا يحسون أن هذا القسم موجود أصلاً وكذلك الاجتماعي ...والله المستعان والسلام عليكم.

السلام عليكم تفضل أخى هذا حل عن طريق كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim R_N As Range Dim cl As Range Dim x As Integer If Target.Address = [L4].Address Then With Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row) Set R_N = .Find(What:=[L4], LookAt:=xlWhole) [O4] = Cells(R_N.Row, 3) End With End If If Target.Address = [L4].Address Or Target.Address = [M4].Address Then [Q4] = "" For Each cl In Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row) If [L4] = cl And [M4] = cl.Offset(0, 2) Then x = Application.WorksheetFunction.Match([O4], [E2:I2], 0) + 4 [Q4] = Cells(cl.Row, x) End If Next End If End Sub اسعار متعدده.rar

السلام عليكم اخى الكريم .. استبدل المعادلة الموضوعة بالخلية F4 بهذه المعادلة =IF(E4+D4=0;0;MAX(0;SUM($F$3;$D$4:D4)-SUM($G$3;$E$4:E4))) والمعادلة الموجودة بالخلية G4 بهذه المعادلة .. ثم قم بالسحب لاسفل =IF(E4+D4=0;0;MAX(0;SUM($E$4:E4;$G$3)-SUM($D$4:D4;$F$3))) اليك المرفق حساب جاري برصيد متحرك.zip

شكرا جزيلا لك أخي زيزو رحمك الله ووالديك، وأسأله أن يجازيك عني خير الجزاء.. آمين

ما النت فريم وورك اصدارات ممكن بيعتمد على اصدار معين هتأكد من المكتبة واشوفلك مشكلتها باذن الله وعلى ما اشوفها شوف المكتبة دي بالمرة انا بلاقيهم على الجهاز مش بنزلهم كلها كنت منزلها ايام شغل الفيجوال ببيسك 6 والدوت نت المهم كله بيقوم بنفس الغرض وهو حفظ الاكواد Code Library.rar

السلام عليكم ورحمة الله اليك الحل باذن الله القوائم الاسمية.rar

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي" ياسر خليل أبو البراء" على الأفكار النيّرة .. لمّا تشتريه و تجرّبه .. لا تنس أخاك .. إبعثهولي .. فائق إحتراماتي

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

يمكن استعمال هذه المعادلة البسيطة (اختر منها النطاق المناسب) =SUMPRODUCT(--ISNUMBER(SIGN($A$1:$A$8)),$A$1:$A$8)

استخد الدالة SUM بدلاً من علامة الجمع لتلافي الخطأ الناتج عن المعادلة تكون بهذا الشكل علامة يساوي يليها اسم الدالة SUM ثم ما بين أقواس ( ) نضع الخلايا المطلوب جمعها تقبل تحياتي

بعد اذن الاخوان اسمحوا لي ان اقدم هذا الملف الذي يضيط بالشكل التام اوتو ماتيكياً اخر الشهر 30و31 29 أو 28 داله اليوم salimبالتاريخ.rar

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

وجزيت بمثل ما دعوت أخي الكريم أحمد الحمد لله أن تم المطلوب على خير تقبل تحياتي

يمنكن استعمال هذه المعادلة(زيادة في اثراء الموضوع) =IFERROR(CHOOSE((A3<25)+1,MROUND(A3,0.25),MROUND(A3,0.05)),"")

جرب المرفق ان كان ما تريد حدد كأفضل إجابة ليصبح الموضوع مجاب ومنتهى تقريب عدد عشري.rar

أخي الكريم كل عام وانت بخير طيب ممكن ترفق الملف أو الشيت اللي عاوز تطبق عليه أي من الأكواد وقولي المطلوب بالتحديد وان شاء الله اطبقلك المطلوب عليه

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

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

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