ياسر خليل أبو البراء

شرح مينفعش ومفهمتش حاجة منه .. لما تقول شيت تقول اسم الشيت .. ولما تقول عايز معادلة تقول عايزها في أي خلية .. ولما تقول نتائج ترفق النتائج المتوقعة عشان تكون الصورة واضحة .. أعتقد أن المعادلات ستتم في ورقة العمل المسماة "إدخال" لكني لم أفهم من أين تجلب البيانات وما هي شكل البيانات المتوقعة ؟ والمرة دي مش كسل أنا اطلعت على الملف ولكني لم أفهم المطلوب بشكل جيد

أخي الكريم أحمد إليك الملف المرفق قمت بإضافة ورقة عمل ليكون العدد مضبوط جرب الكود التالي Sub JJJ() Dim WS As Worksheet, SH As Worksheet Dim I As Long, strSH As String Set WS = Sheets("LIST") Application.ScreenUpdating = False For I = 2 To 22 strSH = "sheet" & I - 1 Sheets(strSH).Range("A15:F16").ClearContents Sheets(strSH).Range("F15").Value = WS.Cells(I, 1).Value Sheets(strSH).Range("E15").Value = WS.Cells(I, 2).Value Sheets(strSH).Range("D15").Value = WS.Cells(I, 3).Value Sheets(strSH).Range("C15").Value = WS.Cells(I, 4).Value Sheets(strSH).Range("B15").Value = WS.Cells(I, 5).Value Sheets(strSH).Range("A15").Value = WS.Cells(I, 6).Value Next I Application.ScreenUpdating = True End Sub تقبل تحياتي Transfer Data To Sheets.rar

أخي الكريم يرجى تغيير اسم الظهور للغة العربية لو أمكن تشرح لي المطلوب عشان أنا مش متابع من البداية وبصراحة مكسل أقرا الموضوع من البداية اشرح لي الخلايا فين اللي عايز فيها المعادلة وعايز من المعادلة ايه (يا أخي سيبها في حالها عملتلك ايه المعادلة ..عايز منها ايه ..سامع المعادلة بتقول أبوس ايدك ارحمني) ويا ريت الملف المرفق الأخير الذي تعمل عليه أو تود العمل عليه ... أعتذر للتأخر في الرد مستر علاء رسلان تقبلوا تحياتي

أخي الكريم شاهد هذا الفيديو عله يفيدك

أخي الكريم أهلا بك ومرحباً في المنتدى .. يرجى الإطلاع على رابط التوجيهات لمعرفة كيفية التعامل مع المنتدى بالنسبة لمشكلتك ادخل لوحة التحكم Control Panel ثم Region and Language ثم التبويب Administartive ثم انقر Change System Locale ثم اختر اللغة العربية لدولة مصر أو الدولة التابع لها قم بإعادة تشغيل الجهاز .. وإن شاء الله تنحل المشكلة

أخي الحبيب أبو عبد الملك تم عمل المطلوب فيما يخص النقطة التي أشرت إليها بخصوص الترتيب في المشاركة رقم 3 ولم أفوتها كما طلبت قمت بطرح موضوع في منتدى أجنبي والحمد لله وفقت في الوصول لحل رغم أن الموضوع بدا لي في منتهى الصعوبة .. ولكن بفضل الله تم بخير إليك الملف المرفق وقم بتجربة الملف وشوف الرتب ..حاول تشوف النتائج وتقارن اللي قلته بالنتائج وغير في الدرجات وجرب تاني وخلي الغيابات واحدة وجرب وهكذا إلى أن يطمئن قلبك أن الأمور سارت كما أردت Sub RankMultipleColumns() Dim A, I As Long, N As Long, Temp As String With Range("F2", Range("F" & Rows.Count).End(xlUp)).Resize(, 14) A = .Value ReDim Preserve A(1 To UBound(A, 1), 1 To 15) For I = 1 To UBound(A, 1) A(I, 15) = I A(I, 14) = Format$(A(I, 13), String(10, "0")) & 10000000 - A(I, 3) & _ Format$(A(I, 5), String(10, "0")) & Format$(A(I, 2), _ String(10, "0")) & Format$(A(I, 1), String(10, "0")) Next VSortM A, 1, UBound(A, 1), 14, 0 For I = 1 To UBound(A, 1) If Temp <> A(I, 14) Then N = N + 1: Temp = A(I, 14) End If A(I, 14) = N Next VSortM A, 1, UBound(A, 1), 15, 1 .Columns(14).Value = Application.Index(A, 0, 14) End With End Sub Private Sub VSortM(Ary, LB, UB, Ref, Optional Ord As Boolean = 1) Dim M As Variant, I As Long, II As Long, III As Long, Temp I = UB: II = LB M = Ary(Int((LB + UB) / 2), Ref) Do While II <= I If Ord Then Do While Ary(II, Ref) < M: II = II + 1: Loop Else Do While Ary(II, Ref) > M: II = II + 1: Loop End If If Ord Then Do While Ary(I, Ref) > M: I = I - 1: Loop Else Do While Ary(I, Ref) < M: I = I - 1: Loop End If If II <= I Then For III = LBound(Ary, 2) To UBound(Ary, 2) Temp = Ary(II, III): Ary(II, III) = Ary(I, III): Ary(I, III) = Temp Next II = II + 1: I = I - 1 End If Loop If LB < I Then VSortM Ary, LB, I, Ref, Ord If II < UB Then VSortM Ary, II, UB, Ref, Ord End Sub تقبل تحياتي Quran School V6.rar

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

ليس له علاقة باسم الدخول ..اسم الدخول لن يتأثر ..سيتم الدخول بنفس الاسم الحالي اسم الظهور باللغة العربية لسهولة التواصل بالنسبة لتحديد أفضل إجابة ستجد أسفل كل مشاركة كلمة "تحديد كأفضل إجابة" بتختار الإجابة التي أعجبتك ليظهر الموضوع مجاب ومنتهي تقبل تحياتي

أخي الحبيب عبد العزيز السكري (مقصودة..أصلي شايف السكري حاجة حلوة ) بارك الله فيك ومشكور على مرورك الكريم بالموضوع وأرجو أن يكون به إفادة للجميع تقبل تحياتي

أخي الفاضل أعتقد أنه تمت الإجابة في الموضوع المطروح من قبل عن بعض النقاط ... سؤالي الأول : هل تريد أن تتم العمليات كل عملية منفصل عن الأخرى كما وضحت بالملف أم أنك تقصد بالخطوات المكتوبة الخطوات المراد اتباعها للوصول للحل النهائي .. بمعنى آخر هل تريد الناتج النهائي مرة واحدة أم بخطوات لكل خطوة كما وضحت نقطة أخرى غير مفهومة : في العمود E ذكرت "تحويل الثنائي صحيح" ماذا تعني بهذا التحويل ؟

مشكور على مرورك العطر أخي الحبيب المجتهد صلاح إن شاء الله سيكون لك شأناً كبيراً ما دمت مصراً على المحاولة ..معجب بنشاطك تقبل تحياتي

أخي الكريم صالح إليك الرابط التالي لموضوع كنت قد قدمته من فترة حول كيفية إخفاء النطاقات المسماة الرابط من هنا

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

أخي الكريم مراد الموضوع بسيط جداً .. قم بالذهاب إلى التبويب Developer ثم انقر على Design Mode للدخول في وضع التصميم كليك يمين على التكست بوكس ثم properties أي خصائص ثم بجانب الخيار Licked Cell اكتب N6 عنوان الخلية المطلوب ربطها لا تنسى أن تنقر على Design Mode مرة أخرى للخروج من وضع التصميم

بسم الله ما شاء الله روعة أخي الحبيب شوقي كما عودتنا دائماً .. ينقصنا وجودك بيننا .. مفتقدينك والله عوداً حميداً وإن شاء الله لا تغيب عننا

كما فهمت ضع المعادلة التالية في الخلية E1 =COUNTIF(INDIRECT(ADDRESS(1,MATCH($D$1,$A$1:$C$1,0))&":"&ADDRESS(SUMPRODUCT(MAX(ROW(A1:A100)*(A1:A100<>""))),MATCH($D$1,$A$1:$C$1,0))),"ساري") قم بتغيير السنة في الخلية D1 كما ذكرت وجرب النتائج

قم بعمل نموذج مشابه وقم بتغيير البيانات بأي بيات اعتباطيه (حلوة اعتباطيه دي)

ما هي طبيعة الماكرو المسجل ؟ ماذا تريد أن تفعل ؟ هل الماكرو مفعل لديك أصلاً ؟

الأخ الكريم حليب يا إشطة أهلا بك في منتجع أوفيسنا .. يرجى الإطلاع على رابط التوجيهات لمعرفة كيفية التعامل مع المنتدى يرجى تغيير اسم الظهور للغة العربية مشكلتك :: --------- قم بفتح برنامج الإكسيل وليس الملف الذي به المشكلة من قائمة الأوفيس (فوق شمال ..اللي بيسموها Office Button) افتحها واضغط على الأمر Open وروح حدد مكان ملفك حدد الملف بس متضغطش على كلمة Open من لوحة المفاتيح خلي صباعك راشق على مفتاح Shift (اوعى تشيل صباعك لأعورك) انقر كلمة Open هيفتح معاك الملف بدون تفعيل أي أكواد روح لمحرر الأكواد عن طريق Alt + F11 شيل الكود الأخير اللي إنت وضعته وسبب لك مشكلة .. وبعد كدا ودي أهم خطوة احفظ الملف وبس خلاص إذا لم يتم حل المشكلة فقم بتغيير نسخة الأوفيس أو أعد تنصيبها من جديد

المشكلة لديك سببها أنك قمت بتمسية الماكرو باسم كلمة محفوظة في اللغة ..ألا وهي كلمة Sort للحل : قم بتغيير اسم الماكرو إلى SortRange مثلاً والكود يكون بهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A3")) Is Nothing Then Call SortRange End If End Sub تقبل تحياتي

شاهد هذا الفيديو أخي الكريم أبو حنين

أخي الفاضل ارفق ملف

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

أخي الكريم خالد الرشيدي من الأفضل إرفاق ملف تسهيلاً على إخوانك ..الصورة لن تجدي الكثير من النفع دون الملف المرفق

أخي الكريم ارفق شكل النتائج المتوقعة ..ليسترشد من يريد تقديم المساعدة بها ..