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

محمد يحياوي

الخبراء
  • Posts

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

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

  • Days Won

    10

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

  1. الاخ الكريم هذا الشرح من اعمال الاستاذ الكبير عمر الحسيني "ابو ثامر" إنشاء قوائم منسدلة متعددة المستويات.rar Creat_many_Range_Names.rar
  2. كود تمرير نص كل مدة في يوزر فورم تمرير نص كل مدة في يوزر فورم.rar
  3. الاخ الكريم قد يكون طلبك في هذا الموضوع و تستطيع ان تتصرف فيه قائمة منسدلة مفلترة
  4. تنفيذ ماكرو بعد مدة من الزمن مثال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
  5. الاخ الحبيب "ابو نصار" طالت غيبته و اشتقنا لوجوده معنا ... عسى ان يكون المانع خير
  6. الاخ الكريم الارتباطات تبقى صحيحة و في حالة تغيير مكان الملف او اسمه او امتداده يصبح الارتباط غير صحيح لذا وجب عليك القيام باحد الامرين : 1 - ارجاع الملف اى وضعته الاولى (المكان - الاسم - الامتداد) 2 - تتبع الخلايا و النطاقات المحتواة على الارتباطات و تغييرها بالاسم الجديد او الامتداد الجديد او المكان الجديد
  7. الاخ الحبيب "الحسامي" بارك الله فيك اكواد جميلة و رائعة ... وفقك الله هذا كود ربط ماكرو بزر اختيار (CheckBox) macro_CheckBoxs.rar
  8. الاخ الحبيب "عادل حنفي" هذه فكرة كنت قد طرحتها في موضوع "الاكواد المنفصلة" و هي ظهور رسائل عشوائية كل فترة من الزمن ارجوا ان تعجبك yah_msgs.rar
  9. الاخ الحبيب و الاستاذ الكريم "عادل حنفي" شكرا على هذه النفحات العطرة ... فعلا ملف رائع
  10. كود اظهار رسائل عشوائية مختلفة كل فترة من الزمن 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
  11. الاخ الحبيب "ابو احمد" اشاطرك الراي تماما فانها مشكلة يعاني منها المنتدى خاصة قسم الاكسل لما يشهد من اقبال كثيف لذلك اطلب من السادة المشرفين التدخل العاجل لتنقية المنتدى من المواضيع التي لاتدل عنها عناوينها و كذلك المواضيع المتشابهة و بالمناسبة كنت قد فتحت موضوعا في المنتدى المفتوح حول هذه القضية لذلك ادعو اخواني الاعضاء ان يسهلو على انفسهم و على اخوانهم باختيار العنوان المناسب للموضوع و كذلك القيام بالبحث في المنتدى قبل طرح المشكلة لتفادي تراكم المواضيع ... و الله من وراء القصد وفقكم الله
  12. الاخ الحبيب "ابو احمد" افكار جميلة و رائعة و لكن اسمح لي بهذه المداخلة لاثراء الموضوع بالنسبة لزراختيار الموجود في form يمكن ربطه ايضا بماكرو كما في المثال Book2.rar
  13. الاخ الحبيب "ابو الحارث" بارك الله فيك ...كود جميل من اخينا الحبيب "كيماس" و هذا كود اخر لتعطيل الحفظ باسم 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
  14. كود لتعطيل الماوس و لوحة المفاتيح مدة من الزمن 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
  15. الاخ الحبيب "سعد عابد" بارك الله فيك على المعلومة القيمة لي ملاحظتين : 1 - الطريقة ناجحة ايضا في 2010 2 - في حالة وجود اكثر من سطرين فارغين متتاليين نضغط مرة اخرى على استبدال
×
×
  • اضف...

Important Information