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

مجدى يونس

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3,326

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

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

  • Days Won

    13

 نوع المحتوي 

كل منشورات العضو مجدى يونس

  1. مجدى يونس
    فكرة جميلة نأمل المزيد
  2. مجدى يونس
    شكرا لك
  3. مجدى يونس
    نتمنى ارفاق الملف
  4. مجدى يونس
    مجهود مشكور
  5. مجدى يونس
    مشكور
  6. مجدى يونس
    الاخ ابو مشارى الخلفية حسب الموضوع المطلوب ممكن البحث من خلال النت على الخلفية التى تناسبك وادخالها بالبوربوينت مع وضع اضافات اليك بعد الصور
  7. مجدى يونس
    مشكور تم وضع الفيديو بالصفحة
  8. مجدى يونس
    يفضل رفع الملف
  9. مجدى يونس
    مشكور
  10. مجدى يونس
    شكرا لكم
  11. مجدى يونس
    شرح كيفية عمل حاسبة calculator فيديو رقم 3 الملف اسفل الفيديو
  12. مجدى يونس
    الاخ حمادة تابع الفيديو وتنفيذ الشرح للاستفادة
  13. مجدى يونس
    شكرا اخ على
  14. مجدى يونس
    شكرا اخ على
  15. مجدى يونس
    بالنسبة لملف العمل انا قلت فى فيديوهاتى وبنزل الاكواد المنتدى تعليمى نشوف لك موضوع الصورة
  16. مجدى يونس
    الف شكر
  17. مجدى يونس
    شكرا ويبارك فيك
  18. مجدى يونس
    انا لله وانا راجعون الأعمار مهما طالت لا بُد من الفناء، والدنيا مهما ازدانت فمآلها إلى الزوال؛ فهي كأنما دخل المرء من بابٍ وخرج من آخر شكرا لك
  19. مجدى يونس
    عمل زر تنبيه اقتراب موعد معين في TextBox مع التنسيق الشرطى الكود كود الفرق =TODAY()-D2 كود التنبية =IF(K2<=0;"خطأ بالتاريخ";IF(K2<=10;"باقى ايام";"مستمر معنا")) يمكن عمل ليست بناء على الموجود بالفورم
  20. مجدى يونس
    طباعة شيت وطباعة فورم وتسجيل تاريخ اليوم الاكواد طباعة شيت Private Sub CommandButton8_Click() Application.Dialogs(xlDialogPrinterSetup).Show ThisWorkbook.Sheets("magdi").PrintOut copies:=1 End Sub طباعة فورم Private Sub CommandButton9_Click() Frame3.Visible = False Frame5.Visible = False Frame6.Visible = False Frame23.Visible = False Me.PrintForm Frame3.Visible = True Frame5.Visible = True Frame6.Visible = True Frame23.Visible = True End Sub تاريخ اليوم Private Sub TextBox6_Enter() TextBox6.Value = Date TextBox6 = Format(TextBox6, "dd/mm/yyyy") End Sub
  21. مجدى يونس
    شكرا اخ عبد الله
  22. مجدى يونس
    الاخ العزيز يفضل تعديل اسمك للغة العربية واعمل بحث ربما تجد طلبك
  23. مجدى يونس
    الف شكر لك نتمنى تكون فى ميزان حسناتنا
  24. مجدى يونس
    كلمات تتحرك داخل الفورم باستخدام WebBrowser الاكواد الاداة WebBrowser1 ------ Option Explicit Public LeTexte As String Public LaCouleur As String --- Private Sub UserForm_Initialize() LeTexte = Sheets("magdi").Range("a1").Text LaCouleur = "#990000" ParametresHtml End Sub Sub ParametresHtml() UserForm3.WebBrowser1.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='8' face='NEW'>" & _ "<marquee>" & LeTexte & "</marquee></font></body></html>" End Sub
  25. مجدى يونس
    الف شكر اخ على
×
×
  • اضف...

Important Information

  I accept