أحبائى وأعزائى وإخوانى أعضاء وأساتذة المنتدى العظيم الذى أكن له كل التقدير والإحترام
فالفعل هذا المنتدى العظيم إستفدت منه الكثير والكثير وإلى الأن
أقدم لكم اليوم كود إدراج نص متحرك داخل الإكسيل ومش عارف إن كان موجود من قبل أم لا
ليستفاد الجميع
يوضع الكود داخل موديول
مرفق مثال
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
أحبائى وأعزائى وإخوانى أعضاء وأساتذة المنتدى العظيم الذى أكن له كل التقدير والإحترام
فالفعل هذا المنتدى العظيم إستفدت منه الكثير والكثير وإلى الأن
أقدم لكم اليوم كود إدراج نص متحرك داخل الإكسيل ومش عارف إن كان موجود من قبل أم لا
ليستفاد الجميع
يوضع الكود داخل موديول
مرفق مثال
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