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

مجدى يونس

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

  • Posts

    3379

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

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

  • Days Won

    13

 نوع المحتوي 

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

  1. مجدى يونس
    شكرا لك
  2. مجدى يونس
    نتمنى ارفاق الملف
  3. مجدى يونس
    مجهود مشكور
  4. مجدى يونس
    مشكور
  5. مجدى يونس
    الاخ ابو مشارى الخلفية حسب الموضوع المطلوب ممكن البحث من خلال النت على الخلفية التى تناسبك وادخالها بالبوربوينت مع وضع اضافات اليك بعد الصور
  6. مجدى يونس
    مشكور تم وضع الفيديو بالصفحة
  7. مجدى يونس
    يفضل رفع الملف
  8. مجدى يونس
    مشكور
  9. مجدى يونس
    شكرا لكم
  10. مجدى يونس
    شرح كيفية عمل حاسبة calculator فيديو رقم 3 الملف اسفل الفيديو
  11. مجدى يونس
    الاخ حمادة تابع الفيديو وتنفيذ الشرح للاستفادة
  12. مجدى يونس
    شكرا اخ على
  13. مجدى يونس
    شكرا اخ على
  14. مجدى يونس
    بالنسبة لملف العمل انا قلت فى فيديوهاتى وبنزل الاكواد المنتدى تعليمى نشوف لك موضوع الصورة
  15. مجدى يونس
    الف شكر
  16. مجدى يونس
    شكرا ويبارك فيك
  17. مجدى يونس
    انا لله وانا راجعون الأعمار مهما طالت لا بُد من الفناء، والدنيا مهما ازدانت فمآلها إلى الزوال؛ فهي كأنما دخل المرء من بابٍ وخرج من آخر شكرا لك
  18. مجدى يونس
    عمل زر تنبيه اقتراب موعد معين في TextBox مع التنسيق الشرطى الكود كود الفرق =TODAY()-D2 كود التنبية =IF(K2<=0;"خطأ بالتاريخ";IF(K2<=10;"باقى ايام";"مستمر معنا")) يمكن عمل ليست بناء على الموجود بالفورم
  19. مجدى يونس
    طباعة شيت وطباعة فورم وتسجيل تاريخ اليوم الاكواد طباعة شيت 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
  20. مجدى يونس
    شكرا اخ عبد الله
  21. مجدى يونس
    الاخ العزيز يفضل تعديل اسمك للغة العربية واعمل بحث ربما تجد طلبك
  22. مجدى يونس
    الف شكر لك نتمنى تكون فى ميزان حسناتنا
  23. مجدى يونس
    كلمات تتحرك داخل الفورم باستخدام 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
  24. مجدى يونس
    الف شكر اخ على
  25. مجدى يونس
    الف شكر لكم واعتزر فى التاخر فى الرد لعدم وجود نت عندى
×
×
  • اضف...

Important Information

  I accept