متن روان

[alisabet]

با سلام حضور اساتید محترم دو تا سوال تقریباً مشابه دارم

1- چگونه میتوان در یک سلول متن روان داشت ( مثل تابلوهای روان که متن در آن بصورت افقی حرکت میکند)

2- چگونه میتوان یک متن را بصورت تاپپ به مرور در یک سلول نشان داد( مثا هنگامی که با ماشین تحریر تایپ میکنبم ) منظورم اینست که متن به صورت حروف به حروف و با تاخیر در سلول کامل شود

[Amir Ghasemiyan]

با سلام حضور اساتید محترم دو تا سوال تقریباً مشابه دارم

1- چگونه میتوان در یک سلول متن روان داشت ( مثل تابلوهای روان که متن در آن بصورت افقی حرکت میکند)

2- چگونه میتوان یک متن را بصورت تاپپ به مرور در یک سلول نشان داد( مثا هنگامی که با ماشین تحریر تایپ میکنبم ) منظورم اینست که متن به صورت حروف به حروف و با تاخیر در سلول کامل شود

سلام دوست عزيز

براي سوال اولتون اين كد فكر كنم كمكتون كنه:
متنتون رو در سلول A1 بنويسيد و تابلو روان رو در سلول A2 تحويل بگيرين

Sub neon()
n = Range("A1").Value
Range("A2").HorizontalAlignment = xlLeft
For i = 0 To Len(n)
    v = Mid(n, 1, i)
    Range("A2").Value = v
    Sleep 100
Next i
Range("A2").HorizontalAlignment = xlCenter
Sleep 100
Range("A2").HorizontalAlignment = xlRight
For i = Len(n) To 0 Step -1
    v = Mid(n, 1, i)
    Range("A2").Value = v
    Sleep 100
Next i
End Sub

اين هم براي تايپ:

Sub typing()
n = Range("A1").Value
Range("A2").HorizontalAlignment = xlRight
For i = 1 To Len(n)
    v = Mid(n, 1, i)
    Range("A2").Value = v
    Sleep 300
Next i
End Sub

البته اين خط رو هم به اول ماژول بايد اضافه كنيد تا كد sleep كار كنه

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)