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

جرب تحديد.accdb

السلام عليكم 🙂 رجاء تجربة هذه النسخة 🙂 وللعلم ، برنامج الموبايل الذي ارفقته انت في احد مشاركاتك ، فلا يقرأ العربية بصورة صحيحة دائما ، ولذا يجب ان تتأكد اكثر من مرة !! جعفر zint QR 3.zip

جرب المرفق ووافينا بالنتيجة .... ‫‫امانات - نسخة_2_3.rar

أخي @mohamadhaje السلام عليكم ورحمة الله .... انظر هل هذه الحسبة صحيحة أم لا .....

يعطيكم العافية جميعا اسمحوا لي بمداخلة بنفس الطريقة اخي العزيز تستطيع التحديد والالغاء لتحديد الكل: CurrentDb.Execute "UPDATE L SET [Delchk] = true " Me.Requery وإلغاء التحديد: CurrentDb.Execute "UPDATE L SET [Delchk] = False " Me.Requery وتستطيع وضعها تحت نفس الزر مع بعض التغييررات لاسم الزر تحياتي لشخصك الطيب أستاذ عبد اللطيف القيمة نعم يتم تخزينها أصلا -1 والقيمة لا 0

ليس بين الجميع أعذار من منا لا يخطئ ويصيب ونحن تحت الأمر بما نستطيع

شغلك تمام ، بس !! 1. ما عندك عرض كافي ، فصغّر عرض الحقول ، 2. قلل من عرض مسافات اليمين واليسار في الطابعة ، 3. استعمل معاينة التقرير ، . 🙂 جعفر 1064.جعفر اوفسنا.accdb.zip

السلام عليكم ورحمة الله عذرا لقد تم النسخ خطأ فالكود يعمل لدى بكفاءة و لكن الكود التالى افضل و اسرع Sub FormatRows() Dim i As Long, x As Long, LR As Long Application.ScreenUpdating = False LR = Range("A" & Rows.Count).End(xlUp).Row If LR < 7 Then LR = 7 Else End If Range("A7:A" & LR).ClearContents i = 7 x = [C5].Value + 6 Do While i <= x Cells(i, 1) = i - 6 i = i + 1 Loop Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته اسهل طريقة أنشئ حقل في جدول L الخاص بك وليكن اسمه DelChk واجعل نوع البيانات فيه رقم والقيمة الافتراضية false الان اذهب الى النموذج الخاص بالجدول وهو عندك L وانشئ زر أمر وضع في الحدث الخاص به الكود التالي CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true" Me.Requery تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك Delchkrecord.accdb

مبارك اخي @kaser906 تستحق هذا اللقب .... اعانك الله وسددك

أخى الكريم لا يصلح بالمعادلات اليك الكود تكتب اسم الشيت الذى تريده فى الخلية A1 ولكن المعادلات فقط لإيجاد واستخلاص اسم الشيت وكتابته فى خلية ما وليس العكس بارك الله فيك Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text End Sub

مشكلتك انك مقيد المعادلة فى صف واحد وهذه معادلة مصفوفة فبمجرد سحب المعادلة الى الأسفل فتحل المشكلة مهما زادت عدد الصفوف ولكن فى حالتك سوف تزود هذا الجزء من المعادلة &"و "&IFERROR(INDEX($B$8:$B$1000,SMALL(IF($F$8:$F$1000=$N$1,ROW($B$8:$B$1000)-ROW($B$8)+1),ROWS($O$3:O6))),"")

تفضل اخى الكريم عرض الاسماء في كل نطاق2.xlsx

وعليكم السلام تفضل اخى الكريم عرض الاسماء في كل نطاق.xlsx

تفضل اخى الكريم مواعيد المشاريع.xlsx

أول صفحة فى الملف بالمعادلات

وهو كذلك بالملف المرسل اليك فيه هذا الطلب

بسبب تاخرك فى الرد فقد تم حذفه اليك الشيت مرة اخرى-برجاء الإهتمام والرد تغيير اسم الخلية مع اسم الورقة.xlsm

تفضل شيت به ثلاثة طرق تغيير اسم الخلية مع اسم الورقة.xlsm

السلام عليكم، أرحب بكم الإخوة والأخوات الكرام. أقدم لكم اليوم عرض جديد من عروض البوربوينت، حيث يحتوي العرض على نص الجزء الثلاثون من القرآن الكريم، وتلاوة للقارئ الشيخ عبد الباسط عبد الصمد رحمه الله تعالى، وتفسير الجلالين، حيث يمتاز هذا التفسير بتقسيم الآيات عند الشرح وباختصار واضح. عدد الشرائح: 221 شريحة. حجم العرض: 16.31 ميجابايت. ملاحظة: هذا العرض قم بتصميمه بشكل فردي، فالخطأ وارد فيه؛ لذلك أرجو ممن يجد أي خطأ إبلاغي للتعديل، ولكم جزيل الشكر. للتحميل اضغط هنا

كود ممتاز استاذ سليم بعد اذن حضرتك ولإثراء الموضوع هناك حل أخر بالمعادلات فى العمود C يمكنك استخدام هذه المعادلة مع التغيير المطلوب فى كل معادلة =SUMPRODUCT(SUMIF(INDIRECT("'"&C$2&"'!"&"B2:B1000"),$B3,INDIRECT("'"&C$2&"'!"&"H2:H1000"))) Total.xlsm

الحمدلله 🙂 وشكرا ابا جودي على التجارب والمعلومة 🙂 اخوي محمد ، تابع معاي مثالي الجاي ، وبعدين نبحث عن البرنامج المناسب 🙂 جعفر

ممكن اضافة صورة من انظر الى اسمك بالاعلى و اضغط عليه وتوجه الى الملف الشخصى

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

بالنسبة للسؤال الثاني (حل لإزالة التنسيقات) هذا الكود Option Explicit Sub del_shapes() Dim x As Shape For Each x In ActiveSheet.Shapes x.Delete Next End Sub

اذا زاد عدد الصفحات تقوم بالتعديل في هذا القسم من الكود مع مراعاة ان تأخذ الــ K عدداً جديداً من 3 الى 3 + عدد الصفحات -1 في مثلنا عدد الصفحات (بدون الــ Total ) يساوي 3 ====> عدد الصفحات -1=2 ====> 3 + عدد الصفحات -1=5 ====> (اخذنا الــ K من 3 الى 5) Select Case x Case "Excursion": col = 8 Case "Shopping": col = 4 Case "Bonus": col = 3 End Select

جرب هذا الماكرو تم التعديل على الملف قليلاً لتصغير حجمه Option Explicit Sub Get_data() If ActiveSheet.Name <> "Total" Then Exit Sub Dim last_row% Dim k%, r Dim mY_sh As Worksheet last_row = Sheets("Total").Cells(Rows.Count, 2).End(3).Row Sheets("Total").Range("c3", Range("c4").End(4)).Resize(, 3).ClearContents Dim i%: i = 3 Dim x$ Dim col% Do Until Sheets("Total").Range("b" & i) = vbNullString For k = 3 To 5 x = Sheets("Total").Cells(2, k) Set mY_sh = Sheets(x) r = mY_sh.Range("b:b").Find(Sheets("Total").Range("b" & i)).Row Select Case x Case "Excursion": col = 8 Case "Shopping": col = 4 Case "Bonus": col = 3 End Select Sheets("Total").Cells(i, k) = mY_sh.Cells(r, col) Next i = i + 1 Loop Sheets("Total").Range("c3", Range("c4") _ .End(4)).Resize(, 4).NumberFormat = "0.00" End Sub الملف مرفق Total Salim.xlsm

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

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

@عبد اللطيف سلوم

ان شاء الله اوصل المنزل واوافيكم بامر الله بالنتيجة

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

@عبد اللطيف سلوم من وضع تصميم في النموذج تجدة مع الازرار استاذ @مسفر شكرا لك

من الجدول

وبإمكانك ان تعمل التسلسل رقم 2 يكون تحت الرقم 1 ، هكذا : جعفر

وعليكم السلام 🙂 نعم يمكن 🙂 اجعل التقرير ضيق (بحيث انك تقدر ان تخلي تقرير ثاني جنبه) ، في التقرير ، اعدادات الصفحة ، الاعمدة ، عدد الاعمدة (خليه 2) ، وفي مشاركة كانت مع اخي @ابوخليل ، بس ما قدرت احصل عليها 😞 جعفر

الحمدلله 🙂 وفي انتظار انك تجربه على الكمبيوتر الاخر ، وتعطينا النتيجة 🙂 جعفر

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

وعليكم السلام 🙂 الحمدلله ، وحياك الله 🙂 ولما احاول اشرح للمبرمج ، ان البرنامج حدوده لخارج البرنامج ، وبرامج الكمبيوتر الاخرى ، فيكون رده الاستغراب !! لوسمحت تجرب هذا المرفق ، وتخبرنا عن النتيجة 🙂 جعفر zint QR 2.zip

الاستاذ / Ali Mohamed Ali شكرا جزيلا بارك الله فيك ، ربى يجعل لك فى دروب الحياة خير وفى دروب التعب راحة وفى دروب الحزن سعادة ** لدى تمنى أخير اريد عمل نتيجة البحث فى الصفوف بالاعلى مثل الهايبر ليك بحيث عند ظهور اى نتيجة والضغط عليها يتم استدعاء النتيجة بالجدول الاسفل مثل وظيفة ctrl+f هل استطيع طرح هذا الطلب كموضوع جديد ام اكمل على هذا الموضوع ؟

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

ابا جودي ، جرب هاي ، وتصبح على خير (لأننا ما نقدر نعرف مشكلتك ، لذلك ما نقدر نجربها نحن 😞 ) 1. قم بحذف الصور من المجلد ، 2. بدل ShellWait ، استعمل Shell فقط ، 3. روح النموذج واعمل معاينه ، 4. سوف تحصل على خطأ من البرنامج ، ولكن لا عليك ، 5. روح لمجلد الصور ، وشوف اذا الموبايل يقرأ الصور 🙂 المشكلة عندك في Page Code لبرنامج cmd !! والظاهر ان نظام الوندوز 7 يختلف عن الوندوز 10 اللي عندي !! جعفر

ونعم الاهل انتم بل شرف لى و وسام عزة وكرامة التعرف الى اخوانى فى هذا الصرح الشامخ

استاذنا الفاضل / عبداللطيف سلوم جزاك الله عنا خير الجزاء .. هل بالامكان ارفاق نسخه تعمل علي اوفيس 2003

تفضل تم عمل التنسيق المطلوب في الملفين تنسيق شرطى للمكرر2.xlsx هوية.xlsm

الف شكر اخي لكن اريد أن تكون في خليه واحدة

من فضلك اكمل البيانات كى نستطيع عمل ما تريد فملف الإكسيل فارغ لا يوجد فيه بيانات لعمل المطلوب بارك الله فيك

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

السلام عليكم الاخ الكريم / إسلام الشيمي بارك الله فيك اليك اخي محاولة مني وتعديل طفيف علي كود القدير / عبد الله المجرب علي ملف الموجود بالمشاركة رقم 4# والخاص باغلاق الملف بعد فتحة 5 مرات اليك تعديل يجعل الملف يفتح لعدد 5 مرات وبعد ذلك لا يفتح الا بعد طلب رقم سري وان كان الرقم غير صحيحا يعمل علي اغلاق الملف وان كان الرقم صحيحاً تم الدخول للملف الرقم السري هو : 12345 وطبعا يمكنك تغييره كما تريد وذلك بتغييره في الكود نفسه وانتظر ردك بالنتيجة ... جزاك الله خيرا اغلاق ملف بعد فتحه 5 مرات وفتحه بعد ذلك برقم سري.rar

ان كنت فهمت ما تقصد ، هذا الملف يمكن التحكم في فترة توقفه واختفاؤه ( حاليا 10 ثواني ) hide file.rar