الخالدي

جرب العادلة التالية =INDEX({5;5;5;6;6;6;6};MOD(B2;7)+1)+B2 حيث {5;5;5;6;6;6;6} يمثل عدد الايام المضافة بدا من يوم السبت حتى الجمعة على الترتيب ومنها تستطيع تعديل ما يضاف على الايام حسب رغبتك

السلام عليكم إنشاء pivot table نطاقات الدمج المتعددة.rar http://office.microsoft.com/client/helppreview.aspx?AssetId=HA102265859990&lcid=1025&NS=EXCEL&Version=12&CTT=5&origin=HP010095249 المطلوب غير واضح في أمان الله

السلام عليكم ورحمة الله وبركاته الجداول المحورية-نطاقات الدمج المتعددة- تتعامل مع اكثر من جدول ومن عدة اوراق لكن تختلف طريقة عرضها للبيانات عن الجداول المحورية -العادية – بسبب اضافة بُعد جديد (مجموعة الجداول) بالتالي اختلاف تقسيمات المحاور جداول محورية.rar

جرب المعادلة التالية =SUMPRODUCT((WEEKDAY(B2)={4,5,6})*{3,2,1})+B2 اضافة ايام.rar

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي احمد عبد الناصر ما شاء الله اكوادك سهلة وممتازة ولإثراء الموضوع الكود المرفق يعمل عند مسح خلية او اكثر في النطاق C5:K22 في أمان الله ترحيل الخلايا الممسوحة غير الفارغة.rar

السلام عليكم ورحمة الله وبركاته مبارك لك الترقية اخي الفاضل/ رجب جاويش ترقية مستحقة عن علم وخلق تمنياتي لك بدوام النجاح والهمة العالية

وعليكم السلام ورحمة الله الاخ الفاضل العزيز حمادة عمر شكرا لمرورك وكلماتك الطيبة الغياب بسبب الظروف ومشاغل الحياة الا من بعض المشاركات النادرة بدافع الحنين للاكسل والمنتدى البركة فيك وفي اخوة المنتدى تمنياتي لك بالتوفيق

جرب الكود التالي Sub AL_KHALEDI() Static N N = IIf(N, 0, 1) If N = 0 Then Exit Sub Do While N = 1 Randomize Range("B5") = Range("Quest")(Application.RandBetween(1, 50)) w = 1.4 'محدد سرعة العرض temp = Timer Do While Timer < temp + w DoEvents Loop Loop End Sub عرض عشوائي.rar

السلام عليكم ورحمة الله وبركاته بعد اذن الاخوة الاحباء العيدروس و ياسر خليل كود عند اضافة ومسح خلية او اكثر Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range(Cells(10, 5), Cells(Rows.Count, 5)), Target) Is Nothing Then For Each cl In Intersect(Range(Cells(10, 5), Cells(Rows.Count, 5)), Target).Cells If cl = "" Then Range(Cells(cl.Row, 1), Cells(cl.Row, 13)).Borders.LineStyle = xlNone Else Range(Cells(cl.Row, 1), Cells(cl.Row, 13)).Borders.ColorIndex = 1 End If Next End If End Sub

السلام عليكم ورحمة الله وبركاته بعد اذن الاخوة الكرام الصف هو صف الاجمالي للجدول المسمى (InventoryTable) يظهر الصف تلقائيا عند تفعيل الرمز (صف الاجمالي) في (ادوات الجدول) . وصف الاجمالي لا يظهر الا مع الجداول الرسمية (تسمى قائمة في اكسل2003) المعادلة في الخلية H17 تستخدم (مراجع مصنفة) وليس مرجع خلايا او مرجع اسماء والمراجع (المصنفة) تتيح استخدام أسماء عناوين أعمدة الجدول في الصيغ بدلاً من مراجع الخلايا , والمراجع (المصنفة) بدأ استخدامها مع اكسل2007 وهي تستخدم مع الجداول الرسمية(القوائم) فقط. عند استخدام المراجع المصنفة يجب الاشارة الى اسم الجدول ثم الى جزء الجدول ثم الى اعمدة الجدول(اذا كان المطلوب عمود او اعمدة محددة من الجدول) , ويجب ان تكون اجزاء الجدول بين قوسين مربعين [ ] , ايضا يجب ان تكون اسماء اعمدة الجدول بين قوسين مربعين [ ] ملاحظة :يمكن أن يكون المرجع المصنف (غير مؤهل) أو (مؤهل بشكل كامل) حيث (غير مؤهل) يعني عدم اشتمال المرجع على اسم الجدول ويكون ذلك عندما تكون المعادلة داخل خلايا الجدول . و (مؤهل بشكل كامل) يعني اشتمال المرجع على اسم الجدول ويكون ذلك عندما تكون المعادلة خارج الجدول . اجزاء الجدول هي: [#All]الجدول بأكمله، متضمناً عناوين الأعمدة والبيانات والإجماليات (إن وجد) [#Headers] فقط صف العنوان [#Totals] فقط صف الإجمالي. [#Data] البيانات فقط. (عادة لا يظهر في المعادلة وفي هذه الحالة يعتبر ان الجزء المطلوب هو جزء البيانات فقط , لكن يجب تحديده في بعض الحالات , مثلا: عند الاشارة معا الى جزء البيانات وجزء الاجمالي) [@] فقط الصف الحالي للبيانات(عند تحديد عمود معين يضاف اسم العمود مباشرة بعد الحرف @) لفهم تركيب المراجع المصنفة اكتب في اي خلية = ثم حدد بالماوس اجزاء واعمدة الجدول , مع مراعاة ان يكون خيار استخدام اسماء الجداول في الصيغ مفعلا في خيارات الاكسل ملاحظة :معادلة الخلية H17 لا تظهر كاملة في شريط الصيغة بسبب احتوى اسم العمود Purchase price على فاصل اسطر , لمشاهدة معادلة الخلية كاملا في شريط الصيغ وسع شريط الصيغ او احذف فاصل الاسطر من اسم العمود. في أمان الله

جرب المرفق بدون موديول2.rar

بعد اعادة تجربة الكود الكود يعمل على اكسل2010 الكود لا يعمل على2003 لا علم لي بالسبب

قبل السطر For Each c In MyRng ضع الاسطر التالية For Each V In ActiveSheet.Shapes If V.Top = Rows(16).Top + 1 Or V.Top = Rows(30).Top + 1 Or V.Top = Rows(44).Top + 1 Then V.Delete Next

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

ولإثراء الموضوع عدل الاسطر التالية: If Sheets("مشتريات").Cells(R, 6) = Sheets("report").[c3] Then If Sheets("مشتريات").Cells(R, 5) >= Sheets("report").[g3] Then If Sheets("مشتريات").Cells(R, 5) <= Sheets("report").[j3] Then عدلها الى: If IIf(Sheets("report").[c3] = "", 1, Sheets("مشتريات").Cells(R, 6) = Sheets("report").[c3]) Then If IIf(Sheets("report").[g3] = "", 1, Sheets("مشتريات").Cells(R, 5) >= Sheets("report").[g3]) Then If IIf(Sheets("report").[j3] = "", 1, Sheets("مشتريات").Cells(R, 5) <= Sheets("report").[j3]) Then

جزاك الله كل خير اخي ابو انس ولك مثل دعائك لي وزيادة بارك الله في عملك وعمرك

السلام عليكم ورحمة الله وبركاته الكود المرفق يعمل عند تغير التحديد في الورقة لا اعلم كيف تنفيذ الكود عند تحريك عجلة الماوس او عند استخدام شريط التمرير مشاركتي فقط لتنشيط الموضوع واستخراج ما في جعبة الخبراء Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Activewindow.FreezePanes Then If Cells(Activewindow.ScrollRow, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top Then ActiveSheet.Shapes.Range("AutoShape 2").IncrementTop Cells(Activewindow.ScrollRow, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top End If Else If Cells(1, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top Then ActiveSheet.Shapes.Range("AutoShape 2").IncrementTop Cells(1, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top End If End If End Sub حركة شكل تلقائي.rar

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

شيء طيب ان يكون العمل مثل اعمالكم الأكثر روعة شكرا للمرور الكريم شكرا وبارك الله فيك والحمد لله رب العالمين

شكرا لمرورك اخي الكريم أبو ردينة قمنا بتعريف اسم جديد باسم - دولة (ادخل على ادارة الاسماء لمشاهدة الاسم) وضعنا المعادلة التالية للاسم - دولة =IF(الشرح1!$D$3=INDEX(الدول;1;1);الجزائر;المغرب) كتبنا في عنصر التحكم في نطاق الادخال - دولة ملاحظة : يمكن استبدال المعادلة السابقة بمعادلة ابسط: =INDIRECT(الشرح1!$D$3) في أمان الله

جرب المرفق عسى ان يكون المطلوب قائمة منسدلة تعتمد على قائمة أخرى2.rar

السلام عليكم ورحمة الله وبركاته حل اخر بكود في حدث الورقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Address <> [B6].Address Then Exit Sub For Each cl In Range("J2,F8,J9,M11,F15,G16,J16,H28") Arr = Arr & cl & "," Next With [B6].Validation .Delete .Add Type:=3, Formula1:=Arr .ErrorMessage = "ادخال غير صحيح" .ShowError = True End With Arr = "" End Sub قائمة منسدلة من خلايا متفرقة.rar

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

السلام عليكم ورحمة الله وبركاته حسب فهمي للمطلوب جرب المرفق تسلسل مع التصفية2.rar

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