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

بعد اذن حبيبي سليم معادلة صفيف. أكتب فقط السنة في الخلية g1 =IFERROR(INDEX($A$2:$A$170; MATCH(0;COUNTIF($G$3:G3; IF(($G$1=YEAR($B$2:$B$170)); $A$2:$A$170; $G$3)); 0)); "") إدراج الاسماء تلقائي.xlsx

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

السلام عليكم استعمال دالة المنوال MODE يفي بالغرض... ايجاد الرقم الاكثر تكراراً.xlsx

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

تفضل اخي العزيز ارجو ان يكون طلبك Database10.rar

جرب هذا الكود Option Explicit Sub get_Prof_names() Dim sh As Worksheet, Rg As Range Dim i%, Yer% Dim Salim As Object Set Salim = CreateObject("Scripting.Dictionary") Set sh = Sheets("sheet1") Set Rg = sh.Range("G3").CurrentRegion If Rg.Rows.Count > 1 Then _ Rg.Offset(1).Resize(Rg.Rows.Count - 1).Clear Yer = sh.Range("G1"): i = 2 Do Until sh.Cells(i, 1) = vbNullString If Year(Cells(i, 2)) = Yer Then Salim(Cells(i, 1).Value) = vbNullString End If i = i + 1 Loop If Salim.Count Then With sh.Range("G4").Resize(Salim.Count) .Value = Application.Transpose(Salim.Keys) .Borders.LineStyle = 1 .Font.Bold = True: .Font.Size = 16 .InsertIndent 1: .Interior.ColorIndex = 35 End With End If End Sub الملف مرفق Prof_names.xlsm

أخي محمد .. ياليت تجعل أسماء الحقول في الجداول باللغة الإنجليزية .. حتى يسهل عليك التعامل مع الأكواد بسهولة ..

بعد ادن اخي بن علية العدد الاكثر تكررارا مع اضافة عدد مرات التكرار و اضافة تنسيق شرطيي لتلوين الرقم الاكثر تكرارا ايجاد الرقم الاكثر تكراراً.xlsx

تفضل. نموذج المطلوب.xlsm

ممتازة منك صديقي رائد (لكنها تدرج المكرر في حال وجوده) هذه معادلة احرى (بردو تدرج المكرر في حال وجوده) (سبق وان قلت ان استعمال الدالة IFERROR ) يفضل عدم استعمالها =IF(ROWS($A$1:A1)>SUMPRODUCT(--(YEAR($B$2:$B$50)=$G$1)),"",INDEX($A$2:$A$50,SMALL(IF($A$2:$A$50<>"",IF(YEAR($B$2:$B$50)=$G$1,ROW($A$2:$A$50)-ROW($A$2)+1)),ROWS($A$1:A1)))) اذا لم نتعمل معك استبدل الفاصلة "," بفاصلة منقوطة ";" مع (Ctrl+Shift+Enter) Prof_names.xlsm

تهنئة من قلبى لكل من / @اشرفو @Gamal.Saad الف الف مبروك تستاهلون كل خير وكل عام ونتم بألف خير

وهذا مرفق آخر بدون زر أمر .. date_h.rar

إليك هذا المرفق لعله يفيدك db5.mdb

لا يمكن عمل هذا في النموذج المستمر ، اما اذا كان النموذج فردي ، فتستطيع ان تعمل نموذج فرعي للحقول الباقية (نوع الاعانة ، تحديد .... ، ولكن يمكن عمل هذا في التقرير ، بحيث تعمل تجميع وفرز بالرقم ، وهذا الرابط يشرح طريقة العمل : جعفر

اخى الفاضل عمر مشاركه مع اخوانى واساتذتى الافاضل اشرف وابوفريد جزاهم الله خيرا 💐 وكما تم التوضيح لك منهم لايوجد لديك تكرار لماذا بارك الله فيك انت تعتقد بان السجلات الخاصه بنائب العريف مكرره التكرار يشمل جميع الحقول الاساسيه والمرتبطه وطالما يوجد اختلاف فى رقم المستند وهما 4478 و 4458 غير اى رقم فيهم فى جدول Tbl_WheelUsers اجعلهم رقم واحد اى 4478 او 4458 وافتح الاستعلام ستجد بانه لايظهر معك الا سجلات فريده وغيره مكرره جرب ووافنا بالنتيجه بالتوفيق

الف الف مبروك للأساتذة الكرام

وعليكم السلام اتفضل هل هذا ماتريد بالتوفيق اخى cars.rar

السلام عليكم اخي الفاضل omarAbdalrazaq اين التكرار في الاستعلام المذكور هل تقصد ما تم تدويره بالاحمر في الصورة ان كان نعم فيا اخي الفاضل لا يوجد تكرار فهذه السيارة لها ثلاثة اذون صرف بارقام محتلفة

تفضل شهادة.xlsm

شيت اكسيل به معادلة لحساب الضريبة اعتبار من 1 / 7 / 2020 بعد القانون 26 لسنة 2020 حسبة الضريبة.xls

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

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

السلام عليكم 🙂 وهذه عيدية العيد لنا 🙂 شكرا للاخوة الاخوة @اشرف و @Gamal.Saad لكل ما تبذلوه ، مبروك لكم الترقية 🙂 جعفر

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

جرب هذا الملف MENhOLAHO.xlsm

هل هذا ما تريد أخي @abdalrazag T1.accdb

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

معك كل الحق أعتذر انا صراحة لم أجربها

اكرم الله استاذنا / @kha9009lid بهذا تكون الصورة وضحت اكثر تحليل رائع منك استاذ / خالد كما تعودنا

تفضل اضافة زر لحدف الصورة من الشيت في الملف المرفق و ادا اردت من زر التصدير الى الشيت أن يحذف الصورة و يرسل الجديدة مكانها بدون زر حذف على الفورم غير كود التصدير الى هذا Private Sub CommandButton10_Click() Dim Image As Variant Dim L As Single, T As Single, W As Single, H As Single ActiveSheet.Pictures.Delete L = Range("n32:r38").Left T = Range("n32:r38").Top W = Range("n32:r38").Width H = Range("n32:r38").Height Image = TextBox1.Value If Image <> False Then Sheet4.Shapes.AddPicture Image, True, True, L, T, W, H End If End Sub تواتي 23.xlsm

اشكركم شكرا جزيلا لاستعادة كلمة المرور التي نسيتها👍

وعليكم السلام 🙂 حيا الله اخوي محمد ، صار لنا زمن ما شفناك 🙂 نعمل الترقيم في النموذج : يمكن ترك الكائنات في مكانها في تصميم التقرير ، ولكن: نغير اسماء الحقول ، حتى يسهل علينا ، مثل lbl_11 و lbl_12 و lbl_13 للسطر الاول ، وطبعا نفس الترتيب للأسطر الاخرى ، نخفي الحقول الغير مطلوبة (في الكود) ، والحقول المطلوبة ، نعطيها موقع (ابعاد) حقول السطر الاول ، Top و Left (في الكود) ، ونعمل الكود في حدث "عند تنسيق" القسم Report Header : . Option Compare Database Option Explicit Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) 'خطوة مؤقته لإخفاء جميع الكائنات ، وتحريكهم الى السطر العلوي 'Line 1 Me.lbl_11.Visible = False Me.lbl_12.Visible = False Me.lbl_13.Visible = False 'Line 2 Me.lbl_21.Visible = False 'اخفاء Me.lbl_21.Left = Me.lbl_11.Left 'مكانه من يسار التقرير Me.lbl_21.Top = Me.lbl_11.Top 'مكانه من علو التقرير Me.lbl_22.Visible = False Me.lbl_22.Left = Me.lbl_11.Left Me.lbl_22.Top = Me.lbl_11.Top Me.lbl_23.Visible = False Me.lbl_23.Left = Me.lbl_11.Left Me.lbl_23.Top = Me.lbl_11.Top 'Line 3 Me.lbl_31.Visible = False Me.lbl_31.Left = Me.lbl_11.Left Me.lbl_31.Top = Me.lbl_11.Top Me.lbl_32.Visible = False Me.lbl_32.Left = Me.lbl_11.Left Me.lbl_32.Top = Me.lbl_11.Top Me.lbl_33.Visible = False Me.lbl_33.Left = Me.lbl_11.Left Me.lbl_33.Top = Me.lbl_11.Top '----------------------------- Dim L L = Forms!Form1!lst_Line 'نأخذ رقم السطر من النموذج ونختصره في المتغير L '----------------------------- 'اظهار السطر الصحيح ، وتحريكه الى مربعات السطر الاول Me("lbl_" & L & "1").Visible = True Me("lbl_" & L & "2").Visible = True Me("lbl_" & L & "3").Visible = True Me("lbl_" & L & "1").Left = Me.lbl_11.Left Me("lbl_" & L & "1").Top = Me.lbl_11.Top Me("lbl_" & L & "2").Left = Me.lbl_12.Left Me("lbl_" & L & "2").Top = Me.lbl_12.Top Me("lbl_" & L & "3").Left = Me.lbl_13.Left Me("lbl_" & L & "3").Top = Me.lbl_13.Top 'تغيير ارتفاع القسم في التقرير Me.ReportHeader.Height = Me.Label11.Height * 2 End Sub . والنتيجة : . جعفر 1228.R_MultiHead.accdb.zip

اخي الفاضل اشرف جزاك الله خير الجزاء ولك يعتمد ولك خالص التحية والتقدير

تسلم استاذ أحمد الفلاحجى بارك الله فيك هذا هو المطلوب اجمل تحية وتقدير

وعليكم السلام-يمكنك استخدام هذه المعادلة =INDEX($P$6:$P$20,MATCH("مؤكد",$F$7:$F$21,0)) الحالات المؤكدة1.xlsx

يتم نسخ المعادلة الموجودة فى الخلبة b1 الى اخر العمود شرط وجود بيانات فى العمود a تفضل اخى عسى يفيدك copy formula.xlsm

اين الاجابة اخي الكريم ؟؟؟؟؟

وعليكم السلام 🙂 يجب ان تعطي الامر بالكامل علشان تحصل على النتيجة المطلوبة ، وعلشان الكود ينكتب بالطريقة الصحيحة ، خلينا نستخدم هذه الاسماء بالانجليزي كمثال: حالة الخدمة= H_Service منقطع = Temp فيكون الكود : Sum_Filed: Sum(iif([H_Service]="Temp",1,0) يعني اذا قيمة الحقل = Temp اجمع لنا 1 (لأن العدد واحد لكل شخص) ، بالعربي المعادلة تنقلب (لهذا السبب فإنه لا يُنصح بإستخدام مسميات عربية في اي من كائنات الاكسس) : . والنتيجة بعد التعديل: . . جعفر AA1.zip

يا فرحة العيد الف مبروك للاساتذه @Gamal.Saadو @اشرف

شكراً لاستاذنا جعفر على العيدية المميزة والف مبروك للاخوة الافاضل @اشرف و @Gamal.Saad على الترقية راجياً من الله للجميع دوام التوفيق تحياتي

الف مبروك لكل من :- استاذ Gamal.Saad استاذ اشرف دوام يارب التوفيق و التقدم كل تحياتى

مبروك العيدية احبتنا @Gamal.Saad و @اشرف بارك الله لكم وفيكم ونفع بكم .. وكل عام وانتم بخير

الف الف مبروك اخوانى واساتذتى @Gamal.Saad و @اشرف 💐 بارك اله فيكم وجزاكم الله كل خير واعانكم الله وتقبل منكم صالح الاعمال

عيدية جميلة ..... مبارك @Gamal.Saad و @اشرف دوام التوفيق ...

وعليكم السلام 🙂 اعمل نسخة احتياطية قبل العمل !! انزل هذا البرنامج المجاني : http://www.skrol29.com/us/vtools.php وبعد التنصيب ، استعمل خاصية . . جعفر

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

الأساتذة الافاضل السلام عليكم ورحمة الله وبركاته لدي برنامج يحتاج من سيادتكم مشكورين التدخل في حله ... حاولت جاهداً منذ أيام ولكن صعب علي تنفيذه .... اليكم البرنامج مضغوط ان الله في عون العبد مادام العبد في عون أخيه والسلام عليكم ورحمة الله وبركاته TRANSFER-CELL.rar

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

030-Hide Show Columns Based On Specific Value YasserKhalil.rar أستاذي الفاضل ياسر خليل أبو البراء وجدت كوداً جميلاً في أحد أعمالك ,ووجدت أنه باعتقادي يمكن تطبيقه على عملي المرفق في بداية الموضوع . وأردت إذا كان في الإمكان أن تشرحه لي وهل بالإمكان تطبيقه فعلاً على ملفي بنفس طريقتك أو بنفس الفكرة مع تغيير اللازم. Option Explicit Sub HideShowColumns() If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then Dim iMon As Integer iMon = Range("A1").Value + 1 iMon = Range("b1").Value + 1 Columns("C:N").Hidden = False Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True Else MsgBox "Cell A1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64 Columns("C:N").Hidden = False If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then Columns("m:z").Hidden = False Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True Else MsgBox "Cell b1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64 Columns("o:z").Hidden = False End If End If End Sub 030-Hide Show Columns Based On Specific Value YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته البغض منا قد يرغب فى ازالة التنسيق الشرطى عن خلية أو نطاق لسبب ما مع ازالة أو ابقاء آثاره من تنسيقات مثل لون الخلايا و لون و حجم الخط .... الخ و بإذن الله تعالى سأعرض عليكم ــ اخوتى ــ كودين يؤديان هذه المهمة الأول : يقوم بازالة التنسيق الشرطى مع ازالة آثاره من نطاق محدد : Sub RemovingCFandEffects() ' Removing Conditional Formats and the Effects Dim Rng As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False Rng.FormatConditions.Delete Application.ScreenUpdating = True MsgBox ("The Conditional Formats in The Range " & Rng.Address & vbCrLf & " has been Removed and The Effects") End Sub الثانى : يقوم بازالة التنسيق الشرطى من نطاق محدد مع ابقاء آثاره من تنسيقات كما هى أو بعبارة أخرى تحويل التنسيقات الشرطية الى تنسيقات عادية : Sub RemovingCFbutNotEffects() ' Removing Conditional Formats but not the Effects Dim Rng As Range, C As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False For Each C In Rng ' Rng.SpecialCells(xlCellTypeAllFormatConditions) With C .Interior.Color = .DisplayFormat.Interior.Color .Font.FontStyle = .DisplayFormat.Font.FontStyle .Font.Color = .DisplayFormat.Font.Color .FormatConditions.Delete End With Next Application.ScreenUpdating = True MsgBox ("The Conditional Formats in the Range " & Rng.Address & vbCrLf & "has been removed but Not the Effects ") End Sub أتمنى أن يكون موضوعا سهلا وخفيفا ونافعا لكم ... تقبل الله منا و منكم صالح الأعمال والسلام عليكم ورحمة الله وبركاته Removing Conditional Formats.rar