Ali Mohamed Ali

أعتقد استاذ محمد انه يقصد هذا عند الضغط على قائمة File مثلاً فى الإكسيل ستظهر هذه النافذة كما بالصورة وتظهر بها قائمة New أو يمكنك الضغط على مفتاحى Ctrl+N لفتح ملف جديد على الإكسيل ان لم تتمكن من حل المشكلة هكذا فعليك بتتبع الخطوات وتنفيذها كما بالرابط التالى : How to fix Excel 2016 Opening Blank Workbook Issue أو هذا الرابط ايضا Fix Excel 2016 opening a blank document

بارك الله فيكم جميعا كلها حلول ممتازة كل عام وأنتم بخير

مبروك الأستاذان عبدالفتاح في بي اكسيل و الرائد 77 إنضمامكما لعائلة الخبراء ,أسأل الله لكما التوفيق والنجاح دائما ..وأعانكما الله على هذه المسئولية الجديدة وسدد الله خطاكما عن حق وجدارة بارك الله فيكما وزادكما الله من فضله

أحسنت استاذ منير عمل رائع ..جزاك الله كل خير يار يت لو ممكن رفع الملف هنا حتى تعم الفائدة ,حيث هناك مشكلة بتحميله شكرا لك استاذ منير والبرنامج كما وعدتك ايضاً الأن على ميديا فاير ..وهذا هو الرابط MONEER1

وذلك بوضح هذه الأكواد بحدذ الصفحة Public oldval As Double Sub KH_TEST() oldval = 0 End Sub Private Sub Worksheet_Change(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then _ Target = oldval + Target Else Target = oldval Application.EnableEvents = True End If 1 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then oldval = Target Else oldval = 0 Application.EnableEvents = True End If 1 End Sub الصلاة١.xlsm

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