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

عبد الفتاح كيرة

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3015

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

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

  • Days Won

    4

 نوع المحتوي 

كل منشورات العضو عبد الفتاح كيرة

  1. عبد الفتاح كيرة
    لم أعمل على 2003 كثيرا لكن ضرورى تكون في قائمة تنسيق أو ما شابه
  2. عبد الفتاح كيرة
    مرحبا أنت لن تدخل إلا اسم طابعة واحدة فقط أما الطابعة الثانية فى افتراضية الكود أعلاه يغير الطابعة الافتراضية إلى الطابعة الثانية " غير الافتراضية" و هى التى بين القوسين microsoft fax on fax: ضع اسم طابعتك غير الافتراضية مكان هذه بعد ذلك يعيد الكود الطابعة الافتراضية كما كانت
  3. عبد الفتاح كيرة
    الأخ الأستاذ خبور شكرا لك على كلماتك الطيبات الأخ الأستاذ سعد بارك الله فيك وكل عام أنت بخير وجميع إخوتنا هنا
  4. عبد الفتاح كيرة
    السلام عليكم موقع البرنامج الرباط الخاص بي بعد تنصيب البرنامج ستجد الإضافة فى تخطيط الصفحة ( إكسل 2007 ) يمكنك عمل علامة مائية من صورة أو من كلمات وهذا لحفظ الحقوق وشكرا Instl_ExcelWatermark.rar
  5. عبد الفتاح كيرة
    السلام عليكم هذا هو البرنامج XLtoEXE.rar
  6. عبد الفتاح كيرة
    Sub PrintToAnotherPrinter() Dim STDprinter As String STDprinter = Application.ActivePrinter Application.ActivePrinter = "microsoft fax on fax:" ' change printer ActiveSheet.PrintOut ' prints the active sheet Application.ActivePrinter = STDprinter ' change back to standard printer End Sub
  7. عبد الفتاح كيرة
    مطلوب للأهمية
  8. عبد الفتاح كيرة
    شكرا أخ نادر بارك الله فيك
  9. عبد الفتاح كيرة
    أخى قصى التعديل على برنامج الأستاذ خبور سيأخذ وقتا طويلا هذا مع أن طلبك غير واضح لى تماما لكن أرجو أن تطلع على البرنامج الذى رفعته هنا ففيه عمل كشوف 12 د كما هو بالمدارس وكما طلبت أنت هذا أعتقد أنه سيوفى بالغرض كل ما ستفعله أن تلصق بياناتك و تختار زر عمل تقارير ثم تختار كشوف 12 د بالتوفيق
  10. عبد الفتاح كيرة
    استخدم التصفية الرباط الخاص بي
  11. عبد الفتاح كيرة
    =IF(ISERR(B3/C3);"";B3/C3)
  12. عبد الفتاح كيرة
    لا تنزعج فقط غير مفتاح التبديل start وأعده مرة أخرى
  13. عبد الفتاح كيرة
    ليتك تأتى برقم الخطأ
  14. عبد الفتاح كيرة
    رفعت برنامج شئون الطلاب فيه توزيع قوائم فصول يمكنك الاستفادة منه هنا أما طلبك هناك فيحتاج منك إلى رفع صورة من الاستمارة التى تريدها
  15. عبد الفتاح كيرة
    فى عمود المادة ضع المعادلة التالية و اسحبها لأسفل =IF($I$2="START";VLOOKUP(F3;الاسماء!$C$3:$E$86;2;0);"") فى عمود المدرسة ضع =IF($I$2="START";VLOOKUP(F3;الاسماء!$C$3:$E$86;3;0);"") وكله تمام و مجرب
  16. عبد الفتاح كيرة
    يبدو أخى قصى أنك لم تنتبه إلى أننى رفعت لك الملف على رابط مباشر ليس فيه انتظار ولا رموز تكتب مشاركة رقم 10 جرب مرة أخرى
  17. عبد الفتاح كيرة
    حمل من هنا على يمين الصفحة تجد كلمة تنزيل http://cid-0c02746c93e24984.office.live.com/self.aspx/.Public/kemas.rar
  18. عبد الفتاح كيرة
    سأحاول رفعه لك الآن إن شاء الله
  19. عبد الفتاح كيرة
    السلام عليكم تفضل أخى المرفق اتبع الآتى : 1- اختر من شيت بيانات أساسية اسم الشركة و حدد الاسم المراد 2 - اضغط زر تقرير من إبداعات أخينا خبور خير حفظه الله kemas.zip
  20. عبد الفتاح كيرة
    يوجد طريقة لإلغاء شاشة التنبيه الخاصة بتفعيل الماكرو Application.DisplayAlerts = False ضع الجملة السابقة فى حدث فتح الملف و مع أن التنبيه سيختفى إلا أن الماكرو سيظل كما هو حسب إعدادات الإكسل التى تم ضبطها يدويا
  21. عبد الفتاح كيرة
    أخى قصى يمكنك تغيير الرموز بتغيير الشكل اضغط على علامة التحديث ليظهر شكلا آخر بالتوفيق
  22. عبد الفتاح كيرة
    يمكنك عمل ذلك بالكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b2:b1000")) Is Nothing Then For Each cel In Range("b2:b1000") If cel <> "" Then cel.Offset(0, 1) = cel * -3 End If Next cel End If End Sub شاهد المرفق kemas-ضرب العمود المجاور برقم ثابت بشرط.rar
  23. عبد الفتاح كيرة
    أبدا يا أخى الرابط شغال أنا جربته الآن انزل أسفل يمين الصفحة واضغط على الزر ذى الللون الأخضر كتب عليه slower download ثم اكتب الرموز التى تظهر كما هى
  24. عبد الفتاح كيرة
    السلام عليكم أنا نفذت لك جزء البيانات دالة vlookup أكمل الباقى بنفس الطريقة جدول المدارس-kemas.zip
  25. عبد الفتاح كيرة
    نعم أحسنت =IF(ISERR(A1+B1);B1;A1+B1)
×
×
  • اضف...

Important Information

  I accept