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

اتفضل DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Form!نص18.Enabled = True Me.fary2.Form!نص14.Enabled = True Me.fary2.Form!Qote_item.Enabled = True Else Me.cansel_1.Enabled = False Me.fary2.Form!نص18.Enabled = False Me.fary2.Form!نص14.Enabled = False Me.fary2.Form!Qote_item.Enabled = False End If

السلام عليكم ورحمة الله استخدم الكودين الاتيين الكود الاول لرسم الدوائر Sub Crl_Shp() ' دوائر مواد الرسوب Dim C As Range Dim MyRng As Range Dim LR As Long, i As Long, j As Long Application.ScreenUpdating = False LR = Range("B" & Rows.Count).End(xlUp).Row i = 10 Do While i <= LR Set MyRng = Range(Cells(i, 5), Cells(i, 23)) For Each C In MyRng If C.Value < Cells(9, C.Column).Value Or C.Value = "غ" Or C.Value = "" Then Set x = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left, C.Top, C.Width, C.Height) x.Fill.Visible = msoFalse x.Line.ForeColor.SchemeColor = 10 x.Line.Weight = 1.75 End If Next i = i + 1 Loop Application.ScreenUpdating = True End Sub الكود الثانى لمسح الدوائر عند اللزوم Sub RemovShp() ' مسح الدوائر Dim Shp As Shape For Each Shp In ActiveSheet.Shapes If Shp.AutoShapeType = msoShapeOval Then Shp.Delete Next Shp End Sub

جرب هذا الماكرو Option Explicit Sub tarnsfer_daya() Dim Rg1 As Range: Set Rg1 = DATA.Range("a5").CurrentRegion Dim last_ro%: last_ro = Rg1.Rows.Count Dim last_col%: last_col = Rg1.Columns.Count Dim lr%: lr = ABSCENT.Cells(Rows.Count, 1).End(3).Row ABSCENT.Range("B7:S" & lr).ClearContents Dim i%, K%, St$, mtch% Dim m%: m = 7 For i = 7 To last_ro + 4 For K = 4 To last_col - 7 If DATA.Cells(i, K) = "غ" Then St = DATA.Cells(5, K) On Error Resume Next mtch = Application.Match(St, ABSCENT.Rows(5), 0) If Err.Number <> 0 Then On Error GoTo 0 GoTo 1 End If ABSCENT.Cells(m, mtch) = DATA.Cells(i, "B") ABSCENT.Cells(m, mtch + 1) = DATA.Cells(i, "C") End If 1: Next m = m + 1 Next End Sub الملف مرفق Salim_Abscent.xlsm

أولاً الكود كان يجب استبدال الفاصلة بفاصلة منقوطة لكي يعمل ثانيًا تم وضع دالة لاستخراج بيانات من الرقم القومي وهي تاريخ الميلاد والنوع ومحافظة الميلاد أما الديانة ليس لها علاقة بالرقم القومي ثالثًا كان هناك خلايا لا تستجيب للمعادلات حذفها كل ما عليك هو السحب نزولاً لأسفل في كل معادلة العاملين5.xlsm

السلام عليكم ورحمة الله وبركاته كثيرا منا يحتاج الى عرض الصور فى مجلد محدد عن طريق الاكسس بحث عن طرق عدة وكل الطرق كانت مثل الصورة التالية والتى كانت لا تروقنى فقلت ارخم عليكم واعمل انا طريقة تانية لانى دى احد عيوبها نى لو عندى الف صورة هفضل اعمل اسكرول لحد ما اصل الى الف سجل وهو عدد المسارات الخاصة بالصور فقلت اعمل طريقة خاصة بينا احنا اوفيسنا مش عارف موجودة ولا لا اهو بالبركة وزيادة الخير خيرين زى طريقة عرض الصور فى الويندوز الية العمل كلها تكمن فى مصدر عنصر تحكم كل كائن من كائنات الصور -------------- بعد الضغط على زر تحديد المجلد ثم الضغط عزر الذهاب الى المجلد سيقوم البرنامج تلقائيا بجلب جميع مسارات الصور داخل البرنامج مع اعطاء كل مسار رقم وعن طريق هذا الرقم ساقوم باستدعاء كل صورة حيث عن المعادلة ( رقم السجل * 8 - 7 ) = 1 ( رقم السجل * 8 - 6 ) = 2 ( رقم السجل * 8 - 5 ) = 3 ةهكذا حيث رقم السجل هو الترقيم التلقائى لكل سجل الذى يعطيه البرنامج تلقائيا عند جلب المسارات فيديو للشرح المرفق Gallary.rar

بارك الله فيك وجزاك كل وجعلك من اصحاب العلم الذي ينتفع منه

السلام عليكم استاذ @حسين العربى ممكن تتواصل معاي بخصوص برنامج الصادر والوارد

أشكرك جزيل الشكر و أرجو من الله أن يجعل مساعدتك هذه في ميزان حسناتك

السلام عليكم ورحمة الله جرب المعادلة التالية (بتحفظ شديد لأنه لا يمكن من خلال صورة إنشاء معادلات دون معرفة أسماء الشيتات وعناوين الخلايا والنطاقات) : =OFFSET('شيت 1'!$K$2;SUMPRODUCT(('شيت 1'!$B$3:$B$1000=$B3)*('شيت 1'!$C$3:$C$1000="سداد")*ROW($1:$998));0) بن علية

DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Else Me.cansel_1.Enabled = False End If PROGRMS_Market_CONTROL.rar

انظر جيداً بعد اخفاء بعض الصفوف و الترقيم working days Ex.xlsm

السلام عليكم أخي إبراهيم حياك الله. أولا: لم أفهم ماذا تقصد بـــ(Nota , Notb,Notc,Notd,Note ) . المهم. سوف أعطيك طريقة تتبعها من أجل الوصول إلى الحل إن شاء الله السؤال الأول: 1- أضف حقل لجدول القاعات tblhall تكتب فيه رقم المدرسة للطلاب الموجودين داخل هذه القاعة مثلا (id_school). 2- عند إعطاء أمر التوزيع قبل وضع المعلم في القاعدة يختبر هل رقم المدرسة متساوي في حقل SID لجدول المعلم و حقل المدرسة في جدول القاعات (id_school) . إذا كانا مختلفين يسجل المعلم و إذا كانا متساويين يغيره بعلم آخر. السؤال الثاني: عند إضافة معلم جديد لقاعة يختبر الكود هل المعلمين الموجودين في القاعة لنفس مدرسة المعلم الجديد أم لا إذا كان نعم يتخطى هذا المعلم و يبحث عن معلم آخر. و إذا كان لا يضع هذا المعلم في هذه القاعدة. (أنا الآن مشغول قليلا لا أستطيع التعديل على مرفقك عليك بالمحاولة لتطبيق هذا الأمر وحدك و عندما أنتهي من عملي سوف أنجز التعديل على مرفقك إن شاء الله).

السلام عليكم اخي هذه طريقة ثانية بعد الطريقة الرائعة التي اضافها اخي ابو ياسين .. ملاحظة لقد حذفت جميع مكونات القاعدة وابقيت فقط جدول الموظفين لانه هو فقط موظوع البحث حوسبة العمل الاداري.mdb

اتفضل شوف الفكرة حوسبة العمل الاداري.rar

يمكنك رؤية هذا الفيديو https://www.youtube.com/watch?v=tAcC_GTZ38o

الكمبيوتر يتكلم اللغة الانجليزية فى الاكسل فيديورقم2 الصور الفيديو

عند التصغير في الامر وليس في الاساس انت لازم تخفي التصغير الافتراضي وتعتمد على الامر

السلام عليكم اخى الكريم اضف هذه الوحدة النمطية ولا تقم بمسح السابقة لانهم سيعملو سويا Function ForSearch(Astr As Variant) As Variant Dim i As Integer Dim L As Variant, NewStr As Variant If Nz(Astr, "") = "" Then Exit Function Astr = CStr(Astr) For i = 1 To Len(Astr) L = Mid(Astr, i, 1) If L = "ي" And Mid(Astr, i + 1, 1) = " " Then L = Mid(Astr, InStr(Astr, L), 1) Select Case Asc(L) Case 237: L = Chr(236) Case Else: L = L End Select End If NewStr = NewStr & L Next ForSearch = NewStr End Function ثم قم بتعديل الاستعلام ليصبح الحقل على هذا الشكل NweName: LastChar(ForSearch([OldName])) وهذه صورة من الاستعلام

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

تفضل المطلوب 555.zip

وجدت هذا المثال عسى ان تكون به الفائدة والمراد ان شاء الله TimeCheck.rar

اخي BU3MMAR السلام عليكم اعتقد المقصود بمعدل دوران المدينين هو تستخدم هذه النسبة كمؤشر للحكم على كفاءة ادارة الائتمان في المشروع على تحصيل الديون ، ويرتبط ذلك بعدد المرات التي يمكن فيها تحصيل الديون خلال السنة. كلما ارتفع المعدل عن السنوات السابقة او المعدلات المعيارية فهو يشير على تحسن اداء الادارة المختصة في تحصيل ديونها ونجاح سياستها الائتمانية. يعني عندما يكون معدل دوران المدينين سنة 2006 هو 6 مرات ، هذا يعني ان الشركة تقوم بتحصيل ديونها 6 مرات بالسنة المالية الواحدة اي بمعدل مرة واحدة كل شهرين او 60 يوم ، يعني انها تمنح عملائها مهلة لتسديد الديون تصل بحدها الاقصى الى 60 يوم . ولو فرضنا ان معدل دوران المدينين سنة 2007 هو 8 مرات ، هذا يعني ان الشركة تقوم بتحصيل ديونها 8 مرات بالسنة المالية الواحدة اي بمعدل مرة واحدة كل شهر ونصف او 45 يوم . من الافتراضين السابقين نرى ان سياسة الادارة بالنسبة للمبيعات الآجلة وتحصيل الذمم المدينة قد تحسنت في عام 2007 بالمقارنة مع سياستها في عام 2006 ، مما يعطينا مؤشر بان الشركة بدأت تحول عمليات المبيعات الى نقدية بدلا من الآجلة وهذا بحد ذاته يعطينا مؤشر على قوتها في السوق ، والعكس صحيح. معدل دوران المدينين = صافي المبيعات الآجلة / متوسط رصيد المدينين = ......مرة متوسط فترة التحصيل = 365 يوم بالسنة / معدل دوران المدينين = .....يوم مثال : المبيعات الآجلة 450000 متوسط رصيد المدينين 30000 معدل دوران المدينين = 450000 / 30000 = 15 مرة متوسط فترة التحصيل = 365 يوم بالسنة / 15 مرة = 24 يوم تقريبا

اخي الكريم السلام عليكم بخصوص الاستفسار الاول عن القائمة المنسدلة انظر للمرفق واي استفسار اعلمني من فضلك بخصوص الطلب الثاني يتم ذلك من عمل كود بلغة VBA بخصوص الطلب الثالث يوجد معادلات ولكن قمت باخفائها عن طريق الحماية عموما انظر للمرفقين وهم شرح عن القائمة المنسدلة بالاضافة الى شرح عن المدى وذلك لاستخدامهم في ملف عمر الدين واي استفسار بعد ذلك اعلمني حتى بامكانك ارسال الملف لعمل المطلوب اخي الكريم BU3MMAR السلام عليكم بالنسبة لشرح ملف عمر الدين كما ذكرت بالاعلى واذا اردت استفسار محدد اعلمني من فضلك يمكنك اضافة الملف الخاص بعدل دوران الائتمان مع الشرح عليه ليتم تنفيذه My__Range.rar ____________.rar

الاخ العزيز نزار سليمان عيد شكرا جزيلا على مجهودك والملف الرائع بمعنى الكلمة ولكن لي بعض الاستفسارات حيث اننى مبتدئ بالأكسل فلا تبخل علينا بعلمك 1- كيفية عمل القائمة المنسدلة بجوار الخلية لنختار منها الرقم 2- فى مثالك المرفق تبدء بوضع نتيجة التصفية بدأ من الخلية A6 كيف تمت هذه الخطوة بمعنى ما هى الطريقة لان أجعل نتيجة التصفية تبدأ من اى مكان احدده 3 - برجاء شرح كيف يتم احتساب عمر الدين على الرغم من عدم وجود معادلات الا معادلة عدد مرات التكرار ومعادلة الرصيد برجاء الشرح بالتفصيل لاننى اريد استخدام نفس الفكرة فى حسابات شركة مقاولات وجزاك الله خير الجزاء