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

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

كلامك صحيح اخ كرار كان الخطأ في لم اكتب حرف 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/ لو الموضوع مكلف ومرهق بالنسبة لك .. لا يكلف الله نفساً إلا وسعها .. الموضوع مجرد فضول لشيء جديد قد يكون مفيد لإخواننا بالمنتدى تقبل وافر تقديري واحترامي

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

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

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

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

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

أحرجتني بطيب أخلاقك بعد تغيير الرقم بـ Rows.Count أصبح العمل كاملا ونموذجيا جدا فلك كل الشكر والتقدير . لاحرمنا الله منك ومن علمك . وجعل ذلك في ميزان حسناتك .

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

ايه الجمال والحلاوه دى حلول ولا اروع جزاكم الله خيرا اخوانى الكرام

السلام عليكم بالفعل استاذى / ابو البراء مثل هذا الملف حلة بالمعادلات اسهل وايسر ..وما قدمت الكود الا بناء على طلبة .. مشاركة 5 .. وبالتاكيد معادلات اساتذتى الكرام تفى بالمطلوب تماما تقبلوا خالص احترامى وتقديرى

السلام عليكم تفضل أخى هذا حل عن طريق كود فى حدث الورقة 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

ممكن ولكن على عكس ما ذكرت العربي لليسار والإنجليزي لليمين

up

شكرا لك اخى الكريم .. الحمد لله الذى بنعمتة تتم الصالحات عادة هذه العلامة ليس معناها وجود خظأ بالصيغة يمكنك ازالتها باكثر من طريقة ايسرها تحدد الخلايا التى تحوى هذه العلامة ثم كليك يمين واختيار I gnore Error ويمكنك الاطلاع عل الرابط التالى لفهم معناها https://support.office.com/en-us/article/Correct-an-inconsistent-formula-75c352c2-896d-4f34-ad2d-92df5b226a4e

السلام عليكم ورحمة الله تعالى وبركاته اعتذر للتأخير كنت اصلى العشاء اليكم المرفق المرفق بتنسيق اوفيس 2003 ولاخى الحبيب محمد سلامة تجد هذا الكود فى حدث عند الفتح لنموذج باسم frmSplash هذا هو الكود المسئول عن عدم فتح قاعدة البيانات لو تغير اسمها يجب كتابة اسم القاعدة بالامتداد وعدد الحروف وتحسب من ضمنها المسافات ان وجدت تقبل تحياتى بكل الحب والود On Error Resume Next If CurrentProject.Name = "ActualDaysCalcult.mde" And Len(CurrentProject.Name) = 21 Then Else MsgBox "It changed the name of the program should not change the name to be able to run it" & vbCrLf _ & "So the program will be shut down until the correct name of the program or contact the author using .." DoCmd.Quit End If ActualDaysCalcult-unprotected.zip ActualDaysCalcult-unprotected.rar ActualDaysCalcult-unprotected.zip استغفر الله العلى العظيم من كل ذنب كبير والله ما انسانى الا الشيطان ادين بالفضل لاستاذى الجليل ابو خليل فى هذا الموضوع وهو اولا لانه يتحملنى كثيرا وتقريبا اول من بدأت التعلم منه وكان اول من تحملنى حين بدات الاستاذ الفنان والساحر العبقرى الاستاذ جعفر استخدمت كود اظهار اسم اليوم بناء على التاريخ من خلال مرفق تفضل على به الاخ الحبيب ومعلمى الاستاذ ابا عمر بارك الله فيه اخفاء اطار الاكسس نهائيا بتلك الطربقة كل الشكر والتقدير لكل اساتذتى اعلم انى اخطأت فى حقكم انى استندت الى ما تعلمته منكم ونسيت ان انسب الفضل اليكم بعد رب العباد اعتذر لكم جميعا والله لم اقصد

أفضل الأعمال وأحبها إلى الله تعالى الصلاة على وقتها...فلنحافظ عليها ولنحسن أداءها ولنخلص النية فيها ولا نسرق منها أو نضيع . أرحنا بها يا بلال... والسلام عليكم ورحمة الله وبركاته.

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

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

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

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

محمد الحازمي... شكرا لك على المساعدة. وارجو لك التوفيق...

السلام عليكم اخ عبدالله الشك الجزيل لك اخ عبدالله وللمهندس طارق على الجهد المبذول ووفقكم الله لمراضيه وجعلها في ميزان حسناتكم ولقد تم المطلوب وظهر لي عند التطبيق ان الصف الأول لا يتم التعديل عليه بتوزيع درجات القرار واذا كان بالإمكان المطلب الثاني الذي قد ادرجته مسبقاً وادرجه هنا حيث شاهدت الكود الذي أنشئ من قبل المهندس طارق في البرنامج واعتقد هناك إمكانية للتعديل عليه او الإضافة فيه لاحتواء الموجود في ادناه ......ارجو المعذرة على الاطالة ولك جزيل الشكر اخ عبدالله والمهندس طارق ولكل اعضاء المنتدى: درجات المواد في الملف قادمة من محصلة جمع درجتين درجة تسمى (محصلة الكورس) وهي من (40) وهي ثابتة ودرجة امتحان نهاية الكورس من (60) وهي متغيرة حيث تجمع الدرجتان لتصبح درجة واحدة من (100) وطبعاً درجة النجاح هي (50) ثم يستخدم قرار الـ 10 درجات والدرجة التي لا يسعفها القرار سوف يكون الطالب مكمل فيها ...والسؤال هنا لو تساوت درجتان مثل درجة 49 في الرياضيات ودرجة 49 في الفيزياء ولدينا درجة واحدة من القرار متبقية الى من تضاف للرياضيات او الفيزياء لتصبح 50 والاخرى مكملة حسب اللوائح والارشادات التي لدينا يتم الرجوع الى درجة (محصلة الكورس) الثابتة الاقل وتعتبر هي المعيار في التفضيل ...تفصيل اكثر لو ان درجة محصلة الكورس في الرياضيات هي مثلاً 20 من اربعين ودرجة امتحان نهاية الكورس هي 29 من ستين وبعد الجمع (49) ...بينما في الفيزياء درجة محصلة الكورس هي 30 من اربعين ودرجة امتحان نهاية الكورس هي 19 من ستين وايضاً بعد الجمع تكون 49 ... فالمادة التي تفضل لاضافة درجة القرار المتبقية الواحدة هي الرياضيات لأن درجة محصلة الكورس لها هي 20 من اربعين اقل من درجة محصلة الكورس للفيزياء التي هي 30 من اربعين لمصلحة الطالب الملف الكامل-6.rar

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

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

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

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

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

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

تابعوا موضوع الباركود على http://www.officena....topic=61143&hl=

الحمد لله تعالي الذي هيأ ليّ الأمر وحسنه حتي ساعدني علي إنهاء هذا العمل ....... شيت المرتبات .... مفردات المرتب لكل موظف .... الأعباء الوظيفية للمعلمين والحد الأدني اداريين وعمال .....وأخري مرتبات تربية وتعليم.rar

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