Insert Moving Text

[Yasser Fathi Albanna]

أحبائى وأعزائى وإخوانى أعضاء وأساتذة المنتدى العظيم الذى أكن له كل التقدير والإحترام

فالفعل هذا المنتدى العظيم إستفدت منه الكثير والكثير وإلى الأن

أقدم لكم اليوم كود إدراج نص متحرك داخل الإكسيل ومش عارف إن كان موجود من قبل أم لا

ليستفاد الجميع

يوضع الكود داخل موديول

مرفق مثال

Sub Tester1()

Dim sp As String

Dim sTxt As String

Dim x As Integer, y As Integer

Dim Start, delay



sTxt = "مرحبا بكم فى هذا المنتدى العظيم والمفضل لدى الجميع"



For y = 1 To 15                                               '15 Loops through the scrolling

    For x = 1 To 30                                           'Index number of times

        Start = Timer                                         'Set start to internal timer

        delay = Start + 0.15                                  'Set delay for .15 secs



        Do While Timer < delay                                'Do the display routine

            [D6] = Space(x) & sTxt                            'Show 1 str @ a time

            DoEvents                                          'do there things

        Loop                                                  'Loop until delay is up

        DoEvents

        Start = Timer                                         'and reset the timer

        delay = Start + 0.15                                  'and the delay

    Next x                                                    'Show the next str

Next y                                                        'Do this again - 15



[D6] = ""                                                     'Reset



End Sub

Insert Moving Text.rar

[ابراهيم الحداد]

بارك الله فيك عمل رائع وبديع

[Yasser Fathi Albanna]

بارك الله فيك عمل رائع وبديع

شكرا أخى الفاضل زيزو على دعائك الطيب

[Yasser Fathi Albanna]

منتدى أوفيسنا الحبيب

إضغط على Officena

Officene.rar

[ابو فارس2013]

مشكور

[Yasser Fathi Albanna]

أوفيسنا 2

Officena 2.rar