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

جرب الملف التالي اسماء الاخوة (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

السلام عليكم و رحمة الله و بركاته أهلاً و سهلاً بالغالي كلّنا أخي الغالي مستخدم جديد 9 متعطّشون للعلم و المعرفة .. ابدأ أنتَ .. المبادرة تكون من قِبلك أوّلاً و أكيد ستجد كل الأساتذة الأعزاء يأخذون بيدك .. و الكلمة الطيّبة منك نظير أي جهد هي الدعم المادي الذي يحتاجه الجميع .. تحياتي و احتراماتي

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

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

السلام عليكم طبق هذه المعادله =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

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

أخي العزيز / الحديثة أولا ضع الشرطين في الخليتين (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

وعليكم السلام جرب المرفق دالة if (1).rar

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

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

جهد رائع من عضو أروع ولكن هل يمكن زيادة عدد الأعمدة من ثلاثة إلى خمسة أو أكثر ؟ وكذلك الحال في الصفوف؟

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

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

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

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

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

ياسلام

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

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

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

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

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

تفضل المطلوب بالمرفق إقرار.rar

اذهب الى هذا العنوان : https://support.office.com/ar-sa/article/%D8%A5%D8%B1%D8%B4%D8%A7%D8%AF%D8%A7%D8%AA-%D9%88%D8%A3%D9%85%D8%AB%D9%84%D8%A9-%D9%84%D8%B5%D9%8A%D8%BA-%D8%A7%D9%84%D8%B5%D9%81%D8%A7%D8%A6%D9%81-3be0c791-3f89-4644-a062-8e6e9ecee523?ui=ar-SA&rs=ar-SA&ad=SA

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

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