طارق محمود

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

وعليكم السلام مازالت غير واضحة تماما أنظر المرفق لعله ماتريد افيسنا_اقساط2.rar

وعليكم السلام أخي الكريم في المرفق الذي أرسلته أنت وفي صفحة العميل "" محمد عوض على على "" ستجد أنك أدخلت بالخلية A10 ,A12 توارخ خاطئة 30/02/2018 و 30/02/2019 فمن المعروف أن شهر فبراير ليس به اليوم 30 عدلها إلي 28/02/2018 و 28/02/2019 ستجد المعادلة مضبوطة مرفق الملف بعد التعديل حسابات العملاء2.rar

السلام عليكم تفضل المرفق به ماطلبت التسجيل.rar

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

يكون ملف ال vcf الصحيح بهذا الشكل BEGIN:VCARD VERSION:3.0 FN:شام N:;شام;;; TEL;TYPE=CELL:+491727494306 END:VCARD والكود تبعك ينتج هذا الشكل BEGIN: VCARD VERSION:3.0 FN:أحمد TEL;TYPE=CELL;TYPE=VOICE:مفرح END: VCARD لذلك حتي بعد التغلب علي مشكلة علامات الاستفهام فلن تجد أرقام تليفونات ... فقط أسماء

السلام عليكم أخي الكريم في حال السنة إخترت لك معادلة أخري تفضل المرفق مثال2.rar

السلام عليكم أخي الكريم بمراجعة سريعة يبدو أن جهاز الهاتف معك غير متوافق 100% مع شكل الـ vcf الناتج جرب التالي يوجد بالكود سطر : Print #FileNum, "VERSION:3.0" بدلا من استيراد .... إعمل تصدير ولو لإسم واحد من هاتفك بصيغة الـ vcf وافتح الملف الصادر هذا ولاحظ الرقم بعد VERSION: هل هو 3.0 إذا لم يكن عدل ذلك في الكود أيضا يوجد خطأ بهذا الكود إذ لايقرأ ولايكتب رقم التليفون ... فقط يقرأ الإسم ويكتبه

السلام عليكم أخي اكريم المطلوب بسيط لايحتاج أكواد تفضل المرفق بالمعادلات مثال1.rar

السلام عليكم أولا أرجو أن تغفروا لي بعدي عنكم ============= جائني اليوم علي الخاص سؤال من أحد الأعضاء وبعد أن جاوبته ، أحببت أن أعرضه علي أحبابي وأصدقائي لتعم الفائدة ويشارك من يحب في الموضوع =================== السؤال كيف اعمل توزيع عشوائي لاسئلة اختياري في ملف اكسل الملف به حوالي 20 سؤال انا عايز اطبع العشرين سؤال دول 30 مرة او اكثر او اقل بس يكون توزيع الاسئلة فيهم مختلف وبرده يكون ترتيب الاربع خيارات بالسؤال يختلف ملحوظة : الملف المرفق به 20 سؤال على كل سؤال 4 خيارات يعني لو ممكن تعملي ايكونة بالملف اقدر من خلال الضغط عليها مثلا اغير ترتيب الاسئلة وايضا ترتيب خيارات كل سؤال يا ريت لو فيه امكانية تخلى المجال مفتوح لعدد الاسئلة بملف الاكسل يعني ما يكون مقتصر على 20 سؤال بس =========================== الإجابة أخي الكريم تفضل الملف به ماطلبت بالضغط علي الزر يعمل الماكرو الذي يعمل الخطوات التالية أولا لعمل ترتيب عشوائي للأسئلة 1- يضيف العمود F الجديد 2- يضع أرقام عشوائية في العمود F الجديد 3- يرتب الكل حسب العمود F الجديد بمحتوياته العشوائية 4- يحذف العمود F الجديد بمحتوياته ثانيا لعمل ترتيب عشوائي للأجوبة 5- يعمل علي الصفوف من أول الأسئلة (الصف رقم 4) إلي آخر صف به أسئلة 6- يأخذ نسخة من الأجوبة الأربعة في صف مؤقت أسفل آخر سؤال بتسعة أسطر 7- يضع أرقام عشوائية في الصف الذي يعلوه 8- يرتب الأجوبة الأربعة حسب الصف الذي يعلوه بمحتوياته العشوائية 9- يأخذ النسخة من الأجوبة الأربعة بعد ترتيبها العشوائي يعيدها لصفها 10 - وهكذا حتي النهاية ثم يمسح محتويات الصفين المؤقتين ========================== ملحوظة: الملف المرفق به ورقتين الورقة الأولي بها الأسئلة والأجوبة كما وردت من السائل والورقة الثانية بها الأسئلة والأجوبة بعد تطبيق الكود عليها --------------------------------------------------- معذرة للإطالة وأرجو أن يكون الملف والكود مفيدين %e2%80%8f%e2%80%8fاسئلة احياء 2ث ف1.rar

أخي الكريم سؤالك غير واضح بالمرة ولكن كرد عام مثل سؤالك العام نعم يوجد طريقة لعمل ذلك ============== لعلك لاحظت أن أسئلتك تظل فترات طويلة بلا إجابة ألا يعطيك هذا انطباع أن السؤال غير مكتمل الأفضل دائما ان ترفق ملف به ماتريد مثلا في سؤالك الحالي ملف به ورقة تحتوي علي الأقل ثلاث أعمدة من البيانات 1- إسم أو رقم ماكينه الانتاج 2- المكاسب 3- الخسائر ثم تضيف إن رأيت مايكفي من البيانات أرجو أن يتسع صدرك وتفهم ما أعني لابد ألا تكون بخيلا في إعطاء البيانات ليفهم أي أخ يريد المساعدة ماتريده بالتحديد

إليك الملف وبه الكود يتم تنشيط الكود أوتوماتيكيا إذا ذهبت للورقة التي بها تقرير PivotTable متابعة العملاء1.rar

وعليكم السلام ورحمة الله وبركاتة أخي الكريم ضع الكود التالي في حدث الورقة بفرض أن كلمة السر لحماية الورقة هي "xyxy" Private Sub Worksheet_Activate() ActiveSheet.Unprotect ("xyxy") ActiveSheet.PivotTables("PivotTable7").PivotCache.Refresh ActiveSheet.Protect("xyxy", DrawingObjects:=False, Contents:=True, Scenarios:=False) = True End Sub

السلام عليكم جرب هذا الكود وأنت في الصفحة الثانية Sub n_print() LR = Sheets(1).[B9999].End(xlUp).Row rr = 3 5 If IsEmpty(Sheets(1).Cells(rr, 3)) Then GoTo 10 If rr > LR Then Exit Sub [E16] = Sheets(1).Cells(rr, 2) ActiveWindow.SelectedSheets.PrintOut Copies:=1 10 rr = rr + 1 GoTo 5 End Sub أو تفضل المرفق به زر معادلة.rar

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

السلام عليكم اخي الكريم رددت عليك بالإميل فارتد إلي الإميل .. لاأدري لماذا .. قد يكون السعة منتهية Delivery to the following recipients failed. groupalburag@gmail.com عموما عذرا للتأخير فقد كنت ومازلت مشغوول ولأن الموضوع شوية معقد مع بساطته لكن الحمد لله أعتقد أنني أنهيته مرفق ملف مضغوط به مجلد يحتوي بضعة ملفات فك الضغط ثم افتح الإكسل فقط وبه الشرح والنتيجة Al-Burag.rar

لمعرفة نطاق أي مدي مُعرًف بالملف إضغط Ctrl-F3

بسيطة خالص Save AS أو F12

السلام عليكم تم تحويل المعادلة المطلوبةإلي كود وهى =COUNTIF(INDEX($C$3:$EV$5000;0;0);$FA3) أعتقد أن الملف الآن مناسب book book4.rar

السلام عليكم أخي الكريم : بالمرفق ملفين الملف الأول : book book2.xlsb هو نفس ملفك بلا أكواد وقد أضفت عليه تعديل بسيط وحفظته بامتداد xlsb الذي يتميز بسرعته وقلة حجمه تم تخفيض حجم الملف من إلي 13190 إلي 810 كيلوبايت الملف الثاني: book book3.xlsb هو الملف بالكود وقد حفظته أيضا بامتداد xlsb وفي هذا الملف الثاني سيتم تفعيل الكود أوتوماتيكيا فقط إذا اضفت أو غيرت أي بيانات في أعمدة الأدوية ولن يحدث أي شيء إذا غيرت أو أضفت من الأعمدة الأخري وبتفعيل الكود سيضع المعادلة أوتوماتيكيا في الخلية المجاورة لها تم تخفيض حجم الملف من إلي 13190 إلي 314 كيلوبايت تفضل أخي المرفق بالملفين واستعمل مايناسبك book2-3.rar

جزاك الله خيرا أخي رجوعي للأسف سيظل قليلا ومتباعدا لإنشغالي الشديد وأرجو من الله أن أجد بعض الدقائق لمشاركتكم أحبائي فهذا والله يسعدني أكثر مما يسعدكم

السلام عليكم أخي الكريم تقول لو اننا وضعنا المعادله بالصف السابع مثلا والشيت سيكون به عدد صفوف مقدارها 300 صف كيف يتم نسخ المعادله الموجوده بالصف السابع الى بقيه الصفوف ؟ فقط تظلل الأسطر بداية من السابع إلي 300 أو ماتريد ثم Ctrl-D أو Data > Fill down

السلام عليكم أخي الكريم تفضل المرفق .. أضفت شيت أسميته "الشهر الماضى" وفي الجديد تضيف رقم الموظف وتسحب المعادلة ,.. فتأتي بياناته مرتبات2.rar مرتبات2.rar

لايوجد مرفق !!

السلام عليكم أخي الكريم أنا أفضل أن تترك المعادلة بخلية واحدة أو عدة خلايا للتذكرة وبعد أن تأخذ منها نسخة لباقي الخلايا ، مما يجعل الملف ثقيلا ... إجعل هذه الخلايا الباقية أرقام فقط Copy .. Paste .Value جرب ذلك أولا وإن كنت لاتزال تحتاج الكود فلترسل الملف كاملا