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

جرب الملف التالي اسماء الاخوة (salim).zip

السلام عليكم أخي عبد العزيز -أعزك الله - ممتاز ....جهودك مشكورة. وفقكم الله لما يحب ويرضى تقبل تحياتي.

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

جرب هذا الشيء Classeur1salim.zip

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

افرض عندك قائمة طويلة في احدى أعمدة الاكسيل و تحتوي هده القائمة على 5000 اسم مثلا .. و في مكان أخر هنالك خلية تستعمل لادخال اسم من الأسماء الموجودة بالقائمة .. هدا السيناريو يحتاج في الغالب الى قائمة منسدلة Data Validation List لتفادي الادخال في الخلية أسماء غير موجودة على القائمة ... هدا حل جيد لكنه بطيئ حيث يتطلب من المستخدم البحث بين 5000 اسم بواسطة شريطScrollBar قبل أشهر كتبت هدا الكود الدي يستدعي و يفلتر الأسماء أليا بمجرد بدأ كتابة الأحرف الأولى ... ملف للتحميل : https://app.box.com/s/v6uamjb6tad3ozs6ajw0bnt61292ja7v طريقة العمل : 1- Activate the Input Cell 2 - Press F1 Key to bring up the list 3 - ... Start Typing in and the list will get filtered automatically based on the letters you have typed 4 - Press Enter Key or use the Down /Up Arrow navigation Keys when the searched Item is found or Press the ESC Key to Cancel the whole operation

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

جزاك الله خيرا استاذ محمد على المثال الرائع والشكر موصول للاستاذ رمهان

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

وعليكم السلام ورحمة الله وبركاته أعجبني كود حماية الخلية عند كل تنقل إذا احتوت معادلة بارك الله فيك وجزاك خيرا

اخى الفاضل هذا ما ابحث عنه كيف تقوم بتحديد مصدر ComboBox (ActiveX control) أهلا بك أخي الكريم من خلال تسمية مدى وليكن الاسم Products ثم إسناد القيمة Products لخاصية ListFillRange المرتبطة بالـ ComboBox حاولت التوضيح في الصور ما أمكن أي استفسار تحت أمرك أخي list.bmp

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

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

حيا الله أخوي محمد

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

وعليكم السلام أخي علي نعم ، الضغط والاصلاح جعفر

عفوا ، الكود هو (تغيير الواحد الى صفر): Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(0) & "'" DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria وتفضل المرفق جعفر 108.NCustomers.mdb.zip

السلام عليكم و رحمة الله و بركاته أخي العزيز ابن الحجاز ..أنت أضفت على الملف الذي أرسلته كود آخر يخص الذهاب إلى شيتات معيّنة في حالات معيّنة حسب عدد السنوات .. لكنك ارتكبت بعد الاختلالات في الأكواد : 1 - الجزء الذي أنتَ أضفتَه به عبارة Label3 و اليوزرفورم ليس به أي ليبلات 2 - الجزء بالكود الذي أنتَ أضفتَه به خاصيّة ال ENTER للبحث و اليوزرفورم به كوموند بوتون للبحث وقد يتعارضا في عملهما 3 - لاحظ الاختلاف الواضح في تسمية الشيتات بين ورقة الاكسل بدون ألف و لام وفي الكود لم تقمْ بحذف الألف و اللام هذه الملاحظات فقط يا عزيزي كيلا تقع في مثلها مستقبلاً .. فكلّنا نسعى من أجل معلومة زائدة تعم بالفائدة علينا و على سائر المؤمنين .. تفضّل أخي الملف المرفق لعلّ و عسى يكون المطلوب ..أكتب التاريخ في التاكست بوكس 1 ثم استعمل الضغط على ENTER X2.rar

بعد إذن استاذنا العظيم سليم أضفت تنسيق شرطى للاسم المكرر اسماء الاخوة (salim).rar

السلام عليكم أخي أحمد وأخوي رمهان أخي أحمد ، اليك اسهل طريقة لجمع أكثر من شرط Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(1) & "'" DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria وهو الجواب لسؤالك جعفر

من اين يتم ضبط هده المسؤول عن الخطوة "LE PAS" أو"STEP" للمشكل

السلام عليكم و رحمة الله و بركاته إخواني بهذا المنتدى .. لا يمكنني مشاهدة باقي الصفحات من 2 إلى آخر صفحة .. فقط الصفحة الأولى المتاح لي مشاهدتها .. مهما ضغطت على الأرقام ..هل هذه المشكلة تخصني أنا فقط أم هي من مخلّفات التغيير بارك الله فيكم و جزاكم الله خيرًا

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

ماشاء الله استاذنا محمد الريفي معادلة رائعة جزاك الله خيرا

السلام عليكم طبق هذه المعادله =SUMPRODUCT((MONTH($A$2:$A$15)=$G$5)*($B$2:$B$15))

لايوجد ملف اخي الفاضل

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

السلام عليكم ورحمة الله وبركاته أخي الصقر ماشاء الله جزاكم الله خير تقبل تحياتي العطرة

أخي الكريم أبو عبد الملك إليك الكود بالكامل ..تم إضافة ثلاثة أسطر لتؤدي الغرض في نهاية الكود قبل جملة End With Sub FollowAll() Dim I As Long, lRow As Long Dim rngFound As Range Dim wsRecord As Worksheet, wsMonthly As Worksheet, SH As Worksheet Set wsRecord = Sheets("معلومات التسجيل"): Set wsMonthly = Sheets("مجمع النتائج الشهرية"): Set SH = Sheets("كشف متابعة") With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual End With With wsRecord For I = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(.Cells(I, "N")) Then If MsgBox("الطالب " & .Cells(I, "C") & " منقطع هل تود أن تطبع له كشف?", vbYesNo + vbMsgBoxRtlReading) = vbYes Then GoTo Continue Else: End If Else Continue: SH.Range("C1") = .Cells(I, "C") SH.Range("C4") = .Cells(I, "B") SH.Range("C5") = .Cells(I, "A") Set rngFound = wsMonthly.Columns("C:C").Find(What:=.Cells(I, "C"), searchorder:=xlByRows, searchdirection:=xlPrevious) If Not rngFound Is Nothing Then lRow = rngFound.Row If wsMonthly.Cells(lRow, "R") >= 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "N"): SH.Range("S4") = wsMonthly.Cells(lRow, "O") ElseIf wsMonthly.Cells(lRow, "R") < 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "L"): SH.Range("S4") = wsMonthly.Cells(lRow, "M") Else MsgBox "لا يوجد درجة للطالب " & .Cells(I, "C"), vbCritical End If End If SH.Range("C2").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$B$2:$B$6))" SH.Range("C3").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$D$2:$D$6))" SH.Range("C2:C3").Value = SH.Range("C2:C3").Value Call CalculateLinesOfRevision SH.PrintPreview End If Next I End With With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic End With End Sub Private Sub CalculateLinesOfRevision() Dim SH As Worksheet, wsMnhg As Worksheet Dim LRCur As Long, I As Long, N As Long, Counter As Long Dim rngA As Range, rngB As Range, rngC As Range, rngD As Range Dim X, Y, Z Set SH = Sheets("كشف متابعة"): Set wsMnhg = Sheets("المنهج") With wsMnhg LRCur = .Cells(Rows.Count, 1).End(xlUp).Row Set rngA = .Range("A2:A" & LRCur): Set rngB = .Range("B2:B" & LRCur) Set rngC = .Range("C2:C" & LRCur): Set rngD = .Range("D2:D" & LRCur) SH.Range("Q11:Q34").ClearContents X = ValueLookUp(rngB, SH.Cells(4, "R").Value, rngC, rngD, SH.Cells(4, "S").Value, rngA) If X <= 24 Then For I = 2 To X + 1 SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I, "B") & " " & .Cells(I, "D") N = N + 1 Next I Else Y = Application.WorksheetFunction.Ceiling(X / 24, 1) For I = 2 To X + 1 Step Y SH.Cells(N + 11, "Q") = .Cells(I, "B") & " " & .Cells(I, "C") & " - " & .Cells(I + Y - 1, "B") & " " & .Cells(I + Y - 1, "D") N = N + 1 Counter = Counter + Y If Y >= X - I Then Exit For Next I If X - Counter > 0 Then SH.Cells(N + 11, "Q") = .Cells(I + Y, "B") & " " & .Cells(I + Y, "C") & " - " & .Cells(X + 1, "B") & " " & .Cells(X + 1, "D") End If SH.Range("O11:O34").ClearContents Z = X - 24 If Z > 0 Then SH.Range("O11:O34") = .Cells(Z, "B") & " " & .Cells(Z, "D") & " - " & SH.Range("R4") & " " & SH.Range("S4") End With End Sub

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

حسب فهمي : اذا كان رقم العملية لايقبل التكرار حسب تحليلك فانه يكفي لان يكون معيار وشرط الفتح للنموذج الوجهة . وسيصبح الكود كالتالي : Private Sub AutoNum_DblClick(Cancel As Integer) Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria End Sub حيث تم حذف المعايير الاخرى ! بالتوفيق

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

أخي العزيز / الحديثة أولا ضع الشرطين في الخليتين (I25) و (I26) في الأولى ( مستجد ) وفي الثانية (باق) ثم ضع المعادلة التالية في الخلية (G5) واسحبها إلى الخلية (G6) =SUMPRODUCT(--(Sheet1!$D$5:$Q$5=$F$18)*(Sheet1!$C$6:$C$40=$I25)*(Sheet1!$D$6:$Q$40="غ")) وقم بتغير التاريخ في الخلية (F18) وستلاحظ تغير النتائج إن شاء الله يحقق هذا مطلوبك حسب ما فهمت aa_2.rar

عسى ان ينال اعجابكم هذا الموضوع filter without filters.zip

باااااااااااااااارك الله فيك

السلام عليكم و رحمة الله و بركاته جرّب أخي مصطفى 20 هذا الملف .. ربما يكون ما تريده .. خالص تحياتي sssss - 2.rar

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

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

أخي الغالي جعفر نورت المنتدى بأعمالك الرائعة والمميزة والمتميزة بارك الله فيك وجزاك الله خير الجزاء

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

ياسلام

اخى الفاضل هذا ما ابحث عنه كيف تقوم بتحديد مصدر ComboBox (ActiveX control)

ردا على السيد يوسف السيد لا أدري لمادا يعطيك الخطأ ... صعب معرفة المشكلة لو الكود يتوقف Debugger في خط ما ممكن يساعدك على معرفة المشكلة

أخي العزيز / طاهر محمد استعمل المعادلة التالية للمدى الذي تريده يتم تسطير الصف حسب المدى المحدد حسب الخلية ( A ) في نفس الصف إذا كانت أكبر من صفر والمعادلة هي =$A2>0 حيث تم تثبيت العمود (A) بوضع علامة الدولار($) قبله ليكون هو المعيار للتنسيق بينما الصف مطلق ليتغير بتغير الصفوف ويكون المعيار هنا الصف اللي الخلية (A) فيه أكبر من صفر فلو تم وضع علامة الدولار قبل رقم الصف سيصبح المعيار ثابت وهي الخلية (A2) لكل المدى وستصبح المعادلة بهذا الشكل =$A$2>0 لكن حسب طلبك المعادلة الأولى هي التحقق المطلوب إن شاء الله تسطير الي.zip

السلام عليكم يا أخي رمهان بالفعل يجب أن يضهر اليوم والشهر والسنة. جزاك الله خير

اخي طاهر محمد إستخدام التنسيق الشرطي من الخلال دالة التسطير =AND($E10<>"";$E10>1)

السلام عليكم ورحمة الله وبركاته:- بالمرفق محاولة لقائمة تختصر لك الاسماء حسب جزء من الاسم انشاء الله تفي بالغرض , smartlist.rar

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

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

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