طارق محمود

السلام عليكم رحبا بك أخي الكلايم بين إخوانك الكود الذي تريد هو Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 1 Or Target.Row <> 1 Then Exit Sub Dim x As Range Set x = [b2000].End(xlUp) If [a1].Value <> 0 Then x.Offset(1, 0).Value = [a1].Value b = x.Row + 1 50 a = WorksheetFunction.RandBetween(100, 1000) For i = 2 To b If Cells(i, 2).Value = a Then GoTo 50 Next i [a1].Value = a End Sub ويتم تخزينه في حدث الورقة عن طريق دبل كليك علي الخلية A1 يتم توليد رقم عشوائي بين 10 ، 1000 وينقل السابق إلي العمود B لمقارنة الرقم العشوائي بكل الموجود بالعمود B حتي لايتكرر الرقم العشوائي المتولد وإلا يولد غيره ويعمل الكود وإن كان العمود B مخفيا لكني أظهرته لك لتعرف الفكرة تفضل المرفق وتستطيع إخفاء العمود B moon.rar

السلام عليكم أولا إظهر الورقة Date وحاول تعمل Refresh يدوي لبيانات النت وذلك عن طريق كليك يمين الماوس وأنت علي الخلية A1 مثلا ثم Refresh ستجد تنويه مثل الموجود في أعلي الصورة التي ارسلتها علي اليسار التنويه عن أن الــ Data_Connections لم تفعل إضغط عليه وإختر أحد الخيارات العلوية وممكن تعمل نفس الخطوات عندما تظهر لك الرسالة ثم تحفظ الملف وتنتهي المشكلة إن شاء الله أنظر الصورة إن شاء الله يعمل بلا مشاكل إلا إذا مثل هذه التي ظهرت عندك وتعالجها بنفس الطريقة

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

السلام عليكم اخي خالد اهلا وسهلا بك بين اخوانك أيضا لم افهم جيدا المطلوب لكني قدرت ان أحد الحلين بالمرفق سيكون طلبك والله أعلم المرفق ملف إكسل بالحلين في Sheet2 ، Sheet1 باستخدام التصفية المتقدمة للبيانات ومعه أيضا فيديو لكيفية هذ الحل Data_Filter&vlookup.rar

السلام عليكم شاهد المرفق به ورقة مخفية ، إسمها Date وهي تستدعي الوقت من النت ثم برابط بسيط تجد الوقت بالخلية H4 في الورقة الأولي مع ماكرو ذاتي التشغيل بمجرد فتح الملف ، سيذهب للورقة Date ويحدث بيانات النت ثم يخفي الورقة لو تم تعديل تاريخ الويندوز فإن التاريخ في الخلية C4 سيتغير ولن يكون حقيقي ولكن التاريخ باللون الأزرق المرتبط بالنت في الخلية H4 سيكون حقيقي .... جرب والان ستتغير نتيجة المعادلة التي في الخلية E8 إذا تحقق الشرط ولكن سأترك لك ربطها مع H4 بدلا من C4 تفضل المرفق Ahmed 25-2.rar

السلام عليكم<br><br>مواقع كثيرة عالنت توضح الوقت الحالي يوم - شهر - سنة / ساعة : دقيقة: ثانية<br>مع كافة التحفظات لكل بلد من توقيت صيفي / شتوي .. إلخ <br><br>مثلا<br>http://www.timeanddate.com/worldclock/<br>

لأنك ممكن تحصل علي التاريخ والوقت الحالي الحقيقي من النت حتي تضمن التاريخ الحقيقي

السلام عليكم ماشي بإكسل 2003 غيرت في بيانات الفصل 5/1 لنأكيد الدالة sumif تفضل المرفق المساعدة فى عمل احصاء4.rar

السلام عليكم أخي الكريم تفضل المرفق abu_shouk.rar

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

يمكن ذلك بطريقتين بالجدول المحوري : إستبدل صيغة العد count بالجمع sum في الحقل المراد (جزئي -كلي) وذلك عن طريق كليك يمين علي هذا الحقل ثم Field setting ثم إختار من summarize by أو إكسل 2007: إستخدم دالة sumifs بدلا من countifs

وهذه بمعادلات علي إكسل 2003 باستخدام Sumproduct لو مافيش 2007 تفضل المرفق المساعدة فى عمل احصاء3.rar

السلام عليكم بالمعادلات علي إكسل 2007 باستخدام Countifs لو مافيش 2007 ممكن إستبدالها بمعادلة Sumproduct موجودة علي 2003 تفضل المرفق المساعدة فى عمل احصاء3.rar

السلام عليكم أضفت لك إضافات بسيطة في الجدول الأصلي ثم بالجداول المحورية تحصل علي ماتريد تفضل المرفق المساعدة فى عمل احصاء2.rar

السلام عليكم تفضل أخي المرفق اللو الأحمر أوتوماتيكي ويعني ان هذا الرقم لهذا المركز تعدي الـ 100 Telephone.rar

السلام عليكم ولايهمك ياأستاذ المهم المعلومة توصل لمن يحتاجها تقول نعم طبعا أضف للكود بعد سطر On Error GoTo ErrHandler السطور التالية If Range("J" & Target.Row).Value = 1 Then Range("A14:L64").Interior.Pattern = xlNone Exit Sub End If أو إستبدل الكود كله بالتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrange, a, b As Range, rep(99) As Integer On Error GoTo ErrHandler If Range("J" & Target.Row).Value = 1 Then Range("A14:L64").Interior.Pattern = xlNone Exit Sub End If Application.EnableEvents = False rr = Target.Row x = [a1].Offset(rr - 1, 0) Set myrange = Range("A14:A64") Range("A14:L64").Interior.Pattern = xlNone i = 0 Range("M14:M64").ClearContents For Each s In myrange y = s.Value If y = x Then i = i + 1 Range("A" & s.Row, "L" & s.Row).Interior.ColorIndex = 4 rep(i) = s.Row End If Next s sum_nj = 0: chg = 0 For j = 1 To i Set a = Range("H" & rep(j)) For nj = 1 To i Set b = Range("H" & rep(nj)) If b.Value <> a.Value Then chg = 1: b.Interior.ColorIndex = 3 Next nj Next j If chg <> 0 Then For j = 1 To i sum_nj = sum_nj + Range("G" & rep(j)).Value Next j End If If sum_nj <> 0 Then Range("M" & rep(1)).Value = sum_nj ErrHandler: Application.EnableEvents = True End Sub

أخي الكريم ممكن تعمل تحديث كلما تم ادراج أي شركات جديدة في السوق أنظر الفيديو المرفق Refresh_Net.rar

لاأفهم ماتقصد علي سبيل المثال وضع أخونا دغيدي ،جزاه الله خيرا، بعض الأسماء المتكررة على 1 مكرر 4 مرات ، على 5 مكرر 3 مرات وبالمعادلات وليس بالمعرفة المسبقة يكتب لك الأكسل مرات التكرار أرجو التوضيح أكثر

السلام عليكم نعم أخي يمكن ذلك تفضل المرفق onlyman-3.rar

إذا وقفت داخل الجدول سيتم تلوين الصفوف بالجدول التي تحتوي علي نفس الصنف بالسطر الحالي باللون الأخضر وإذا كان UNIT PRICE لها غير متساوي مثل M1 أو M2 فسيكون لونه أحمر وإلا سيكون مثل الباقي أخضر

السلام عليكم أخي العزيز جرب المرفق أو ضع الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrange, a, b As Range, rep(99) As Integer On Error GoTo ErrHandler Application.EnableEvents = False rr = Target.Row x = [a1].Offset(rr - 1, 0) Set myrange = Range("A14:A64") Range("A14:L64").Interior.Pattern = xlNone i = 0 For Each s In myrange y = s.Value If y = x Then i = i + 1 Range("A" & s.Row, "L" & s.Row).Interior.ColorIndex = 4 rep(i) = s.Row End If Next s For j = 1 To i Set a = Range("H" & rep(j)) For nj = 1 To i Set b = Range("H" & rep(nj)) If b.Value <> a.Value Then b.Interior.ColorIndex = 3 Next nj Next j ErrHandler: Application.EnableEvents = True End Sub onlyman-2.rar

السلام عليكم أنظر الفيديو المرفق لتستطيع نقل الماكرو بنفسك ملاحظة نظام الويندوز عندي ليس مدعوم بالكامل للغة العربية لذلك ستجد أسماء الشيتات داخل بالماكرو باللغة العربية غير مقرؤة فلاتنزعج Copy_Macro.rar

السلام عليكم أخي العزيز سأجاوبك حسب وقتي جزء بجزء أولا في أي معادلة من العمود J $K$2:$K$27,$D$2:$D$27,D9,$C$2:$C$27,"<="&C9)-SUMIFS($I$2:$I$27,$D$2:$D$27,D9,$C$2:$C$27," إستبدل كل أرقام الـ 27 التي تلي الـ K,D,C والموجودة مرتين (أي إجمالي 6مواضع بالمعادلة) برقم 1000 وتنسخها لباقي العمود وبذلك تكون فتحت المجال لألف عميل فتكون كالتالي =SUMIFS($K$2:$K$1000,$D$2:$D$1000,D8,$C$2:$C$1000,"<="&C8)-SUMIFS($I$2:$I$1000,$D$2:$D$1000,D8,$C$2:$C$1000,"<="&C8)

السلام عليكم أخي الحبيب بن علية يبدو ان الملف بصيغة إكسل 2007 أو 2010 ، المهم فتح عندي كان السؤال في صفحة تجميع البيانات كالتالي مرفق بصيغة إكسل 2003 مع الحل Weld_Jada.rar

السلام عليكم أخي العزيز تفضل المرفق وبداخله الشرح ولد جدة‫‬.rar