احمد عبد الناصر

السلام عليكم استاذي الفاضل اسعد الله صباحك - بالنسبة لبطء الملف مع كمية البيانات الكبيرة فلم اجد له حل حاولت قراءة الكود اكثر من مرة و لم استوعبه(اعادة كتابته اسهل ههههه) , من الممكن ان يكون السبب في comments . -بالنسبة لتعدد قيم steps علي مستوى ثلاث عواميد , الملف باستطاعته ذلك ففي كل مرة يسءلك عن قيمة ال step و رقم العمود الذي تريد النتيجه ان تظهر به و لكن سيتطلب ذللك منك تشغيل الكود ثلاث مرات (امر سهل :D ). -كان عندي تساؤل فكما اتذكر الكود كان به عيوب و لم يكن مكتمل و احيانا يأتي بنتائج خاطءه خاصة عن وجود ارقام بعلامات عشرية , فهل مازلت تواجه مشاكل في نتائج الكود ؟! تحياتي و معذرة علي التأخر في الرد

السلام عليكم حل اخر =CEILING((IF((SUM(B5:G5)<=$K$8);$K$5;($K$5-((SUM(B5:G5)+SUM(SUMIF(B5:G5;{"a";"n"};$B$2:$G$2)))*$K$7))));0.25) تحياتي المصنف1++.rar

السلام عليكم جرب هذه تحياتي المصنف1+.rar

السلام عليكم بعد ملىء جميع الخانات اضغط حفظ ثم اضغط ترحيل . لم يظهر معي خطأ عند التسجيل هل يمكن ان تكتب الخطوات التي تقوم بها خطوة خطوة حتى اجربها و يظهر الخطأ عندي ؟ تحياتي

السلام عليكم برجاء مزيد من التوضيح , او مثال فلم يظهر الخطأ معي, لكن لم احاول كثيرا . العمود (L (Reason of Delq , العمود(M (Account Status يشترط الكود و جود بيانات فيهما ليتم الترحيل تحياتي

السلام عليكم جرب هذه بعض التقدريات غير متشابهة مثلا (جيد) و (جيد ) بعدها مسافة لذلك قمت باضافة دالة trim تحياتي المقارنة#+.rar

السلام عليكم جرب هذه المحاوله تحياتي Rot+.rar

السلام عليكم جرب هذه ملاحظة : الكود به خطأ عند اختيار خلايا بدل من نطاقات تحياتي رسم بيانى بالضغط على الزر++.rar

بدل الضغط علي زر مشاركة اضغط المحرر الكامل > ثم اختر ملفات

هل من الممكن ارفاق مثال لحدوث ذلك لتتضح الفكرة, شكرا

السلام عليكم اسعد الله صباحكم جرب هذه المحاولة كبداية ملاحظة : لا تأخذ بعين الاعتبار التاريخ لكن الوقت فقط.(مبدئيا) تحياتي sample+.rar

السلام عليكم اسعد الله صباحكم استاذ سليم معادلة صفيف رائعة تقوم بتجاهل الفراغات و استخراج النصوص تعتمد علي معادلة ISTEXT فتعتبر الرموز(مثل "--") اسماء و هو منطقي نوعا ما , و في حالة الارقام تاتي بخطأ و لا تتخطاه(لكنه يوضع اسفل القائمة) لقد حاولت انشاء معدلة لكن اخذت مني و قت طويل و لم اتتممها وكان تفكيري في الشرط الذي يحدد ان محتوي الخلية >>اسماء و هو بان اتأكد ان اول خانة في الخلية هي حرف باستخدام left و code لكني لم اكمل المعادلة . معادلة الاستاذة ام عبدالله تعمل علي ثلاث شروط ان لا يكون فراغ , ISTEXT , و المحتوي اكبر من 2 خانة (بمعني ان ابدلنا -- ب --- سوف تعتبره اسم) و هو منطقي بالنسبة لمحتوي الملف . انا اقصد ان الاحتمالات كثيرة وتتوقف علي طبيعة العمل لصاحب الملف و الشروط الفعليه التي تقابله اما نحن فنستمتع و نتعلم و من معادلاتكم و افكاركم بتنوعها و تركيباتها الفريدة فجزاكم الله عنا كل خير و جزا الله القائمين علي المنتدي كل خير تحياتي

السلام عليكم اسعد الله اوقاتكم معادلات مميزة جدا ما شاء الله ,حياكم الله الاستاذه ام عبدالله هل ممكن تغير الشرط في الخلية A1 من =IF(AND(ISTEXT(B1)=TRUE,LEN(B1)>2),ROW(B1:B1),"") الي =IF(AND(CODE(left(B1,1))>=65,CODE(left(B1,1))<=122),ROW(B1:B1),"") ليتأكد من ان اول خانة في الكلمة هو حرف (انجليزي)

السلام عليكم بعد التحية , بالنسبة لتحريك الزر انا اختار design mode من تاب develeopler في اكسيل 2010 ثم احرك الزر او اعدل خصائصه لكن ليس لدي فكرة اين design mode في 2003

السلام عليكم جرب هذه Private Sub CommandButton1_Click() ' Changes the Chart's XValue and Value ranges to display the selected data If TypeName(Selection) = "Range" Then If Selection.Columns.Count = 1 Then If Selection.Column = 2 Then If Selection.Areas.Count = 1 Then t = Range("A1:C1,A" & Selection.Cells(1).Row & ":C" & Selection.Cells(Selection.Rows.Count).Row & "").Address ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SetSourceData Source:=Range(t) Else MsgBox "Select a contiguous range of cells in column B.", vbInformation End If End If End If End If End Sub تحياتي

السلام عليكم جرب هذا تحياتي vlook+.rar

السلام عليكم جرب هذا الكود Sub SuperScriptText() 'Superscript's the selected area Start = WorksheetFunction.Find(" ", Selection.Value, 1) lenn = Len(Selection) - Start Selection.Characters(Start:=Start + 1, Length:=lenn).Font.Superscript = True End Sub تحياتي

انا لله و انا اليه راجعون

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

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

السلام عليكم اعتقد لا يمكن تكرار حدث للصفحة Private Sub Worksheet_Change(ByVal Target As Range) جرب دمج الكودين Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("U10")) Is Nothing Then Select Case Range("U10").Value Case Is = Range("W15").Value copy_basic copy_custom (15) Case Is = Range("W16").Value copy_basic copy_custom (16) Case Is = Range("W17").Value copy_basic copy_custom (17) Case Is = Range("W18").Value copy_basic copy_custom (18) Case Is = Range("W19").Value copy_basic copy_custom (19) Case Is = Range("W20").Value copy_basic copy_custom (20) Case Is = Range("W21").Value copy_basic copy_custom (21) Case Is = Range("W22").Value copy_basic copy_custom (22) Case Is = Range("W23").Value copy_basic copy_custom (23) Case Is = Range("W24").Value copy_basic copy_custom (24) Case Else MsgBox "C?E??C?? U?? ??II ???C", vbCritical End Select ElseIf Not Intersect(Target, Range("A10:A12")) Is Nothing Then If Range("A10") = 0 Then Range("A15,A17,A19,a21,a23,a25,a27,a29").EntireRow.Hidden = True Else Range("A15,A17,A19,a21,a23,a25,a27,a29").EntireRow.Hidden = False End If If Range("A12") = 0 Then Range("A16,A18,A20,a22,a24,a26,a28,a30").EntireRow.Hidden = True Else Range("A16,A18,A20,a22,a24,a26,a28,a30").EntireRow.Hidden = False End If Else Exit Sub End If End Sub تحياتي

السلام عليكم اسعد الله صباحكم ممكن زياده مرونة الكود بالبحث عنن "مسافة" مثلا داخل محتوى الخليه لتكون دلالة عن فصل الرقم و قوته . ملاحظة لا يعمل مع الارقام الا ان كان هناك مسافة بين الرقم و القوه . تحياتي Book1+.rar

السلام عليكم اسعد الله صباحكم جرب هذا M = M + 1 xm = xm + 1 If xm = 16 Then M = M + 1 xm = 1 End If تحياتي mohammed+.rar

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

السلام عليكم مبروك علي الترقية زادك الله علما و نفع بك و اعلي نزلك في جنات النعيم