مهند الزيدي قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 السلام عليكم ممكن عمل المطلوب داخل المرفق ..جزاكم الله خيرا tv.rar رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 للرفع رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 اخى الفاضل أولاً .. المرفق عبارة عن مجلد فارغ ثانياً: للرفع بعد دقيقة واحدة فقط من طرح الموضوع تحياتي 1 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 السلام عليكم . أعتذر جدا...وهذا المرفق الصحيح tv.rar رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 للرفع رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 اخى الفاضل جرب الملف المرفق لربما به طلبك .. واعتبرها محاولة للمساعدة تحياتي فورم يعرض نطاق كأنة قناة تلفزيونية.rar 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة شوقي ربيع قام بنشر ديسمبر 8, 2014 أفضل إجابة مشاركة قام بنشر ديسمبر 8, 2014 السلام عليكم الشكر موصول للاخ ibn_egypt وهذا كود مشابه لما تفضل به مع بعض التعديلات Private Sub UserForm_Initialize() Dim wSh As Worksheet: Set wSh = Sheet2 Dim iLrw As Long: iLrw = wSh.Cells(wSh.Rows.Count, 1).End(xlUp).Row Dim iI As Integer Dim sTex As String For iI = 1 To iLrw If iI = 1 Then sTex = wSh.Range("A" & iI) Else sTex = sTex & " - " & wSh.Range("A" & iI) Next HTML sTex, 4, 5 End Sub Private Sub HTML(sTexte As String, iSize As Integer, iScrollAmount As Integer) Me.WebBrowser1.Navigate _ "about:<html><body BGCOLOR ='' scroll='no'><font color= #00000 " & _ " size=" & iSize & " face='Arial'><marquee direction=right ; font-size: 14pt;" & _ " color: white; border-style: ridge; border-color: scrollAmount=" & iScrollAmount & ">" & sTexte & "</marquee></font></body></html>" End Sub ينسخ الكود كما هو في الفورم اما السطر HTML sTex, 4, 5 فيعني على التوالي مايلي النص, حجم الخط, سرعة التحرك اي انه يمكنك التحكم في الخصائص التي سبقة من هذا الكود فقط WebBrowser.rar وهذا حل اخر عن طريق textbox Const cVitesse As Currency = 0.01 Dim bStart As Boolean Sub MovBar() Do While bStart timer_avant = Timer Do While Timer < timer_avant + cVitesse DoEvents Loop sMove Loop End Sub Sub sMove() Dim iWidth As Integer: iWidth = Me.TextBox1.Width Dim iI As Integer For iI = 1 To iWidth timer_avant = Timer Do While Timer < timer_avant + cVitesse DoEvents Loop Me.TextBox1.Left = -iWidth + iI Next End Sub Private Sub UserForm_Activate() bStart = True MovBar End Sub Private Sub UserForm_Initialize() Dim wSh As Worksheet: Set wSh = Sheet2 Dim iLrw As Long: iLrw = wSh.Cells(wSh.Rows.Count, 1).End(xlUp).Row Dim iI As Integer Dim sTex As String For iI = 1 To iLrw If iI = 1 Then sTex = wSh.Range("A" & iI) Else sTex = sTex & " - " & wSh.Range("A" & iI) Next Me.TextBox1 = sTex With Me.TextBox1 .AutoSize = True .BackStyle = 0 .SpecialEffect = 0 End With End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) bStart = False End End Sub textbox.rar تحياتي للجميع 3 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 اخى / شوقي ربيع برك الله فيك حلولك دائما 3D رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 شكرا اخي شوقي ربيع .وشكرا لك ابن مصر على مساعدتك...ولكن هل يمكن إستدعاء صورةأو شعار تكون فاصلة بدل الإشارة ( - ).وشكرا مرة اخرى وجزاكم الله خيرا... مثلا شعار اوفسنا المرفق بالصورة .. بطريقة WebBrowser رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 للرفع رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر ديسمبر 9, 2014 مشاركة قام بنشر ديسمبر 9, 2014 السلام عليكم بخصوص الاشارة (-) يمكنك استبدالها بماتشاء من هذا الكود For iI = 1 To iLrw If iI = 1 Then sTex = wSh.Range("A" & iI) Else sTex = sTex & " - " & wSh.Range("A" & iI) Next اما ان تضع مكانها صورة ؟؟؟؟؟ لاظن ذلك ممكن او ربما ممكن في المثال الاول لانه يعتمد على اكواد html رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر ديسمبر 9, 2014 مشاركة قام بنشر ديسمبر 9, 2014 السلام عليكم بخصوص الاشارة (-) يمكنك استبدالها بماتشاء من هذا الكود For iI = 1 To iLrw If iI = 1 Then sTex = wSh.Range("A" & iI) Else sTex = sTex & " - " & wSh.Range("A" & iI) Next اما ان تضع مكانها صورة ؟؟؟؟؟ لاظن ذلك ممكن او ربما ممكن في المثال الاول لانه يعتمد على اكواد html رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر ديسمبر 9, 2014 الكاتب مشاركة قام بنشر ديسمبر 9, 2014 للرفع رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر فبراير 18, 2015 مشاركة قام بنشر فبراير 18, 2015 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.