الاستاذ مجدى
طلب مساعدة 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا طلب مساعدة 829894
ادارة المنتدي طلب مساعدة 103798

طلب مساعدة Uoou_u10


الاستاذ مجدى
طلب مساعدة 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا طلب مساعدة 829894
ادارة المنتدي طلب مساعدة 103798

طلب مساعدة Uoou_u10


الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل rasco فمرحبا به


 

 طلب مساعدة

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
Ahmeddz



عدد المساهمات : 5
تاريخ التسجيل : 17/12/2017

طلب مساعدة Empty
مُساهمةموضوع: طلب مساعدة   طلب مساعدة Avatarالأربعاء ديسمبر 20, 2017 2:52 pm

أخواني الكرام السلام عليك اريد مساعدة لدمج الكودين بالطريقة الصحيحة حاولة عدة مرات لكن يتوقف عن الإشتغال
Private Sub UserForm_Activate()
wb1.Navigate "E:\statistique\image\Web.gif"
Web1.Navigate "E:\statistique\image\image2.gif"
Web3.Navigate "E:\statistique\image\image (3).gif"
DoEvents
wb1.Document.Body.Scroll = "no"
wb1.Document.Body.Style.Border = "none"
wb1.Document.bgcolor = "&H00FFFFFF&"
Me.Web1.Document.Body.Scroll = "No"
Web1.Document.Body.Style.Border = "none"

Web1.Document.bgcolor = "&H00FFFFFF&"
Me.Web3.Document.Body.Scroll = "No"
Web3.Document.Body.Style.Border = "none"
Web3.Document.bgcolor = "&H00FFFFFF&"
Label6.Caption = Format(Date, "dd")
Label7.Caption = Format(Date, "mmmm")
Label8.Caption = Format(Date, "yyyy")
VBA.Calendar = vbCalHijri
Label9.Caption = Format(Date, "dd")
Label10.Caption = Format(Date, "mmmm")
Label11.Caption = Format(Date, "yyyy")
Do
Label12.Caption = Time
DoEvents
Loop
End Sub

اريد ان أضيف هاذا الكود وجزاكم الله 
Private Sub UserForm_Activate()
For i = 1 To 10000
DoEvents
L01.ForeColor = QBColor(Rnd * 15)
Call Sleep(200)
DoEvents
L2.ForeColor = QBColor(Rnd * 15)
Call Sleep(200)
Next i
End Sub
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3496
تاريخ التسجيل : 22/02/2013
العمر : 67

طلب مساعدة Empty
مُساهمةموضوع: رد: طلب مساعدة   طلب مساعدة Avatarالأحد ديسمبر 24, 2017 1:39 pm

عزيزى ارسل ملف اكسل لنعرف الخطأ

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

طلب مساعدة Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
 
طلب مساعدة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: