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

محمد يحياوي

الخبراء
  • Posts

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

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

  • Days Won

    10

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

  1. تابع للشرح Link_Betwen_many_Combo_Boxes.rar
  2. الاخ الكريم هذا الشرح من اعمال الاستاذ الكبير عمر الحسيني "ابو ثامر" إنشاء قوائم منسدلة متعددة المستويات.rar Creat_many_Range_Names.rar
  3. كود تمرير نص كل مدة في يوزر فورم تمرير نص كل مدة في يوزر فورم.rar
  4. الاخ الكريم لاحظ الملف قد يكون المطلوب AoutoFilterSearchWord.rar
  5. الاخ الكريم قد يكون طلبك في هذا الموضوع و تستطيع ان تتصرف فيه قائمة منسدلة مفلترة
  6. الاخ الكريم ملفك ليس به اي مشكلة Book11.rar
  7. تنفيذ ماكرو بعد مدة من الزمن مثال1: ماكرو فتح فورم Sub showform() UserForm1.Show End Sub و في حدث فتح المصنف Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:00:05"), "showform" End Sub مثال2: ماكرو اخفاء الفورم Sub Hideform() UserForm1.Hide End Sub وفي حدث UserForm_Initialize Private Sub UserForm_Initialize() Application.OnTime Now + TimeValue("00:00:05"), "Hideform" End Sub تنفيذ ماكرو بعد مدة.rar
  8. اقصد ان الادارة يمكنها تثبيت الخط الافتراضي للمنتدى
  9. الاخ الحبيب "ابو نصار" طالت غيبته و اشتقنا لوجوده معنا ... عسى ان يكون المانع خير
  10. الاخ الكريم الارتباطات تبقى صحيحة و في حالة تغيير مكان الملف او اسمه او امتداده يصبح الارتباط غير صحيح لذا وجب عليك القيام باحد الامرين : 1 - ارجاع الملف اى وضعته الاولى (المكان - الاسم - الامتداد) 2 - تتبع الخلايا و النطاقات المحتواة على الارتباطات و تغييرها بالاسم الجديد او الامتداد الجديد او المكان الجديد
  11. الاخ الحبيب "الحسامي" بارك الله فيك اكواد جميلة و رائعة ... وفقك الله هذا كود ربط ماكرو بزر اختيار (CheckBox) macro_CheckBoxs.rar
  12. الاخ الحبيب "عادل حنفي" هذه فكرة كنت قد طرحتها في موضوع "الاكواد المنفصلة" و هي ظهور رسائل عشوائية كل فترة من الزمن ارجوا ان تعجبك yah_msgs.rar
  13. الاخ الحبيب و الاستاذ الكريم "عادل حنفي" شكرا على هذه النفحات العطرة ... فعلا ملف رائع
  14. كود اظهار رسائل عشوائية مختلفة كل فترة من الزمن Sub yah_msgs() Const Title As String = "مرحبا : منتدى اوفيسنا" Const Delay As Byte = 3 Dim wsh As Object Set wsh = CreateObject("WScript.Shell") Dim strQuotes(2) As String Dim lngIndex As Long strQuotes(0) = "السلام عليكم و رحمة الله" & vbLf & vbLf & "اليوم هو " & Date strQuotes(1) = "كل عام وانتم بخير" & vbLf & vbLf & "اليوم هو " & Date strQuotes(2) = "تقبل الله منا ومنكم" & vbLf & vbLf & "اليوم هو " & Date lngIndex = Int((2 - 0 + 1) * Rnd + 0) wsh.Popup strQuotes(lngIndex), Delay, Title, wButtons Set wsh = Nothing Application.OnTime Now + TimeValue("00:00:5"), "yah_msgs" End Sub كما يمكن وضع الكود في حدث فتح المصنف Private Sub Workbook_Open() yah_msgs.rar
  15. الاخ الحبيب "ابو احمد" اشاطرك الراي تماما فانها مشكلة يعاني منها المنتدى خاصة قسم الاكسل لما يشهد من اقبال كثيف لذلك اطلب من السادة المشرفين التدخل العاجل لتنقية المنتدى من المواضيع التي لاتدل عنها عناوينها و كذلك المواضيع المتشابهة و بالمناسبة كنت قد فتحت موضوعا في المنتدى المفتوح حول هذه القضية لذلك ادعو اخواني الاعضاء ان يسهلو على انفسهم و على اخوانهم باختيار العنوان المناسب للموضوع و كذلك القيام بالبحث في المنتدى قبل طرح المشكلة لتفادي تراكم المواضيع ... و الله من وراء القصد وفقكم الله
  16. الاخ الحبيب "ابو احمد" افكار جميلة و رائعة و لكن اسمح لي بهذه المداخلة لاثراء الموضوع بالنسبة لزراختيار الموجود في form يمكن ربطه ايضا بماكرو كما في المثال Book2.rar
  17. الاخ الحبيب "ابو الحارث" بارك الله فيك ...كود جميل من اخينا الحبيب "كيماس" و هذا كود اخر لتعطيل الحفظ باسم Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If booAllowSave = False Then Cancel = True MsgBox "لا يمكنك الحفظ...", vbOKOnly, "منع الحفظ" End If End Sub Private Sub Workbook_Open() booAllowSave = False End Sub و هذا كود لتعطيل الاجراء للحفظ استثناء اذ انه لايمكن حفظ الكود داخل الملف و الدالة شغالة 'كتابة الكود في module Global booAllowSave As Boolean Sub yourSavefunction() booAllowSave = True MsgBox "الحفظ جار...", vbokayonly, "تمكين الحفظ" Application.Dialogs(xlDialogSaveAs).Show booAllowSave = False End Sub DisableSaveAs.rar
  18. الاخ الكريم نعم ممكن .... لاحظ المرفق 2 forms.rar
  19. كود لتعطيل الماوس و لوحة المفاتيح مدة من الزمن Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub DesableMouKey() BlockInput True Sleep 10000 BlockInput False End Sub تعطيل الماوس لوحة المفاتيح.rar
  20. الاخ الحبيب "سعد عابد" بارك الله فيك على المعلومة القيمة لي ملاحظتين : 1 - الطريقة ناجحة ايضا في 2010 2 - في حالة وجود اكثر من سطرين فارغين متتاليين نضغط مرة اخرى على استبدال
  21. الاخ الحبيب "نادر" تحية عطرة و كل عام و انت بخير
  22. الاخ الحبيب "خبور" تحية عطرة و دمت بالف خير
  23. الاخ العزيز "انور نور" بارك الله فيك ... ودمت بالف خير
×
×
  • اضف...

Important Information