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

محمد يحياوي

الخبراء
  • Posts

    1,429
  • تاريخ الانضمام

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

  • Days Won

    10

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

  1. وكذلك ارحب باخينا الحبيب "خالد القدس" فقد طالت غيبته
  2. كود اظهار فورم عن طريق زر الفأرة الايمن اظهار فورم عن طريق زر الفأرة الايمن.rar
  3. آسف ... آسف ...جدا ...جدا كيف فاتني هذا الخير الكثير ... اخي نارت هذا ليس وجهة نظر هذا مذهب فكري و ثورة في منهج علمي اشكرك جزيل الشكر
  4. كود اختيار الطابعة Application.Dialogs(xlDialogPrinterSetup).Show
  5. تحية عطرة للاخوة الكرام "ابو احمد - احمد فضيلة - ابو الحارث" ... اخي الكريم سامر الانباري هذا الملف هو لاخي احمد فضيلة و اظفت له زر اختيار الطابعة كما طلبت انت Print HaNcOcK1.rar
  6. الاخ الحبيب "بن علية" دخولك الى الموضوع زاده زخما و ثراء ... اشكرك على الفكرة الرائعة و الكود جميل جدا ... بعد التعديل على الكود اصبحت كل كلمات الخلية تومض ... مع شكري و امتناني وميض6.rar
  7. اظن ان الاخ الكريم يقصد قائمة منسدلة متعددة المستويات ... يمكنك زيارة الروابط .... إنشاء قوائم منسدلة مرتبطة متعددة المستويات قائمة متعددة المستويات
  8. كود وميض نص في مدى معين و يمكن تغيير معيار الشرط من داخل خلية وميض4.rar
  9. الاخ الحبيب "حسن" مبدئيا هذا جواب على جزء من الطلب و هو كتابة المعيار في خلية اما باقي الطلب فيحتاج الى وقت وميض4.rar
  10. الاخ الحبيب "ابو نصار" ارجوا زيارة مشاركتك السابقة في موضوع الاكواد المنفصلة بخصوص هذا الطلب
  11. الاخ الكريم "ابو نصار" جزيت خيرا على الكود الجميل اما في مايخص طلبك فارجوا ان يكون هذا الملف هو الطلوب وهو مجرب عندي ارجوا ان يعمل عندك اظهار الفورم دوما في المقدمة.rar
  12. الاخ الحبيب "ابو أحمد" شكرا لتفاعلك مع الموضوع هذا كود وميض نص مع عدة شروط و نطاق من عدة اعمدة وميض3 .rar
  13. الاخ الحبيب "حسن" لاحظ الملف ....النطاق ("A1:E20") و بعدة شروط وميض3 .rar
  14. تحية عطرة الى الاخوان "ابو الحارث - دغيدي - جمال الفار - هشام شلبي" و دمتم بالف خير
  15. الاخ الكريم اذهب الى : تنسيق خلايا ------> مخصص -----> اختر @ أو نص
  16. الاخ الحبيب "حسن" هذا كود وميض نص في مدى معين و بعدة شروط وميض2.rar
  17. الاخ الحبيب "حسن" الكود التالي يعمل ضمن المدى العمود (A1:A20) يمكنك تغيير المدى و الشرط من محرر الاكواد وميض.rar
  18. اخي الكريم "نارت" هل يمكنك رفع الكود في ملف للتجربة
  19. Private Sub UserForm_Activate() Dim i As Integer For i = 10 To 1 Step -1 Me.Label1.Caption = "انتظار " & i & " ثواني." Application.Wait (Now + TimeValue("0:00:01")) Next Unload Me End Sub عذرا اخي الكريم اذا كان هذا ما فهمته
  20. تجربة لصق كود من ملف Private Sub Workbook_Open() On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub الاستاذ "نارت" اظن انتهت المشكلة
  21. الاخ الكريم لديك الدالة =MIN(A1:A500)
×
×
  • اضف...

Important Information