Ali Mohamed Ali

على الرغم انه لا يمكن العمل على التخمين وتجنبا لعدم اهدار وقت الأساتذة ..كان عليك رفع ملف موضح عليه المطلوب بكل دقة , ولكن يمكنك استخدام هذا الكود Private Sub UserForm_Activate() ChartNum = 1 UpdateChart_OverallOEE UpdateChart_OverallUnits UpdateChart_OverallWeights End Sub Private Sub UpdateChart_OverallOEE() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 710 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallOEE.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallOEE.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallUnits() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallUnits.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallUnits.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallWeights() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 175 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallWeights.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallWeights.Picture = LoadPicture(Fname) End Sub

وعليكم السلام-يمكنك جعل المعادلة بهذا الشكل =IF($E4<=30,$E4*2.786,IF(AND($E4>30,$E4<=60),(30*2.786)+($E4-30)*3.536,IF($E4>60,(30*2.786)+(30*3.536)+($E4-60)*4.036))) 1حساب فاتورة الغاز.xlsx

يمكنك ذلك بملاحظة ودراسة معادلات جدول البيانات الأخر المتواجد من النطاق CC1: CH3 حيث تم تعديل معادلة الرسم البيانى لأن يأخذ من هذا الجدول ..وموجود كل هذا بالملف المرسل اليك

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لذلك =IFERROR(INDEX(Sheet1!$A:$A,MATCH($A3,Sheet1!$D:$D,0)),"") test2.xlsx

طالما انك تريد النتيجة بهذه الطريقة فلابد من استخدام هذه المعادلة بدلاً من المعادلة الأخرى ولا يمكن عمل هذا الا بهذه المعادلة =COUNTIFS('CM YTD'!$B$4:$B$7000,B$2,'CM YTD'!$C$4:$C$7000,"Y",'CM YTD'!$D$4:$D$7000,1) CM2.xlsx

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

تمام هو ده اللى موجود بالفعل بالملف ,والله عذبتنى معاك مش عارف اجيلك منين ..ام تقصد بأن يبدأ المنحنى من اليسار ؟!!! وتم عمل ايضاً المنحنى من اليسار حتى لا يكون هناك حجة ويجب الإكتفاء بهذا حتى لا يأخذ الموضوع اكبر من حجمه ويجب الغلق Series2.xlsx

اهلا بك فى المنتدى شرفتنا -يجب ان تكون المعادلة هكذا =SUMPRODUCT(('CM YTD'!$C$2:$C$7000="Y")*('CM YTD'!$B$2:$B$7000=B$2)/COUNTIFS('CM YTD'!$C$2:$C$7000,'CM YTD'!$C$2:$C$7000&"",'CM YTD'!$B$2:$B$7000,'CM YTD'!$B$2:$B$7000&"",'CM YTD'!$A$2:$A$7000,'CM YTD'!$A$2:$A$7000&"")) Sales & CM.xlsx

أحسنت استاذ محمد .. بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

وعليكم السلام-اخى الكريم طالما انك لم تقم برفع ملف فكان عليك استخدام خاصية البحث بالمنتدى فبه ما تريد وتطلب... تفضل حماية ملف الاكسل من النسخ كود لمنع النسخ ومنع الحفظ بإسم منع النسخ والقص واللصق تغيير إسم المصنف وكليك يمين

بارك الله فيك وزادك الله من فضله

مبارك الترقية استاذ حسام عن جدارة واستحقاق ان شاء الله وأعانك الله عليها

بارك الله فيك وزادك الله من فضله

وعليكم السلام-على الرغم انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة , الا انى قمت بتصميم هذا لك , بداخل الملف طريقة عمل التسلسل بمعادلة عادية وطريقة أخرى بدالة معرفة Dynamic Serial by Letters.xlsm

مجهود ممتاز بارك الله فيك استاذ حاتم

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

تفضل لك ما طلبت من أعمال الأستاذ مجدى يونس ...له منا كل المحبة والإحترام ,ورجاءا فى المرات القادمة عند رفع اى مشاركة فلابد من تدعيم هذه المشاركة بملف لوصف طلبك بدقة وكفاءة كل ما عليك فى هذا الملف عند تسجيل البيانات بالفورم فقط كتابة الإسم والرقم القومى وستظهر لك باقى البيانات تلقائياً فورم تاريخ الميلاد والسن والنوع من الرقم القومى2 .xlsm

تفضل استاذ محمد..تم ضبط تنسيق عمود صفحة الإكسيل أيضاً كما تريد ... على ان يكون بهذا التنسيق [$-F800]dddd dd-mm-yyyy المصنف2.xlsm

السلام عليكم-تم انشاء صفحة جديدة بالملف (إدخال البيانات) وتم عمل قائمة منسدلة بالعمود الثانى B بأرقام السيارات , فكل ما عليك فعله هو اختيار رقم السيارة من القائمة وسيقوم الإكسيل بإظهار اسم السائق لتلك السيارة تلقائياً دون تدخل منك وذلك بهذه المعادلة... فمن فضلك لا تقوم بعمل دمج للخلايا لحسن عمل المعادلة =IFERROR(INDEX(الناقلين!$B$3:$B$1000,MATCH($B2,الناقلين!$C$3:$C$1000,0)),"") الناقلين.xlsx

وعليكم السلام أخى الكريم لما لا تقوم بإستخدام خاصية البحث بالمنتدى طالما لم تقم برفع ملف بالمطلوب ؟ تفضل مُجمِع البيانات للاكسيل - Excel Data Collector الإصدار الخامس دمج وتجميع عدة ملفات خارجية فى ملف واحد بالمعادلات وهذا رابط اخر دمج ملفات اكسل في ملف واحد وهذا كود اخر لهذا الموضوع Sub MergeExcelFiles() 'https://www.ablebits.com/office-addins-blog/2017/11/08/merge-multiple-excel-files-into-one/ Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub وهذا كود ثانى للمطلوب Sub ConslidateWorkbooks() 'https://trumpexcel.com/combine-multiple-workbooks-one-excel-workbooks/ Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIFS(الموجودون!$D:$D,B$2,الموجودون!$G:$G,B$1,الموجودون!$F:$F,$A3) 1.xlsx

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

تفضل لك ما طلبت وهذه أسماء وكلمات السر للمتخدمين مع الصلاحيات ... والصفحة التى بها الفورم الذى تعمل عليه هى صفحة إدخال البيانات ..... وكلمة السر دائماً للدخول لصفحة الصلاحيات هى 123 اسم المستخدم كلمة المرور صفحة الادخال صفحة الاستعلام قاعدة البيانات Yasser 123 yes yes yes aseel 111 yes no yes mohamed 222 no no no بيانات الموظفين.xlsm

بالنسبة لموضوع الصلاحيات فيمكنك متابعة هذا بنفسك من خلال عدة مشاركات بالمنتدى تم تداول هذا الموضوع بها ومنها : برنامج صلاحيات المستخدمين الاصدار 3 حماية ملف اكسل من داخل الملف + صلاحيات لكل مستخدم + سجل لأسماء و مواعيد الدخول للملف شاشة دخول مع صلاحيات برنامج صلاحيات المستخدمين - بشكل جديد نموذج دخول بصلاحيات الاطلاع على أوراق العمل صلاحيات للوصول لشيتات صلاحيات الدخول للمستخدمين وهذه فيديوهات شرح https://www.youtube.com/watch?v=zGopdxUQCQU https://www.youtube.com/watch?v=JxrjmUW_UoA