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

عبدالله باقشير

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

  • Posts

    4,796

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

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

  • Days Won

    57

 نوع المحتوي 

كل منشورات العضو عبدالله باقشير

  1. عبدالله باقشير
    السلام عليكم شاهد المرفق 2003 رصيد.rar
  2. عبدالله باقشير
    هذا الموضوع لطباعة السجل النشط في الفورم وليس لطباعة كل البيانات =========
  3. عبدالله باقشير
    شاهد المرفق 2010 copy and paste2.rar
  4. عبدالله باقشير
    هي مكتوبة في الكود بهذا الشكل ؟؟؟؟؟؟؟؟؟؟؟؟ لقد نسخت الكود من المشاركة 9 والصقته بدلا من الموجود اشتغل عادي المرفق 2003 سعد عابد2.rar
  5. عبدالله باقشير
    اذا لا توجد معك ورقة مخصصة للطباعة استخدم المرفق الاول وهو طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل شاهد المرفق 2010 فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar
  6. عبدالله باقشير
    استبدل هذا الكود Private Sub Worksheet_Calculate() Dim Lr As Long, r As Long Dim v As Double On Error GoTo ws_exit Lr = Cells(Rows.Count, "a").End(xlUp).Row For r = 1 To Lr v = Val(Cells(r, "A")) If v > 1000 Then With Me.Cells(r, Me.Columns.Count).End(xlToLeft) If .Column = 1 Then .Offset(0, 1).Value = v Else If v <> Val(.Value) Then .Offset(0, 1).Value = v End If End With End If Next ws_exit: End Sub مع العلم ان التكرار سيحدث فقط في العمود B تحياتي
  7. عبدالله باقشير
    انا استخدم 2010 وما فيش مشكلة عندي
  8. عبدالله باقشير
    اخي الفاضل وليد فتحي
  9. عبدالله باقشير
    تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300
  10. عبدالله باقشير
    السلام عليكم امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث) الاصدار الثالث http://www.officena.net/ib/index.php?showtopic=51955 هذه ثلاثه امثله مختلفة في المرفق 1 - طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل 3 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لبعض بيانات السجل المرفقات 2003 فورم ادخال و تعديل مرن مع الطباعة 1.rar
  11. عبدالله باقشير
    اخي الفاضل أحمد فؤاد
  12. عبدالله باقشير
    اخي الفاضل وليد فتحي
  13. عبدالله باقشير
    اخي الفاضل الجموحي
  14. عبدالله باقشير
    السلام عليكم اضف زر جديد وضع هذا الكود في الفورم Private Sub CommandButton1_Click() Dim Lr As Long With Sheets("ارشيف") Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(Lr, "A").Value = Lr - 7 .Cells(Lr, "B").Value = Me.Controls("Textdt1") .Cells(Lr, "C").Value = Me.Controls("Textdt3") .Cells(Lr, "D").Value = Me.Controls("Textdt4") End With End Sub تحياتي
  15. عبدالله باقشير
    اخي الفاضل احمد عبد العزيز
  16. عبدالله باقشير
    اخي الفاضل إبراهيم ابوليلة
  17. عبدالله باقشير
    اختي الفاضلة أم عبدالله
  18. عبدالله باقشير
    اخي الحبيب حمادة باشا
  19. عبدالله باقشير
    السلام عليكم علشان تعمل المعادلة تمام قم بفرز البيانات في الجدول بالتاريخ واستخدم هذه المعادلة =MIN(F7*N(ISERROR(MATCH(E7;$K$7:$K$19;0)));$G$5-SUM($G$6:G6)) شاهد المرفق 2003 سداد الفواتير.rar
  20. عبدالله باقشير
    اخي الفاضل الشهابي
  21. عبدالله باقشير
    وبارك فيكم في اصدار جديد جهزته بميزة الطباعة للسجل النشط ساضعة قريبا في المنتدى تقبل تحياتي وشكري
  22. عبدالله باقشير
    اخي الفاضل خالد الشاعر
  23. عبدالله باقشير
    جاري التواصل مع الادارة حول الموضوع
  24. عبدالله باقشير
    اخي الحبيب رجب جاويش
  25. عبدالله باقشير
    اخي الفاضل عادل ابوزيد
×
×
  • اضف...

Important Information

  I accept