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

طلب مساعدة Uoou_u10





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


شاطر
 

 طلب مساعدة

اذهب الى الأسفل 
كاتب الموضوعرسالة
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
مجدى يونس

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

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

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

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

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