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

Mahmoud Atef

عضو جديد 01
  • Posts

    24
  • تاريخ الانضمام

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

السمعه بالموقع

4 Neutral

عن العضو Mahmoud Atef

  • تاريخ الميلاد 03 سبت, 1994

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    HR
  • البلد
    مصر
  • الإهتمامات
    Office

اخر الزوار

647 زياره للملف الشخصي
  1. السلام عليكم برجاء المساعدة فى هذا الملف المطلوب أنه عند وضع مبلغ فى الخلية E2 يبحث عن أعلى شريحة موجودة من H:I وإذا كانت الشريحة أكبر من القيمة E2 يبحث عن القيمة الأصغر التى تلى الكبرى وهكذا إلى أن يصل إلى إجمالى المبلغ الموجود فى الخلية E2 بمعنى أن يتم تقسيم المبلغ الموجود فى الخلية E2 فى العمود B بداية من الخلية B4 حتى يكون المجموع مساوياً للخلية E2 وشكراً جزيلاً مقدماً ❤ شرائح - Copy.xlsx
  2. شكراً لك على مجهودك الذى لا يوصف جزاك الله كل الخير
  3. @محمد هشام. أستأذنك إستفسار بسيط عند أخذ أمر النسخ تكون النسخ الجديدة كلها ( Values & Sources Formatting ) ، هل يمكن أن تكون النسخ التى تتم تكون كما هى بالمعادلات و الـ Format بعتذر لك على الإزعاج
  4. @محمد هشام. جزيت خيراً ربنا يجعله فى ميزان حسناتك
  5. @محمد هشام. بالفعل أ/ محمد اسم الشيت الذى سيتم إدخاله فى البوكس الذى سيظهر عن إعطاء أمر الماكرو .. هو نفسه المراد نسخه ولكن عند نسخه أريد أن تكون أسماء النسخ هى نطاق يتم تحديده به الأسماء جاهزة وشكراً على إهتمام حضرتك
  6. السلام عليكم الكود التالى وظيفة عمله تحديد الخلايا التي تحتوي على الاسماء ومن ثم سيتم عمل شيتات بنفس الأسماء الموجودة فى النطاق الذى تم تحيده Sub addsheet() Dim x As Object For Each x In Selection Worksheets.Add().Name = x Next x End Sub فـ كنت محتاج أدمج الكود التالى به Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub الكود ده بيجى رسالة تكتب رقم لـ عدد النسخ المراد نسخها وبعدها بوكس تانى لإسم الشيت المراد نسخه فـ بالتالى محتاج أدمج الكود ده عشان أحدد أسماء الشيتات الـ هتتنسخ من خلال النطاق الذى يتم تحديده فـ النتيجة إن شاء الله هتكون بالضغط على الزر أولاً.. بوكس بتحديد عدد النسخ ثانياً.. بوكس بيطلب مننا نكتب اسم الشيت المراد نسخه ثالثاً.. بوكس بتحديد النطاق الـ هيكون فيه أسماء الشيتات الجديدة الـ هيتعملها Create وفى ننفس الوقت النقطة ( أولاً ) سيتم إلغاؤها لأن النقطة ( ثالثاً ) ستغنى عنها لوجود نطاق يحدد عدد النسخ وشكراً جزيلاً مقدماً لتفهمكم وتعاونكم
  7. @سمير نجار شكراً جداً جداً لحضرتك وجزاك الله عنا ألف خير .. وجعله فى ميزان حسناتك
  8. أساتذتى الكرام أرجو المساعدة @Moosak @jjafferr @ابوخليل @ابو جودي @صالح حمادي @ابراهيم الحداد @محمد طاهر @ناقل @Ali Mohamed Ali @kanory هذا الموضوع تم نشره من يوم الأحد هذا الأسبوع وشكراً جزيلاً
  9. @سمير نجار أشكرك على الإهتمام والمساعدة ولكن أرجو لو يوجد تعديل على module3 فى الماكرو الخاص بـ save بحيث يكون النسخ بنفس إسم الخلية B10 وفى نفس الوقت بنفس التنسيق وتكون الصفحة الجديدة من جهة اليمين وشكراً المشكلة بسيطة إن شاء الله ...
  10. المشكلة تكون عند عمل save لا تكون بنفس التنسيق ولا بنفس إتجاه الصفة (من اليمين إلى اليسار) أرجوا المساعدة فى إتمام هذا الكود من بعد إذنكم وشكراً جزيلاً مقدماً كشف المقبوضات.xlsm
  11. بمعنى الصورة الأولى (untitled1) يوجد على الخلايا border أى خطوط سواء على التى يوجد بها بيانات أو لا يوجد بها أما الصورة الثانية (untitled2) لا يوجد borders فى الخلايا التى يوجد بها بيانات وهو المطلوب فى حالة الأخذ بأمر الطباعة أى أن جدول العمل يبقى كما هو بالخطوط إلا فى حالة أمر الطباعة يتم حذف الخطوط من الخلايا التى لا يوجد بها بيانات.
  12. أرجو الإفادة إذا كان يوجد هناك فعلا شئ مما أطلبه أو لا وشكرا
  13. شكرا لك أستاذى ولكن لم يفى بالغرض إذ أنه يعمل على الصف الأخير الذى يوجد به بيانات فقط ولم يكن المطلوب ألا وهو إزالة الـ border الموجودة بكل خلية فارغة لا يوجد بها بيانات عند الأخذ بأمر الطباعة وشكرا لك مرة أخرى للمساهمة
  14. برجاء عمل زر ماكرو عند الضغط عليه يظهر معاينة قبل الطباعة مع العلم أنه عند طباعة الجدول الموجود بالملف المرفق يتم إخفاء أو عم No Border للخلايا الفارغة فقط والإبقاء للخلايا التى يوجد بها ملفات وشكرا جزيلا لكم جميعا New.xlsx
×
×
  • اضف...

Important Information