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

يوجد بالمنتدى العديد من الموضوعات والبرامج التي تقوم بالأمر استخدم خاصية البحث لتتعلم وتجرب بنفسك ..

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

أخي الكريم أبو حمادة الحمد لله أن تم حل المشكلة بنسبة كبيرة لاحظت في الملف المرفق أنك قمت بزيادة عمود (لما لم تنوه عن الأمر ..فأي تعديل في الورقة يستلزم تعديل في الكود ومراجعة للكود من جديد .....!!!) بالنسبة للشروط فقد تم العمل عليها ..فقد تم العمل على الخلايا الخاصة بالتاريخ والخلية الخاصة V3 والتي كانت بالمرفق السابق U3 .. صراحة لا أدري الشروط إلى الآن بشكل واضح .. ممكن توضح المطلوب بمسميات الإكسيل .. يعني قول الخلية اللي عنوانها كذا بتجيب البياانات من العمود كذا اللي في ورقة العمل كذا لابد من وضع آلية للتوضيح لكي تستطيع التواصل بشكل أفضل ... أنا غير مستعد أن أقضي ساعات أخرى في حل ، لمجرد التخمين ملحوظة أخرى عمود الصنف في الملف القديم كان Q الآن في الملف الجديد بقدرة قادر أصبح رقمه 8 !!! فهلا استقررت على ملف واحد فقط للعمل عليه هل عرفت السبب الآن في عدم استجابة الأعضاء لموضوعاتك بشكل كبير لابد أن تعي أن الموضوع الجيد يحمل عنوان وااااااضح معبر عن الطلب ، به ملف مرفق واااااااضح ومعبر عن الملف الأصلي تماماً ، وبالموضوع شرح واضح لطلب واحد محدد وصريح ، ويكون الشرح بلغة الإكسيل أي ابتعد عن الشرح لمسميات طبيعة عملك فإذا كنت محاسب لا تتوقع مني أن أفهم اللغة الخاصة بالمحاسبة على الإطلاق ، ولكن اجعل اللغة التي تتحدث بها لغة الإكسيل (صف - عمود - خلية - نطاق - ورقة عمل ) ، والأفضل في معظم الحالات إرفاق شكل النتائج المتوقعة التي تزيل أي لبس بالموضوع تقبل تحياتي

أخي الكريم رجب إليك الملف المرفق بعد فك حماية محرر الأكواد .. ويرجى ذكر الخطوات التي تقوم بها وبعدها ترجع الحماية مرة أخرى لتجربة الملف مرة أخرى 122222221.rar

وجزيت خيراً بمثل ما دعوت لي أخي الفاضل الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

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

أخي الكريم لؤي يرجى وضع عنوان مناسب للموضوعات ، ويرجى الإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى

أخي الكريم هشام محمد وعليكم السلام ورحمة الله وبركاته الاحتمالات للمثال الأول على سبيل المثال كثيرة جداً .. فالأرقام 1 ، 163 ، 21 مجموعهم يساوي 185 ، ولو ضربت النسب المذكورة ( 0.05 / 0.10 / 0.25) في الأرقام ستجد مجموعهم يساوي 21.6 وكذلك الأرقام 4 ، 159 ، 22 وكذلك 25 ، 131 ، 29 ويوجد احتمالات كثيرة للغاية ..!!!! فكيف تريد الحل؟

أخي الكريم جرب الرابط التالي عله يفي بالغرض الرابط من هنا

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

بارك الله فيك معلمي دغيدي .. وعوداً حميداً تطول غيبتك عنا ولك في قلوبنا محبة ومعزة لا يعلمها إلا الله ، فرجائي ألا تغيب عن إخوانك

أخي الكريم اكتب التاريخ الميلادي في خلية ثم كليك يمين ثم Format Cells ثم غير التنسيق بهذا الشكل أي التنسيق يكون B2dd/mm/yyyy تقبل تحياتي

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

أخي الكريم أبو حمادة يرجى فيما بعد في أي موضوعات قادمة أن يكون الملف المرفق معبر عن الملف الأصلي .. لاحظ أنني طلبت منك أكثر من مرة إرفاق ملف وفيه المعادلات في الخلايا الخضراء ولم تستجب ، فهل إذا لم تستجب لمطلبي ترى هل يمكن أن أستجيب لمطلبك ؟؟!! راعي الآخرين كما تحب أن يراعيك الآخرون جرب الكود التالي عله يفي بالغرض (الكود استغرق مني أكثر من 3 ساعات فلا تنسانا بدعوة بظهر الغيب) Sub Filter_Transfer_Data() Const nGroup As Long = 25 Const nInsert As Long = 3 Dim Ws As Worksheet, Sh As Worksheet Dim myDate1 As Date, myDate2 As Date Dim arr1 As Variant, arr2 As Variant Dim I As Long, J As Long, P As Long Set Ws = Sheets("add") Set Sh = Sheets("Aldata") Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Sheets("Temp").Delete Sheets.Add.Name = "Temp" On Error GoTo 0 If IsDate(Sh.Range("W2")) And IsDate(Sh.Range("W3")) Then myDate1 = Sh.Range("W2"): myDate2 = Sh.Range("W3") myDate1 = DateSerial(Year(myDate1), Month(myDate1), Day(myDate1)) myDate2 = DateSerial(Year(myDate2), Month(myDate2), Day(myDate2)) End If With Ws .AutoFilterMode = False .Range("A2:R2").AutoFilter Field:=15, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 .Range("A2:R2").AutoFilter Field:=17, Criteria1:=Sh.Range("U3").Value .Range("A2").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1") .AutoFilterMode = False End With On Error Resume Next Sh.Range("A6:R10000").SpecialCells(xlCellTypeConstants).ClearContents arr1 = Sheets("Temp").Range("A1").CurrentRegion.Value I = ((UBound(arr1, 1) \ nGroup) + 1) * (nGroup + nInsert) arr2 = Sh.Range("A6").Resize(I, UBound(arr1, 2)).Formula For I = 1 To UBound(arr1, 1) P = P + 1 For J = 1 To UBound(arr1, 2) arr2(P, J) = arr1(I, J) Next J If I Mod nGroup = 0 Then P = P + nInsert Next I Sh.Range("A6").Resize(UBound(arr2, 1), UBound(arr2, 2)).Formula = arr2 Sheets("Temp").Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تقبل تحياتي

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

لكي يعمل الكود يجب إدخال بيانات في النطاق الهدف E2:H7 جرب تدخل بياانات في هذا النطاق لترى النتيجة بنفسك بالنسبة لنسبة الإنجاز ممكن توضيح ببعض النتائج المتوقعة ..بمعنى اضرب مثال للتوضيح ..

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير لا تنسى أنن تقوم بتغيير اسم الظهور للغة العربية يا أسد تقبل تحياتي

قبل كلمة Range في الكود يتم الإشارة إلى الورقة المطلوبة أو جرب الكود التالي Sub Test() With Sheet8 If .Range("O8").Value < 0 Then .Range("N8").Value = .Range("N8").Value - .Range("O8").Value * -1 .Range("O8").Value = 0 End If End With End Sub

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية هل جربت تعمل كليك يمين على الخلايا ثم Format Cells أي تنسيق خلايا ثم تختار Time أو وقت وتحدد نوع التنسيق الذي يناسبك؟

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

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

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

وعليكم السلام أخي الكريم قم بإرفاق ملفك لتوضيح طلبك بشكل أدق

وعليكم السلام أخي الكريم أسامة جرب الكود التالي Sub Test() If Range("O8").Value < 0 Then Range("N8").Value = Range("N8").Value - Range("O8").Value * -1 Range("O8").Value = 0 End If End Sub أما استخدام المعادلات فلا يجوز في هذه الحالة لأن هذا سيتسبب في حدوث خطأ دائري مرجعي ، إذا لا يجوز استخدام نفس الخلية في حساب المعادلة ... Circular Reference