نجوم المشاركات

السلام عليكم ورحمة الله وبركاته إخواني الكرام ... ارتأيت أن موضوع المصفوفات بات من الأهمية بمكان بحيث لا يجب أن ننساه لما له من أهمية كبيرة في التعامل مع الأكواد بسرعة كبيرة جداً وخصوصاً في حالة التعامل مع كم هائل من البيانات .. فقررت أن أشارككم بما تقع عليه يدي من أكواد فيما يخص المصفوفات لنتعلم ونرتقي سوياً .. سأتناول كود بسيط بالتفصيل لنعرف ما هية المصفوفات وكيفية التعامل معها بشكل جيد الكود عبارة عن عمل حلقة تكرارية لعناصر المصفوفة من أول عنصر لآخر عنصر .. وإظهار العناصر في رسالة أو وضعها في نطاق أو التعامل معها كما تريد نبدأ بالكود بالكامل ثم نتناوله بالتفصيل Sub LoopInArray() Dim myArray As Variant Dim X As Integer myArray = Array("Yasser", "Khalil", "Officena", "Forum") For X = LBound(myArray) To UBound(myArray) MsgBox (myArray(X)) Next X End Sub السطر الأول هو بداية الإجراء الفرعي ويبدأ بكلمة Sub كما تعودنا يليه اسم الإجراء الفرعي ويفضل تسميته باسم يعبر عن الهدف من الكود ...قمت بتسميته LoopInArray حيث أننا سنتعامل بالحلقات التكرارية داخل عناصر المصفوفة .. وطبعاً لكل شيء بدأته لازم تقفله ..وقفلة الـ Sub بتكون بكلمة End Sub في نهاية الكود بالطبع السطر الثاني الإعلان عن متغير myArray وهو متغير للمصفوفة التي سنتعامل معها وقمت بتسميتها باسم مناسب وليس أي اسم (أفضل دائماً أن تكون أسماء المتغيرات معبرة عن المتغير والهدف منه ونوعه ..) السطر الثالث هو إعلان عن متغير من النوع Integer ووظيفة هذا المتغير أنه بمثابة عداد ..إذ أن من يعرف الحلقات التكرارية يعرف أنه لعمل حلقة تكرارية يستلزم أن يكون هناك عداد لهذه الحلقة التكرارية .. وقيمة المتغير X ستتغير مع كل حلقة .. أقصد أنه في أول لفة ستكون قيمة المتغير تساوي رقم البداية (فإذا كان رقم البداية 1 فإن المتغير يساوي 1) وفي اللفة الثانية تزداد قيمة المتغير بمقدار 1 ليصبح على سبيل المثال 2 وفي اللفة الثالثة يساوي 3 وفي اللفة الرابعة ..كمل إنت !! انتهينا من الأسطر التقليدية (تسمية الإجراء والإعلان عن المتغيرات) ... نتوقف قليلاً لللتجربة !! ماذا سنجرب يا ترى ؟ هل هناك ما يستدعي منا أن نجربه ونحن ما زلنا في البداية ولم نكتب أسطر فعلية للكود .. نعم لابد أن نتعلم شيئاً جديداً ومفيداً عند التعامل مع الأكواد ...... تطبيق : انسخ الكود السابق في موديول جديد ثم ضع الماوس داخل الإجراء الفرعي .. ومن قائمة View في محرر الأكواد اختر الأمر Local Window إنها نافذة ستجعل منك محترفاً في فهم الأكواد (صدقوني ستذهلون منها بشكل كبير جداً) ..إنها بمثابة نافذة لك لتدرك كيف يتم تنفيذ أسطر الكود سطر سطر انتبهوا لهذه النافذة بشكل كبير ... كيف سيتم التعامل مع هذه النافذة المدهشة ؟ الأمر في غاية اليسر والسهولة والبساطة .. ستستخدم من لوحة المفاتيح F8 وهو يمكنك من متابعة الكود سطر بسطر .. كفانا كلام نظري وننتقل للتطبيق .. ضع الماوس داخل الإجراء الفرعي (الكود) ثم اضغط F8 مرة واحدة فقط .. وانظر للنافذة التي كانت فارغة منذ قليل لقد أصبحت ثرية .. نعم ثرية .. بضغطة واحدة ستتمكن الآن من تحليل المتغيرات .. لقد تم وضع سطر باللون الأصفر على أول سطر بالكود كما تم وضع المتغيرات في النافذة بهذا الشكل في الناحية اليسار من النافذة توجد أسماء المتغيرات التي تم الإعلان عنها وفي العمود الأوسط قيمة المتغير ..فقيمة المتغير الأول Empty ما زالت المصفوفة فارغة لم يتم إضافة أي عنصر لها ، وقيمة المتغير الثاني لأنها من النوع Interger فتحمل القيمة صفر لأننا لم نضع قيمة لها بعد وفي العمود الثالث نوع المتغير فالمتغير الأول من النوع Variant وهذا النوع غالباً ما نستخدمه مع المصفوفة لأن المصفوفة مرنة ربما تحمل نصوص وربما أرقام وربما حتى نطاقات (موضوع يطول شرحه) إلى الخطوة الثانية والتي هي نفس الخطوة الأولى (حد يفكرني !!) محدش مركز !! ... الخطوة التانية اضغط F8 مرة تانية .. ماذا حدث ؟ لقد تجاوز السطر الأصفر أسطر الإعلان عن المتغيرات .. نعم لأنها أسطر غير قابلة للتنفيذ إنما تظهر المعلومات المرتبطة بهذه المتغيرات مع أول ضغطة على F8 بعد السطر الأول في الكود .. انتقل السطر الأصفر ليظلل السطر التالي .. ولم يحدث أي تغيير في نافذة الـ Local Window myArray = Array("Yasser", "Khalil", "Officena", "Forum") هل التنفيذ مرتبط بالسطر الأصفر ؟ نعم يتم تنفيذ السطر الملون بالأصفر بعد الخروج من السطر الأصفر وليس عند تظليل السطر الأصفر الخطوة الثالثة .. ماذا تتوقع أن يحدث بعد أن نضغط F8 للمرة الثالثة؟؟؟ فكر ثواني عشان تفهم اللعبة .. سيتم تنفيذ السطر الأصفر السطر الحالي عبارة عن تعيين قيم أو وضع عناصر للمصفوفة .. لدينا بعض الأسماء (وبما أن الأسماء نصوص فتم وضعها بين أقواس تنصيص) وهذه الأسماء سيتم وضعها داخل المتغير الذي قررنا أنه سيكون للمصفوفة انتبه انتبه ..لم أطلب منك أن تبدأ الخطوة الثالثة بعد ..!! فقط انظر لنافذة الـ Local Window على المتغير myArray وشوف القيمة هتلاقيها Empty أي أن المصفوفة فارغة (وكما بص على يسار اسم المتغير ..هل يوجد علامة زائد بجانب اسم المتغير myArray ؟؟ الإجابة لا يوجد) ابدأ تنفيذ الخطوة الثالثة ألا وهي نفس الخطوة الأولى ونفس الخطوة الثانية ..حد يفكرني !! محدش مركز .. اضغط F8 بردو (أنا مش عايز أتعبك أنا عايز تشوف وتتعلم وبعديها خلي دماغك يتكلم) ضغطت يا وائل ولا لسه على F8 ؟؟؟ تمام تمام الله ينور عليك ايه اللي حصل يا حوسو .. لما نحب نعرف ايه اللي حصل هنبص على الكود وعلى النافذة .. نبص الأول على الكود هنلاقي إنه تم الانتقال للسطر التالي وأصبح السطر التالي مظلل باللون الأصفر .. طيب الأهم إننا نبص على النافذة Local ونشوف المتغير myArray هنلاقي حاجة غريبة بتحصل .. حاجة بسيطة لكن مهمة المصفوفة اللي كانت فارغة Empty من شوية ومفيش علامة زائد جنبها .. أصبح فيه علامة زائد على يسار اسم المتغير ولما نبص في عمود القيمة هنلاقي كلمة Empty أصبحت مش موجودة .. دا لأنها بعد الانتقال من السطر اللي فات بقت المصفوفة فيها قيم .. نبص للعمود الثالث هنلاقي بردو فيه شيء اتغير ..نوع المتغير لم يتغير زي ما هو Variant بس فيه شيء إضافي .. هتلاقي ما بين قوسين بداية المصفوفة ونهاية المصفوفة بمعنى آخر المصفوفة اللي بنتعامل معاها دلوقتي فيها 4 قيم .. ولما نبص نلاقي الأرقام من 0 إلى 3 (افتراضي المصفوفة بتبدأ من الرقم 0 وليس الرقم 1 ) الأرقام دي عبارة عن فهرس للمصفوفة (زي فهرس كتاب) يعني مثلاً أول قيمة في المصفوفة اللي هي Yasser لها الرقم 0 في الفهرس .. والقيمة Khalil ليها رقم 1 وهكذا لنهاية القيم كل عنصر داخل المصفوفة ليها رقم في الفهرس .. عايز تتأكد من كلامي تعال على نفسك شوية ونتعب ونضغط علامة الزائد اللي على يسار اسم المتغير (خلي الصورة تتكلم شوية عشان أنا تعبت) زي ما إحنا شايفين الفهرس من 0 1 2 3 وكل عنصر له رقم في الفهرس وله قيمة يعني دلوقتي لو عايز أعرف تاني قيمة في المصفوفة هعمل ايه؟ ببساطة ممكن استخدم كلمة Msgbox ثم اسم المصفوفة ثم افتح قوس ثم أضع رقم القيمة المطلوبة ثم اقفل القوس MsgBox myArray(1) واحد يقولي إنت مش بتجيب تاني عنصر في المصفوفة ..طيب ليه كتبت واحد مش 2 (أقوله لأن المصفوفة بتبدأ من الصفر وليس من الواحد ..) فالواحد بمثابة 2 (عد من البداية ::: رقم صفر هو أول عنصر في المصفوفة .. رقم 1 هو ثاني عنصر في المصفوفة وهكذا) المهم عشان أنا بدأت أتوه من نفسي ننتقل للحلقة التكرارية ودي بيكون ليها عداد زي ما قلنا والعداد هنا X فبنقول For X وبعديها علامة يساوي ... بعد يساوي بداية الحلقة التكرارية يليها كلمة To ثم نهاية الحلقة التكرارية بداية الحلقة هتكون أول رقم فهرس في المصفوفة اللي هو في مثالنا يساوي صفر ، ونهاية الحلقة التكرارية هو آخر رقم في الفهرس اللي هو 3 وبدل ما نكتب من 0 إلى 3 (استخدمنا دالة بتجيب أول رقم في المصفوفة واسمها LBound ودي اختصار لكلمة Lower Bound أي الحد السفلي أي أول رقم في الفهرس ... وأيضاً بالمثل استخدمنا دالة عشان تجيب آخر رقم في المصفوفة والدالة هي UBound ودي اختصار لكلمة Upper Bound أي آخر رقم في الفهرس) طيب العداد لازمته ايه ؟؟ قلنا بيحمل القيمة الحالية ..فأول قيمة عندي هتكون صفر بالتالي قيمة X هتساوي صفر .. إحنا دلوقتي واقفين في السطر الملون باللون الأصفر مع بداية الحلقة التكرارية لو وقفنا بالماوس على كلمة X سيظهر تليح صغير في مستطيل أصفر صغير به قيمة المتغير ( في الصورة قيمة X تساوي صفر) وهو أول رقم في الحلقة التكرارية لأن رقم البداية صفر (والمتغير X يحمل قيمة أول رقم في بداية الحلقة) المهم اضغط F8 لتنتقل للسطر التالي وعايز تروح بالماوس وتقف على الكلمة دي myArray(X) هتلاقي مربع أصفر فيه القيمة Yasser وروح للـ X وقف عليها ستجد القيمة صفر أي أن المصفوفة المسماة myArray ثم نفتح قوس ونضع رقم الفهرس المطلوب ورقم الفهرس هنا هو صفر ..يحمل القيمة Yasser اضغط F8 لتظهر لك رسالة بقيمة أول عنصر في المصفوفة .. اضغط F8 مرة أخرى لتنتقل للفة الثانية في الحلقة .. ولاحظ أن الانتقال بعد ذلك سيكون ما بين السطرين MsgBox (myArray(X)) Next X القيمة X تتغير ويتغير معها القيمة التي تظهر في الرسالة .. أكمل الضغط على F8 لترى نتائج الكود بنفسك ... وعينك دائماً على نافذة Local لترى قيمة المتغير X وهي تتغير مع كل لفة وطبعاً عند وصول قيمة X لـ 3 تنتهي الحلقة التكرارية لأن نهاية الحلقة هو الرقم 3 أتمنى أن يكون الشرح واضح ومفيد للجميع مع تحياتي أخوكم ياسر خليل أبو البراء

هناك طرق عدة لهذه الامر منها مثلاً هذه المعادلة =SUMIFS($M$6:$M$9,$K$6:$K$9,F6,$L$6:$L$9,G6)

السّلام عليكم و رحمة الله و بركاته أخي الفاضل " وائل الأسيوطي " المطلب الثاني : من أجل عدم ظهور هذا الجيش من الأسماء بالكومبوبكس عليك بنقل الكود إلى حدث الاينيسياليز .. و لا تنسَ الأقواس التي نسيتها ..أو استخدم الخاصية ROWSOURCE من أجل استراحة دماغك فائق إحتراماتي form.rar

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

السلام عليكم ورحمته وبركاته ارجو ان يكون هذا هو ماتقصده معلومات الاسرة.rar

السلام عليكم ورحمة الله وبركاته بعد ان تصنع ملفك كاملا تستطيع مراحعه معادلاتك والدوال الموجوده فى ملفك جرب وقول رايك فى الكود الكود منقول للامانه العلمية Option Explicit Sub ListAllFormulas() Dim sh As Worksheet Dim cell As Range Dim nextrow As Long Application.ScreenUpdating = False With ActiveWorkbook On Error Resume Next Set sh = .Worksheets("Formula List") On Error GoTo 0 If sh Is Nothing Then .Worksheets.Add After:=.Worksheets(.Worksheets.Count) .ActiveSheet.Name = "Formula List" Else sh.Cells.ClearContents End If With .Worksheets("Formula List") .Range("A1:C1").Value = Array("Sheet", "Cell", "Formula") nextrow = 1 For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Formula List" Then For Each cell In sh.UsedRange If cell.HasFormula Then nextrow = nextrow + 1 .Cells(nextrow, "A").Value = sh.Name .Cells(nextrow, "B").Value = cell.Address .Cells(nextrow, "C").Value = "'" & cell.Formula End If Next cell End If If .Cells(nextrow, "A").Value = sh.Name Then nextrow = nextrow + 1 Next sh .Columns("A:C").AutoFit End With End With Application.ScreenUpdating = True end sub الكود يصنع ورقة باسم " Formula List بها المعادلات واسم الخلية والورقة الموجود بها المعادله

اخى ابا الحسن والحسين اشكر لك مرورك الكريم اخى مختار حسين مرورك الكريم يشرفنى دائما يعلم الله انى احبك فى الله

م/ياسر فتحى شرفنى مرورك يا هندسه تقبل تحياتى كود اخر يؤدى نفس الغرض بطريقة منظمة Option Explicit Public Sub ListFormulasInWorkbook() ' by J.E. McGimpsey ' revised 04 July 2003 by Tom Ogilvy to add ' sheets when reaching ROWLIM formulas Const SHEETNAME As String = "Formulas in *" Const ALLFORMULAS As Integer = _ xlNumbers + xlTextValues + xlLogical + xlErrors Const ROWLIM As Long = 65500 Dim formulaSht As Worksheet Dim destRng As Range Dim cell As Range Dim wkSht As Worksheet Dim formulaRng As Range Dim shCnt As Long Dim oldScreenUpdating As Boolean With Application oldScreenUpdating = .ScreenUpdating .ScreenUpdating = False End With shCnt = 0 ListFormulasAddSheet formulaSht, shCnt ' list formulas on each sheet Set destRng = formulaSht.Range("A4") For Each wkSht In ActiveWorkbook.Worksheets If Not wkSht.Name Like SHEETNAME Then Application.StatusBar = wkSht.Name destRng.Value = wkSht.Name Set destRng = destRng.Offset(1, 0) On Error Resume Next Set formulaRng = wkSht.Cells.SpecialCells( _ xlCellTypeFormulas, ALLFORMULAS) On Error GoTo 0 If formulaRng Is Nothing Then destRng.Offset(0, 1).Value = "None" Set destRng = destRng.Offset(1, 0) Else For Each cell In formulaRng With destRng .Offset(0, 1) = cell.Address(0, 0) .Offset(0, 2) = "'" & cell.Formula .Offset(0, 3) = cell.Value End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If Next cell Set formulaRng = Nothing End If With destRng.Resize(1, 4).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 5 End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If End If Next wkSht With Application .StatusBar = False .ScreenUpdating = oldScreenUpdating End With End Sub

اخى الاكبر محمد حسن المحمد اشكر لك مرورك الكريم تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة اخى الاكبر محمد حسن المحمد اشكر لك مرورك الكريم تعلمنا منك الكثير اسلوبك فى الردود مميز يكشف عن اخلاق وعلم وثقافة كبيرة وقيمة

استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله استاذى وحبيب قلبى ابونصار اتابع ردودك واكوادك بشغف ولا اقول الا بسم الله ما شاء الله انت رائع فى العلم والخلق معا وفقكم الله

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

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

بسم الله الرحمن الرحيم ارجوا من الاخوة والاساتذة الكرام تجربة هذا الملف واخباري بالنتيجة هل يعمل بدون مشاكل ام يوجد مشاكل بالملف البرنامج لمراقبة حركة الاصناف من صرف واستلام والرصيد النهائي لكل صنف مصمم بالفيجوال بيسك وقمت بتحويل المعادلات لتعمل مع الفيجوال طبعا شوية معادلات محدودة ليس الا كل ما احتاجه هو الالمام بمعظم دوال ومعادلات الاكسيل برمجيا حتى اتعامل بها مع الفيجوال بيسك طبعا للجماعه اللي بتقول الحماية علي معادلاتي وشغلي اظن كدا بقت محمية كويس ملف الاكسيل ليس الا قاعدة بيانات فقط وكل معادلاتنا داخل الملف التنفيذي للفيجوال اينعم اعرف بعض طرق لاعادة سورس كود البرنامج ولكن يوجد برامج تشفير كتيررررر لحماية الملف من هذه المواضيع ارجو ان يعمل البرنامج بنجاح معاكوا وميحرجنيش معاكو ارجو التقييم اخوكم ياسر العربي vb6-excel.rar

بسم الله الرحمن الرحيم ميزه وخاصية ممتازه وهى Flash Fill Excel 2013 (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم https://www.youtube.com/watch?v=OZyrmcInZLU flash fill.rar

السلام عليكم ورحمة الله وبركاته أحبائى فى الله أعضاء وأساتذة هذا الصرح العلمى العظيم إقتربت سنة 2016 حبيت أكون أول واحد يقول لكم جميعا ربنا يجعلها سنة سعيدة علينا جميعا اللهم قد اقبل علينا عام جديد نسَالك من خيره ونعوذ بك من شره نسَالك اللهم ان تجعله عام خير وان تنصر الاسَلام والمسَلمين واسَالك اللهم عملا يقربنا اليك ياذا الجلال والاكرام وصل الله على سَيدنا محمد وعلى اله وصحبه وسَلم اللهم اني اسَتودعك سَنة بان تغفرها لنا و ترحمنا وتعفو عنا وان تبارك لنا في ايامنا القادمة يارب لا تفجعنا بفقد احد فلا طاقۃ لنا لفقد الاحبۃ ربي احفظ لنا من حولنا و لا تحرمنا قريبا ۆ لا بعيدا اللھم امين 2016.rar

ماشاء الله اخي عبدالعزيز علي ملاحظتك القويه ادامها الله عليك قوه الملاحظه وسرعه البديهه بالفعل لقد أخطأت فيما يخص المدي الأول بدل 35 هي 32 والعدد فعلا 18 وليس 17 (عدد الصفوف التي سيتم الترحيل اليها )كما هو موضح بالصوره انظر الي الصوره بعد ترقيم الصفوف واشكرك اخي عبدالعزيز علي مرورك واهتمامك اخي العزيز عبدالعزيز

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

أخى وائل الأسيوطى شرفت بمرورك وكل عام وأنت وأسرتك الكريمة بألف صحة وسلامة تقبل تحياتى

أسعد الله أوقاتكم بكل خير فيما يلي الدرس الثالث والعشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان الماكرو- الجزء الثالث - أمثلة عملية على استخدام الماكرو حيث سنتعرف على العديد من الاستخدامات المفيدة والمذهلة لهذه الميزة أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير أخوكم م/نضال الشامي https://youtu.be/dmfvkzLNksA

حاول ان تجرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Column <> 1 Or Target.Row < 6 Then GoTo 1 Application.EnableEvents = False '========================================== lr = Cells(Rows.Count, 1).End(3).Row For x = 6 To lr If Cells(x, 1) = "*" Then Cells(x, 2).Resize(1, 3).ClearContents Next '===================================== 1: Application.EnableEvents = True Application.ScreenUpdating = True End Sub

السلام عليكم اتبع الشرح في المرفق شرح-7.rar

السلام عليكم طبق هذه المعادلة تقبل تحياتى اذا لم يتوفر لديك قيم الخطا =IF(INT((C3/(C3+9))*10)<9;(C3-9);(C3+9)) =SUM((B3-C3);C3) 9.rar 9.rar 9.rar

https://www.youtube.com/watch?v=VwAUjdHGp7M ادعوا

استعمل هذا الكود لهذا الامر Sub select_choosen_rows() Dim lr As Integer Dim my_rg As Range Dim my_nb As Integer Dim i As Integer Dim cel As Range my_nb = Cells(1, 1).Value lr = Cells(Rows.Count, 1).End(3).Row For i = 2 To lr If Cells(i, 1) = my_nb Then If my_rg Is Nothing Then Set my_rg = Cells(i, 1).Resize(1, 5) Else Set my_rg = Union(my_rg, Cells(i, 1).Resize(1, 5)) End If End If Next For Each cel In my_rg If cel.HasFormula Then cel.Value = cel.Value Next End Sub

انا مش عارف الفائدة من اخر سطر ماذا تقصد ان تفعل

السلام عليكم زيادة في الخير -ملاحظة معادلة array تحتاج لضغط ctrl+alt+enter تحياتي EXCEL EQUATION+.rar

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

أسعد الله أوقاتكم بكل خير فيما يلي الدرس الثالث والعشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان الماكرو- الجزء الثالث - أمثلة عملية على استخدام الماكرو حيث سنتعرف على العديد من الاستخدامات المفيدة والمذهلة لهذه الميزة أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير أخوكم م/نضال الشامي https://youtu.be/dmfvkzLNksA

ربما كان لمطلوب two_dimension vlookup.zip

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

الاخ والاستاذ الحبيب / ياسر خليل رجعتنى لزمان وايام زمان ايام افتح الباب ونط من الشباك يا عبدالتواب بس فى سؤال مهم جدا هو ليه فتح البيبان مبيكونش غير بالشتاء معاك ؟؟؟؟؟؟؟؟؟؟ بجد روعه روعه روعه اسلوب شرح ممتع وجذاب ميخلكش تنام زى روتانا كدا اوعى تغمض عنيك جزاكم الله خيرا وبارك فيك لا تحرمنا من هذه الكنوز وبانتظار المزيد بس خليها صيف وشتاء **عايز بس اقول للاخوة الاعضاء ان الموضوع ده مهم جدا انا شخصيا اتعلمت من خلاله الكثير فى بداية البرمجه كنت امشى بـ F8 خطوه خطوه حتى اشاهد الكود زى فيديو كدا قدامى واتعلم منه وكمان الفايده الاكبر بعدما تكون محترف بالاكواد اكيد هيقابلك كود فيه خطأ وانت مش عارف اين موقع الخطا لاصلاحه وقتها هتستفيد منها فى اكتشاف اين الخطا بالكود فهى عامله زى دكتور الاشعه بتعملك تصوير للكود** تقبل تحياتى

السلام عليكم شاهد المرفق 222.rar

تم التعديل بما يتناسب مع طلبك اخي صالح شاهد المرفق كود انتقال_222.rar

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

السلام عليكم و رحمة الله و بركاته الخاصّية ROWSOURCE ..لاحظ الصور لو سمحت : form.rar السّلام عليكم و رحمة الله و بركاته أخي الكريم " وائل الأسيوطي " الضغط على الكيبورد من أجل الانتقال من خلية لأخرى أو من تاكست بوكس لأخرى و أنت فاتح الفورم فائق إحتراماتي

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

السلام عليكم ورحمة الله وبركاته بعد اذن الجميع من أساتذة المنتدى ممكن أن نجعل القيمة الافتراضية لهذا الحقل هي تاريخ اليوم ويمكن التعديل بكتابة date() امام القيمة الافتراضية للحقل

ممكن بغير كود اتبع الشرح في المرفق شرح_111.rar

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

السلام عليكم لا عليك اخي ابو ليالى حفظها الله لك وتتربى في عزك ان شاء الله اطلع على المرفق وجرب ان شاء الله به ماتريد واي تعديلات او ملاحظات نحن بالخدمة تحياتي رصد درجات الفصول فى الكنترول_111.rar

اخى اسلام وتم تعديل last لـ max هل لم يظهر التاريخ معك ؟

جرب هذا الملف يمكنك الاطلاع على الورقة Search حيث يوجد اختصار لكل الصفحات والقائمة المنسدلة في الخلية C7 تعمل اوتو ماتيكياً حسب اسم الصفحة بحث salim.zip

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

أخي الكريم أبو حمادة بالنسبة لنسخ المعادلة دون التنسيقات استبدال السطر التالي Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault بهذا السطر Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillValues

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

جرب التعديل التالي عله يفي بالغرض Sub Transfer() Dim Cel As Range, LR As Long For Each Cel In Sheets("main").Range("A2:A" & Sheets("main").Cells(Rows.Count, 1).End(xlUp).Row) If Evaluate("=ISREF('" & Cel.Value & "'!A1)") Then With Sheets("" & Cel.Value & "") LR = IIf(IsEmpty(.Range("A1")), 1, .Cells(Rows.Count, 1).End(xlUp).Row + 1) If Application.WorksheetFunction.CountIf(.Range("A1:A" & LR), Cel.Offset(0, 1).Value) >= 1 Then GoTo Skipper Sheets("" & Cel.Value & "").Range("A" & LR) = Cel.Offset(0, 1).Value End With End If Skipper: Next Cel End Sub Transfer Data To Proper Sheet Without Duplicates YasserKhalil.rar

اخى محمد الريفى جزاك الله خيرا وفقكم الله

السلام عليكم تم فتح الموقع مرة أخرى اضغط CTR+F5 قبل الاستخدام حيث ان النسخة تم تحديثها يرجى وضع اية ملاحظات او مشاكل فى هذا الموضوع

تم حل المشكلة ad2 = "SELECT " & Me.RecordSource & ".name" & vbCrLf & "FROM " & Me.RecordSource & vbCrLf & "WHERE (((name) Like ""*"" & [forms]![payment]![nameser] & ""*""));" والكود يعمل تمام