Ali Mohamed Ali

تفضل يمكنك هذا بهذه المعادلة =IFERROR(INDEX($A$2:$A$7,MATCH(E2,$B$2:$B$7,0)),"") الوقت الحالى.xlsm

وعليكم السلام-كان عليك رفع الملف نفسه ولكن كل ما عليك فعله ان تحدد العمود الذى تريد ضبط الأرقام بداخله وتقوم بعد ذلك بالضغط بيمين الماوس ثم تختار Format Cells وبعد ذلك تضغط على قائمة Number وتختار Custom ثم بعد ذلك تضغط على 0 ثم Ok وذلك كما بالصورة

بارك الله فيك وجعل الله هذا العمل فى ميزان حسناتك ان شاء الله

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

أعتقد استاذ محمد انه يقصد هذا عند الضغط على قائمة 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

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