اذهب الي المحتوي
أوفيسنا

Ali Mohamed Ali

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    11639

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

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

  • Days Won

    291

 نوع المحتوي 

كل منشورات العضو Ali Mohamed Ali

  1. Ali Mohamed Ali
    بهذه الطريقة التى توضحها يمكن عمل التسلسل بنفسك فليس به مشكلة فهو يكون كده سهلا ففى كل الحالات يكون متتاليا كما ترى تسلسل.xls
  2. Ali Mohamed Ali
    لا يمكن هذا فلا يمكن ادخال البيانات فى الإكسيل بالصوت الا بمقابل فهذه خدمة مدفوعة الأجر وليست مجانية https://khamsat.com/technology/data-entry/490222-تفريغ-البيانات-إلى-ملفات-الاكسل واتمنى هذا الفيديو يفيدك فى ادخال البيانات https://www.youtube.com/watch?v=kcrOID5bJsg
  3. Ali Mohamed Ali
    وعليكم السلام تفضل تسلسل.xls
  4. Ali Mohamed Ali
    يمكنك الإستعانة بهذه الفيديوهات https://www.youtube.com/watch?v=w_lH3sZyUDY https://www.youtube.com/watch?v=x-w_Z6UHCnQ https://www.youtube.com/watch?v=pGVzzvrR2L4 https://www.youtube.com/watch?v=ErocP5o0ARM وهذان ملفان وورد واكسيل تم نقل بيانات شيت الإكسيل الى الوورد كما ترى excel to word.xlsm ser.docx
  5. Ali Mohamed Ali
    تفضل اخى الكريم نفس ملف استاذنا الكريم سليم وتم تعديل المطلوب protect first column.xlsm
  6. Ali Mohamed Ali
    تفضل دفتر التنقيط.xlsm
  7. Ali Mohamed Ali
    كيف نقوم بمساعدتك على ملف محمى بكلمة سر
  8. Ali Mohamed Ali
    ولكى يعمل هذا الكود معك فى كل صفحة جديدة تفتحها داخل الملف لابد من وضع هذا الكود فى حدث This WorkBook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Call Test End Sub كود ضرب.xlsm
  9. Ali Mohamed Ali
    تفضل 2أوفيسنا.xlsx
  10. Ali Mohamed Ali
    طبعا يمكن العمل فى كل صفحة ولكن لابد من ربطه بزر Sub Test() 'بداية الكود Dim LR As Long 'تحديد LR كمتغير الى اخر سطر به بيانات LR = Range("C" & Rows.Count).End(xlUp).Row Range("E1:E" & LR) = Evaluate("C1:C" & LR & "*D1:D" & LR) 'حاصل ضرب العمود C مع العمود D 'واخراج الناتج فى العمود E End Sub 'نهاية الكود
  11. Ali Mohamed Ali
    أهلا بك اخى الكريم فى المنتدى يمكنك استخدام خاصية البحث فى المنتدى
  12. Ali Mohamed Ali
    وعليكم السلام بالملف موجود كود لحاصل ضرب العمودان C & D واخراج الناتج فى العمود E Sub Test() Dim LR As Long LR = Range("C" & Rows.Count).End(xlUp).Row Range("E1:E" & LR) = Evaluate("C1:C" & LR & "*D1:D" & LR) End Sub كود ضرب.xlsm
  13. Ali Mohamed Ali
    تفضل Tab_Ali.xlsx
  14. Ali Mohamed Ali
    يمكنك التغيير كما تشاء فى المعادلة الى اى تاريخ تريد وبالنسبة لعلامة السالب يمكنك حلها ببساطة بضرب الناتج فى *-1
  15. Ali Mohamed Ali
    تفضل نفس كود استاذنا الكبير سليم له منا كل المحبة والإحترام frais de miss ion 019.xlsm
  16. Ali Mohamed Ali
    وعليكم السلام اهلا بك فى المنتدى-تفضل Tab_Ali.xlsx
  17. Ali Mohamed Ali
    بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات
  18. Ali Mohamed Ali
    تفضل طبعا هيشتغل الضغط على الإنتر بدلا من الزر2.xlsm
  19. Ali Mohamed Ali
    يعمل معى كما ترى بالصورة 5الاستيك.rar
  20. Ali Mohamed Ali
    تفضل
  21. Ali Mohamed Ali
    من فضلك حدد بالضبط ما يحدث معك بالصور على الملف فالملف يعمل معى تمام
  22. Ali Mohamed Ali
    لأنك لم تقم بضبط تنسيق الخلية التى بها جملة السن فى 01/10/2019 كما بالصورة كان عليك من البداية رفع الملف الأصلى للعمل عليه تفضل اجهزه2.xlsm
  23. Ali Mohamed Ali
    أحسنت استاذ سليم بارك الله فيك كود ممتاز
  24. Ali Mohamed Ali
    تفضل لك ما طلبت -كما انه تم ضبط كود الإدخال والترحيل الى الشيت الضغط على الإنتر بدلا من الزر.xlsm
  25. Ali Mohamed Ali
    هذا لكيفية جلب المجموع للخلايا الظاهرة فقط دون المخفية
×
×
  • اضف...

Important Information

  I accept