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

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

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

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

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

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء انا من المتعطشين لتعلم برمجة 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" للمشكل

شكرا لكم

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

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

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

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

السلام عليكم و رحمة الله و بركاته جرّب أخي مصطفى 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

اذهب الى هذا العنوان : 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