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

لايجاد الحل لا يمكن التخمين ماذا تريد بدون ملف مرفق مع ذلك اليك هذا الملف كنموذج (يعمل حتى 100 اسم و يمكن الزيادة) Male_Femal_Dup.xlsx

Try this file complex_formula.xlsx

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

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

أريد المساعدة في الملف المرفق علماً بأنه جزء من قاعدة بيانات سيتم ربطها مع باقي القاعدة بالكود أو id المطلوب :- المساعدة في انشاء استعلام عن الأقساط ومن ثم تقرير بحيث يوضح كل الايجارات المستحقة بالتاريخ مثلاً : كيف يمكنني الاستعلام عن استحقاق الايجار في يوم معين أو شهر معين من استعلام الأقساط ، وكيف يمكن عرض الاقساط الخاصة بعميل واحد علما بأن الأقساط ستكون لمدة قد تصل الى 20 سنة ، وفترة السداد (سنوي - نصف سنوي) مع الشكر للجميع الأقساط.accdb

لم تذكر علامة النجاح لذلك تركتها لك اختيارياً percent.xlsx

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

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

السلام عليكم الأفضل تضع كل الحالات لذلك وضعت لك الحل من خلال أكثر من كود واحد الأول : عند تنشيط الورقة وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0 ، G<>0 أي يكون هناك سداد الثاني : عند حدث تنشيط الورقة وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0 ، G<>0 أي يكون هناك سداد الثالث : Un-Hide كود عادي ليس خاص بأحداث الورقة وهذا يظهر كل السطور التي تم إخفاؤها من قبل بالإضافة إلي كود رابع في حدث الملف عند فتح الملف يتم تفعيل الكود الأول إليك الأكواد والملف به الأكواد Private Sub Worksheet_Activate() LR = [I9999].End(xlUp).Row If LR < 15 Then LR = 15 For r = 15 To LR If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True Next r End Sub Private Sub Worksheet_Change(ByVal Target As Range) r = Target.Row If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True End Sub Sub un_Hide() LR = [I9999].End(xlUp).Row Rows(10 & ":" & LR).EntireRow.Hidden = False End Sub '=============================================================== Private Sub Workbook_Open() Sheets ("كشف الحساب ") LR = [I9999].End(xlUp).Row If LR < 15 Then LR = 15 For r = 15 To LR If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True Next r End Sub اخفاء السطر.xlsm

أهلا بك @محمد احمد لطفى لم استخدم لغة أخرى! إليك التعديل: Photo.zip

السلام عليكم الآن أصبح بالإمكان تصدير الباركود إلى الصورة مع التقرير. salah88.rar

اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً) انظر الى الملف المرفق لمعرفة كيف يقوم الاكسل بفعل هذا الشيء الكود Option Explicit Sub CreateNumbers(rg As String, col_num As Long, max_num As Long) Dim n As Long Dim My_row As Long Dim My_col As Long ActiveSheet.Cells(6, 1).CurrentRegion.Clear For n = 0 To max_num - 1 My_row = n \ col_num My_col = n Mod col_num ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1 Next n End Sub '============================================== Sub give_numbers() Call CreateNumbers(Cells(6, 1).Address, [b2], [c2]) End Sub الملف مرفق Num_table.xlsm

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

جرب هذا الملف الكود Option Explicit Sub Tasjil() Dim My_rg As Range Dim i%, x%, r Dim Find_rg As Range Dim Sh1 As Worksheet, Sh2 As Worksheet Set Sh1 = Sheets("sheet1"): Set Sh2 = Sheets("sheet2") Set My_rg = Sh1.Range("a8").CurrentRegion.Columns(1) x = My_rg.Rows.Count For i = 1 To x Set Find_rg = Sh2.Range("a7:I36").Find(My_rg.Cells(i), , , xlWhole) If Not Find_rg Is Nothing Then r = Find_rg.Offset(, 1).Address My_rg.Cells(i).Offset(, 1).Resize(, 2).Value = _ Sh2.Range(r).Resize(, 2).Value End If Next End Sub الملف مرفق _Salimسجل غياب.xlsm

السلام عليكم وددت أن أشارك هذا الموضوع بملف يقوم بالعمل نفسه لكن بالمعادلات (غير أن النتائج المنتظرة محدودة في النطاق A6:DZ1005 أي من 130 عمود و 1000 سطر)... أضفت بعض التنسيقات على الصف 4 (تنسيقات على الخلايا) و الصف 5 (تنسيق شرطي للتلوين)... بن علية حاجي Num_Table_Formulas.xlsx

احسنت اخ سليم ادامك الله ذخراً و عوناً

أحسنت استاذ سليم ملف ممتاز جعله الله فى ميزان حسناتك

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

طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة ===================================================== ( مدخل في تعلم VBA اكسيل خطوة خطوة - 12 درس ) دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. !! خطوة خطوة ===================================================== قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت فورم بسيط لاضافة شيت او عدة شيتات دفعة واحدة ... قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر - أ / Jaafar Tribak هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل ( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !! ( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال استفتاء : ما افضل اصدار الاكسيل في ( اوفيس 2003 - 2007 - 2010 - 2013) هو ليس موضوع معادلات او اكواد ... ولكنه استفتاء فقط ... ولكني اعشق هذا الموضوع لاتنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !! علي الاكسيل ........... علي الباوربوينت

من الإمكانيات المذهلة للإكسيل هو استخدام أدواته للرسم، طبعا الموضوع يتطلب صبر أيوب، قمت في هذا المثال برسم خريطة تفاعلية لدولة الإمارات العربية المتحدة، واستخدمت في الرسم add shape/freeform حيث يعتبر الأسهل بالنسبة لي.. إليكم المرفق. uae_population_map.rar وللفائدة هذا مثال فيديو لطريقة رسم الخريطة create map.rar وللمزيد للإمكانيات الهائلة