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

اختر اي رقم تربد اكبر الطلاب.rar

جرب هذا الملف (نغس التصميم)محدث تم حماية المعادلات لعدم العبث بها عن طريق الحطأ Tarhil natija alim.rar

السلام عليكم ورحمة الله نضع لكم اليوم طريقة تحويل الدالة Vlookup الى كود مثالين احدهم عند الضغط على زر يتم جلب البيانات والاخر عند كتابة الكود يأتي بالنتيجة مباشرة المثال الاول الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim myrg1 As Range If Target.Column = 10 Then Set myrg1 = Sheet2.Range("b5:e30") On Error Resume Next Application.ScreenUpdating = False sheet1.Range("k" & Target.Row & ":" & "m" & Target.Row).ClearContents sheet1.Cells(Target.Row, "k") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 2, 0) sheet1.Cells(Target.Row, "l") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 3, 0) sheet1.Cells(Target.Row, "m") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 4, 0) Application.ScreenUpdating = True End If End Sub للتحميل اضغط هنا المثال الثاني الكود Sub Yasser() Dim myrg1 As Range Dim i As Long Set myrg1 = sheet1.Range("b5:e30") For i = 6 To 30 Application.ScreenUpdating = False On Error Resume Next sheet1.Cells(i, "k") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 2, 0) sheet1.Cells(i, "l") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 3, 0) sheet1.Cells(i, "m") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 4, 0) Next i Application.ScreenUpdating = True End Sub للتحميل اضغط هنا تقبلو تحياتي

السلام عليكم المرفق الاول الشرح والاخر الملف شرح_5.rar البحث بين تاريخين_A.rar

شرح UserForm Spreadsheet تحياتي إلى الجميع شرح UserForm Spreadsheet هذه الأداة تسمح بنسخ كامل ورقة العمل او مدي محدد منها الي الفورم مع التحكم في الجزء المنسوخ بالتسيق للصفوف والأعمدة والتلوين واشياء كثيرة اخري هذه الاداة UserForm Microsoft Spreadsheet Control ActiveX من ادوات Control ActiveX وهي تتوفر لمستخدي اوفيس 11 و 14 أي لمستخدمي اوفيس 2003 و 2010 بدون اى مشاكل ================================================== اما مستخدمي اوفيس 2007 اما تركيب owc11 Office Web Components الخاصه بأوفيس 11 بدلا من Excel Services ورابط تحميلها من Microsoft موجود بالمرفقات_1 او فأذا لم تعمل الاداة يجب تنفيذ التعليمات التاليه وهي طريقتين بالرابط التالي رابط التعليمات بالمرفق_2 ================================================== المرفقات_1.rar المرفقات_2.rar يتبع اظهار الاداة لمستخدمي اوفيس 2003 و 2010 سوف نتبع كل السبل المتاحه لإظهر الادة الطريقة الاولي اتبع الصور من 1 - 4 في محرر الاكواد الطريقة الثانية اتبع الصور من 5 - 6 في محرر الاكواد بعد اضافة المكتبتين نفذ ما في الصور من 1 الي 4 اذا لم تجد هاتين المكتبتين لا عليك قم بتحميل المرفق_3 ستجد بداخله ملف اكسيل بأسم Add_Reference اضغط علي الزر لتنفيذ ماكرو يعمل علي اضافة هاتين المكتبتين بعد اضافة المكتبتين عن طريق الماكرو نفذ ما في الصور من 1 الي 4 ================================================== المرفقات_3.rar يتبع

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

نبذة مختصرة عن احد الدوال البحثية LOOKUP

لغير متابعي موضوع ( VLOOKUP ) من البداية حتى الاحتراف حيث تعرضنا فية للدالة INDIRECT شرح الدالة INDIRECT INDIRECT.rar ........................................................... اتمنى ان يمثل الملف إضافة بسيطة

ترحيل ناجح وراسب وغ مع الشرح2003.rar السلام عليكم اخي ناصر جزاكم الله خيرا اليك الملف 2003 الصف الفارغ.rar السلام عليكم الاخ مستر ابو مرمر تم ادراج صف تحت كل صف فيه المعادلة من خلال تحديد الصف بكامله ثم كلك يمين ثم اختر ادراج تحياتي

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طريقة استدعاء بيانات خلال فترة من.... الى تم ارفاق كود الحل من الافاضل/بن علية حاجي بالمعادلات _ أبو حنــــين _ بالكود و لا تنسونا من صالح الدعاء تحياتى بالمعادلات استخراج كشف بيانات بين تاريخين.rar بالكود استخراج كشف بيانات بين تاريخين.rar

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

الاخ الغالي : ابو خليل كل عام وانت طيب اولا ما زلت اقول بانك ثروة ويجب الحفاظ عليها ما هدا الجمال ؟ ؟ زادك الله علما ونفعك به

اخى الكريم محمد الخازمي ارجو ان يفى الملف بالمطلوب وتقبل تحياتى abo_abary_حساب عمر اكبر عشر طلاب.rar

تم معالجة الامر بواسطة المعادلات انظر الى الصفحتين الاصافيتين فايل تسجيل بيانات salim.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة استدعاء و ترحيل فاتورة تم ارفاق كود الحل من الافاضل/ KHMB _ و _ سليم حاصبيا و لا تنسونا من صالح الدعاء تحياتى KHMB فاتورة _استدعاء و ترحيل.rar استدعاء _فاتورة salim.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود البحث بين تاريخين vba تم ارفاق كود الحل من الفاضل / الـعيدروس و لا تنسونا من صالح الدعاء تحياتى البحث بين تاريخين_A3 (1).rar

الاخ وائل عزالدين شاهد المرفق Omar_1.rar

شكرا جزيلا أخي الأستاذ ياسر العربي واخي الأستاذ أبو حنين الكود التالي كتبته في احد الردود وهو مماثل للكود الذي تفضل به الأستاذ الفاضل ياسر العربي وعند المراجعة وجد التالي الكود الذي اعمل عليه كان مسبوق بالامر التالي ActiveSheet.Protect Password:="123" أي ان الورقة سوف يتم حمايتها أولا ثم يتم تنفيذ باقي الكود الخاص بالتنسيق مما أدى إلى ظهور الرسالة التي تفيد ان هناك خطأ ولقد تنبهت إليه بعد المناقشات التي تمت في الموضوع وبفضل الله ثم الأستاذ ياسر العربي والأستاذ أبو حنين اكتشفت هذا الخطأ فلكي اتغلب على هذه المشكلة والمحافظة على حماية الورقة كتب الكود كالتالي: Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:="AliElbasry123" 'هذا الجزء خاص بتحويل اتجاه الورقة Select Case CStr(AliElbasry.Range("I5")) Case Is = "2": Me.DisplayRightToLeft = False Case Is = "1": Me.DisplayRightToLeft = True End Select 'هذا الجزء خاص بعملية التنسيق المطلوبة If AliElbasry.Range("I5") = 1 Then With AliElbasry2.Range("C5:G5").Font .Name = "Times New Roman" .FontStyle = "Bold" .Size = 14 End With Else With AliElbasry2.Range("C5:G5").Font .Name = "Candara" .FontStyle = "Bold" .Size = 14 End With End If ActiveSheet.Protect Password:="123" End Sub 'شكرا جزيلا استاذ ياسر العربي وشكرا جزيلا استاذ أبو حنين اعذروني الدنيا رمضان والناس صايمة

الاخ الغالي ابو حنين مشكور على حلك الجميل ولكن يبقي العائق الذي يمنعنا من تقديم المساعدة بالشكل السليم وهو عدم وضوح المعطيات فلذلك ينتج اجابات خاطئة اخي الغالي علي المصري انا كنت مستغرب من موضوع ان الخلية نفسها لو فيها رقم واحد او اتنين يتم تعديل التنسيق ولكن عملتها لان كلامك يشير الى كدا __________________________ لدي الخلية C2 بها الرقم اما 1 او 2 إذا كان الرقم الموجود 1 اريد تنسيق الخلية كما يلي ____________________________ طبعا الخلية عائدة على C2 المهم عشان مطولشي عليكم تفضل المرفق Private Sub Worksheet_Activate() If AliElbasry.Range("I5") = 1 Then With AliELbasry2.Range("C5").Font .Name = "AdvertisingLight" .FontStyle = "Bold" .Size = 14 End With Else With AliELbasry2.Range("C5").Font .Name = "Candara" .FontStyle = "Bold" .Size = 14 End With End If End Sub او عن طريق الـــ Select Case كما وضح اخي الكريم ابو حنين Private Sub Worksheet_Activate() With AliELbasry2.Range("c5").Font Select Case AliElbasry.Range("i5").Value Case Is = 1: .Size = 14: .Name = "times newroman": .Bold = True Case Is = 2: .Size = 14: .Name = "Candara": .Bold = False End Select: End With End Sub Book1.rar

تفضلentdab7.rarentdab7.rar

وعليكم السلام ورحمة الله وبركاته جار تحميل الملف .. شكرا بارك الله فيك.. رح اطلع عليه واشتغل بيه واذا صعب علي شي برجعلكم تحياتي..

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

السلام عليكم جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C2").Address Then With Range("C2").Font Select Case Range("C2").Value Case Is = 1: .Size = 14: .Name = "times newroman": .Bold = True Case Is = 2: .Size = 14: .Name = "Candara": .Bold = False End Select: End With: End If End Sub

السلام عليكم كل هذا ممكن : للإنتقال الى أول سطر في الليست بوكس نكتب : ListBox1.ListIndex = 0 للإنتقال الى آخر سطر في الليست بوكس نكتب : ListBox1.ListIndex = ListBox1.ListCount - 1 لحساب عدد الأسطر نكتب : TextBox1 = ListBox1.ListCount لجمع عمود معين و ليكن العمود الرابع مثلا مع العلم ان بداية حساب الاعمدة تبدأ من الصفر و ليس الواحد نكتب ما يلي : Dim i As Long TextBox1 = "" For i = 0 To ListBox1.ListCount - 1 TextBox1.Value = Val(TextBox1) + Val(ListBox1.List(i, 4)) Next

تفضل هل تقصد هكذا؟؟؟ Book1.rar

Private Sub Worksheet_Activate() Cells.Columns.Hidden = True Dim pas As String pas = InputBox("Enter password", "password") If pas = "123" Then Cells.Columns.Hidden = False MsgBox "WELCOME" Else MsgBox "GOOD BAY" End If End Sub يمكنك وضع هذا الكود فى حدث تفعيل الصفحه مباشرة فهو يقوم باخفاء جميع اعمدة الصفحه عند تنشيطها ويطلب ادخال كلمه مرور فاذا كانت صحيحه قام باظهار الاعمدة والا فانه يترك مخفيه كما هي

غير تاريخ الجهاز وجرب

لك جزيل الشكر أخي عبد الله قدور

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

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

إليك الملف التالي =OFFSET(INDEX(الاصناف,MATCH("*"&$B20&"*",الاصناف,0),1),0,0,COUNTIF(الاصناف,"*"&$B20&"*"),1) لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب New Microsoft Excel Worksheet.rar

هل تستعمل 2007 ام 2003