اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طارق محمود

أوفيسنا
  • Posts

    4,519
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    41

كل منشورات العضو طارق محمود

  1. السلام عليكم قد يكون الأفضل في هذه الحالة إستخدام السولفر Solver وهذا احد الأدوات المساعدة المرفقة مع برنامج الإكسل إن لم يكن مفعلا عندك ، تستطيع تفعيله إذا اتبعت الخطوات الأربع البسيطة بالشكل المرفق
  2. السلام عليكم يمكنك عمل ذلك باستخدام تحديد الباينات Data Validation بالملف المرفق ، لايسمح لك بتكرار البيان إذا سبق وضع نفس البيان في العمود B الأصفر وأيضا يعطي عند تكرار البيان رسالة تنبيه / تحذير منع تكرار بيانات في نفس العمود.xlsx
  3. السلام عليكم تفضل كود سريع Sub distrib() [A9999].End(xlUp).Select Range(ActiveCell, Selection.End(xlUp)).Select For i = 1 To Selection.Rows.Count Step 2 [B9999].End(xlUp).Offset(1, 0) = Selection(i) [C9999].End(xlUp).Offset(1, 0) = Selection(i + 1) Next i Selection.Clear [A6].Select End Sub أنظر المرفق به الكود مع زر تشغيل أخي الكريم/ علي محمد علي جزاك الله خيرا أصبح وقتي بالعمل والأسرة ضيق .. دعواتك توزيع بيانات عمود علي عمودين.xlsm
  4. السلام عليكم الحل الأسرع ، بلا أكواد إن كان كما لاحظت في اسم الشهرة لابد من وجود حرف معين في النص مثل ":" أو "[" فلنعمل فلتر علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "اسم الشهرة" ثم تغير الفلتر لكيلا يحتوي علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "الاسم الكامل" وأخيرا تمسح الأصل أنظر المرفق توزيع بيانات عمود علي عمودين.xlsx
  5. السلام عليكم من باب المشاركة فقط ردا علي أخونا khalid2117 السنة الكبيسة ليست بصفة عامة صحيح تقبل القسمة علي 4 لكن لها استثناء إن كانت تقبل القسمة علي 100 ، مثلا 2100 - 2200 - 2300 كلها سنوات بسيطة ، فبراير بها 28 يوم وليس 29 وهذا الاستثناء له استثناء وهي السنوات تقبل القسمة علي 400 فهي كبيسة أي أن فبراير بها 29 مثل 2400 - 2800 ويرجع هذا إلي أن السنة بالضبط لاتساوي 365.25 يوم كما هو شائع بل إنها 365.2422
  6. " هـل من الممكـن التعـديل فى الكـود انى استـدعى اسماء الصفحـات ما عــدا صفحة معـينه ولا لأ ؟" طبعا ممكن ، عدل الكود كالتالي: Sub Sheets_Name() For I = 1 To Sheets.Count If Sheets(I).Name = "AA" Then GoTo 10 ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name 10 Next End Sub بفرض أن الشيت الذي لاتود إستدعاء إسمه هو "AA" لاحظ إضافة السطر If Sheets(I).Name = "AA" Then GoTo 10 وكذلك إضافة الرقم 10 للسطر 10 Next
  7. السلام عليكم اخي الكريم الكود التالي صغير يمكنك استخدامه لأي ملف قبل تشغيل الكود ، يجب ان تكون الخلية التي تقف عليها (الخلية النشطة) تقع في مكان يليه عمودين فارغين Sub Sheets_Name() For I = 1 To Sheets.Count ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name Next End Sub سينتج من الكود ارقام الشيتات في عمود واسماؤها في العمود التالي مهما كان عدد الشيتات
  8. السلام عليكم أخي الكريم تأكد ان الحسابات بالملف اوتوماتيكة بالضغط علي F9 أو للحل الدائم للملف بالذهاب إلي Excel Options ثم Formulas ثم Calculation options ثم تأكد انها Automatic وليست Manual
  9. السلام عليكم التجميع يلزمه دالة SUM مرفق الملف به الدالة في موضع واحد فقط وعليك إكماله علي نفس النسق المجموع.rar
  10. وعليكم السلام أخي الكريم مرفق حل سريع بدون أكواد (معادلات فقط) ولتجنب الأخطاء نقلت صفحة الجرد للملف الرئيسي مع عمل لينكات للصفحة الرئيسية تفضل المرفق حسابات العملاء2.rar
  11. السلام عليكم أخي الكريم 1- جربت أنا الكود لايوجد مشاكل إذا بيانات الفاتورة موجودة وخاصة عمود "كود الصنف" تحدث أخطاء بالترحيل إذا كانت بيانات الفاتورة غير مكتملة 2- تم تعديل الترحيل ليبدا من رقم الفاتورة حتى خانة الرصيد كما تريد تفضل المرفق جديد2.rar
  12. السلام عليكم مرفق الملف به الكود مع بعض الأسطر التوضيحية داخل الكود جديد.rar
  13. وعليكم السلام مازالت غير واضحة تماما أنظر المرفق لعله ماتريد افيسنا_اقساط2.rar
  14. وعليكم السلام أخي الكريم في المرفق الذي أرسلته أنت وفي صفحة العميل "" محمد عوض على على "" ستجد أنك أدخلت بالخلية A10 ,A12 توارخ خاطئة 30/02/2018 و 30/02/2019 فمن المعروف أن شهر فبراير ليس به اليوم 30 عدلها إلي 28/02/2018 و 28/02/2019 ستجد المعادلة مضبوطة مرفق الملف بعد التعديل حسابات العملاء2.rar
  15. السلام عليكم أخي الكريم لابد أن توضح مالعلاقة بين قيمة السداد وقيمة القسط وقيمة فاتورة المياه
  16. يكون ملف ال 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 لذلك حتي بعد التغلب علي مشكلة علامات الاستفهام فلن تجد أرقام تليفونات ... فقط أسماء
  17. السلام عليكم أخي الكريم في حال السنة إخترت لك معادلة أخري تفضل المرفق مثال2.rar
  18. السلام عليكم أخي الكريم بمراجعة سريعة يبدو أن جهاز الهاتف معك غير متوافق 100% مع شكل الـ vcf الناتج جرب التالي يوجد بالكود سطر : Print #FileNum, "VERSION:3.0" بدلا من استيراد .... إعمل تصدير ولو لإسم واحد من هاتفك بصيغة الـ vcf وافتح الملف الصادر هذا ولاحظ الرقم بعد VERSION: هل هو 3.0 إذا لم يكن عدل ذلك في الكود أيضا يوجد خطأ بهذا الكود إذ لايقرأ ولايكتب رقم التليفون ... فقط يقرأ الإسم ويكتبه
  19. السلام عليكم أخي اكريم المطلوب بسيط لايحتاج أكواد تفضل المرفق بالمعادلات مثال1.rar
  20. السلام عليكم أولا أرجو أن تغفروا لي بعدي عنكم ============= جائني اليوم علي الخاص سؤال من أحد الأعضاء وبعد أن جاوبته ، أحببت أن أعرضه علي أحبابي وأصدقائي لتعم الفائدة ويشارك من يحب في الموضوع =================== السؤال كيف اعمل توزيع عشوائي لاسئلة اختياري في ملف اكسل الملف به حوالي 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
  21. أخي الكريم سؤالك غير واضح بالمرة ولكن كرد عام مثل سؤالك العام نعم يوجد طريقة لعمل ذلك ============== لعلك لاحظت أن أسئلتك تظل فترات طويلة بلا إجابة ألا يعطيك هذا انطباع أن السؤال غير مكتمل الأفضل دائما ان ترفق ملف به ماتريد مثلا في سؤالك الحالي ملف به ورقة تحتوي علي الأقل ثلاث أعمدة من البيانات 1- إسم أو رقم ماكينه الانتاج 2- المكاسب 3- الخسائر ثم تضيف إن رأيت مايكفي من البيانات أرجو أن يتسع صدرك وتفهم ما أعني لابد ألا تكون بخيلا في إعطاء البيانات ليفهم أي أخ يريد المساعدة ماتريده بالتحديد
  22. إليك الملف وبه الكود يتم تنشيط الكود أوتوماتيكيا إذا ذهبت للورقة التي بها تقرير PivotTable متابعة العملاء1.rar
×
×
  • اضف...

Important Information